Re: Sélection de données, copie et organisation |
Titre du sujet : Re: Sélection de données, copie et organisation par myDearFriend! le 23/08/2018 20:18:44 Tu as tout compris
Le problème vient bien du nom de ville qui pourrait contenir aussi un ou plusieurs tirets (je n'y avais pas pensé)!
On va cependant profiter du fait que lorsqu'il est inclus dans un nom composé, le tiret n'est pas précédé, ni suivi d'un espace...
Tu peux donc régler facilement le souci en modifiant les 2 lignes suivantes : If Len(vText) - Len(Replace(vText, "-", "")) = 2 Then vDate = Mid(vText, InStr(1, vText, "-") + 2, 10) Comme suit : If Len(vText) - Len(Replace(vText, " - ", "")) = 6 Then vDate = Mid(vText, InStr(1, vText, " - ") + 3, 10) (note la présence d'un espace avant et d'un espace après le tiret dans la deuxième version)
Ca devrait être bon ce coup ci !
Bien cordialement, |
Forums