Bonjour,

Je fais appel à vous car je suis bloqué sur une partie de mon code depuis plusieurs jours.

J'ai fais un code en VBA qui m'ouvre une inputbox, dans celle ci je rentre un nom de fichier.
Ce nom de fichier est stocké dans une variable NomDuFichier.
Ensuite je sélectionne une partie de la chaine de caractères que je met dans une variable Name.
J'aimerais comparer Name à des noms de fichiers que j'ai dans un dossier.

Les deux derniers caractères que je ne sélectionne pas sont un chiffre et une lettre. Ils sont en fait la version du fichier ( ex : A1, A2, B1, B2 ...) et seront comparés plus tard.
Je me suis aussi penché sur ce problème, que je n'arrive pas non plus à résoudre, mais si on m'aide pour la première partie du problème je pense et j'espère que cette partie sera plus évidente et facile à traiter.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
If Num_conf = "fin" Then
 
MsgBox "A bientôt"
 
'Test si on n'a pas renseigné "fin"
ElseIf Num_conf <> "fin" Then
 
    'il faut maintenant trouver le numero de confirmation dans la feuille FF
 
    Sheets("FF").Select
    Range("A1").Select 'Se positionne sur la cellule A1
 
        res2 = Num_conf
        Range("H1").Value = res2 'La cellule H1 affiche le numéro de confirmation, soit ce qui a été scanné en deuxième étape
 
        'Conversion de données
 
        Range("H1").Select
     Selection.TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
 
        Range("I1").Select
    ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],RC[-6]:R[852]C[-5],2,FALSE)"
 
    'ligneTotal, contient la position du numero de confirmation trouvé, on trouve le nom du fichier
 
            'test si pas d'erreur fomule "I1"
            If Not (IsError(Range("I1"))) And res2 = Num_conf Then 'Si ce qui est entré dans la 2nd inputBox est different des num de confirmation dans la colonne C 
 
            NomDuFichier = Range("I1").Value
 
            Dim Name As String
 
            Name = Left(NomDuFichier, 11) 'Name n'est pas composé des deux derniers caracteres
 
            Dim Chemin As String
 
             Chemin = "D:\Users\lala\Documents\doc \"
 
            Dim file As String
 
            file = Dir(Chemin & "*" & ".docx")
 
            If file Like Name & "??" Then
            MsgBox "trouvé"
            Else: MsgBox "pas trouvé"
 
            End If
Merci pour votre aide.