Discussion :

[zamoht]

Bonjour,
Dans une macro, je compare des cellules de 2 feuilles différentes qui comportent des noms de fichiers du type:

nomdefichier1_V1.00.xls

afin de reporter des informations.

Mon problème est le suivant: ces feuilles ne sont pas parfaitement à jour, et parfois le matching ne se fait pas dans des situations du type:

nomdefichier1_V1.01.xls avec nomdefichier1_V1.00.xls

ou encore

nomdefichier1_V1.00.xlsx et nomdefichier1_V1.00.xls

j'utilise simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Worksheets("1").Cells(k, 1) = Worksheets("2").Cells(i, 14) Then

et j'aimerais que la comparaison se fasse uniquement sur la partie "nomdefichier1", sachant que le nombre de caractère de "nomdefichier1" n'est pas fixe.

Auriez-vous une idée pour limiter le comparaison à ce préfixe ?

Merci d'avance,

[rvtoulon]

Bonjour,
si je comprend dans le nom du fichier il y a toujours le caracrtère "_".
Si c'est le cas tu cherche la position de ce caractère dans ta chaine (fonction INSTR) et tu renles caractère qui sont a gauche de "_" avec la fonction LEFT un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim fichier As String, i As Byte
fichier = "nomdefichier1_V1.01.xls"
i = InStr(fichier, "_") - 1
fichier = Left(fichier, i)
MsgBox fichier

tu fais ceci pour les deux fichiers à comparer. Adapte cette exemple à ce que tu souhaites faire

[zamoht]

Merci beaucoup pour cette réponse qui me met sur la bonne voie.
En revanche, le caractère "_" revient plusieurs fois dans le nom du fichier.
Est-il possible de lui faire chercher le dernier "_" ?

Edit: En fait, je pense que la solution pour moi serait d'aller récupérer ce qui se situe avant le dernier "V".

[rvtoulon]

je pense que la solution pour moi serait d'aller récupérer ce qui se situe avant le dernier "V".

ou alors avant "_V1" exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim fichier As String, i As Byte
fichier = "nom_de_fichier_1_V1.01.xls"
i = InStr(fichier, "_V1") - 1
fichier = Left(fichier, i)
MsgBox fichier

[Theze]

Bonjour,

Si tu veux trouver le dernier caractère dans chaîne, utilise la fonction 'InstrRev()' :
MsgBox InStrRev(nom_de_fichier1_V1.01.xls, "_")

Hervé.

[rvtoulon]

Bravo Hervé,
je ne connaissais pas "InstrRev".
juste une remarque il faut mettre le nom_de_fichier etc... entre "".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox InStrRev("nom_de_fichier1_V1.01.xls", "_")

.

[zamoht]

OK, ça marche bien, merci beaucoup