Rapport de message :*
 

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 smiley

 

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,