If Then avec nom de fichier

Bonjour,

j'aimerais faire une boucle if qui fonctionne seulement avec des fichiers portant un nom précis mais je ne connais pas la fonction pour cela.

Cela donnerait:

If nomfichier = "blablabla" Then

Aussi j'aimerais savoir si il était possible de mettre seulement une partie du nom dans les guillemets voir plusieurs parties séparées par un & ( "..." & "..." ), cela me permettrait d'être précis si je souhaite faire un ElseIf Then par exemple avec le même début de nom de fichier puis un fin de nom différente.

Bonjour Furgoz

Exemple:

Dim NomFichier As String
Dim varPrefix As String
Dim var Suffix As String
Dim varExtension As String 

If NomFichier Like varPrefix & var2 & varSuffix & varExtension Then
  ...
End If

Merci pour la réponse. Est-ce obligé de faire avec des Dim ? Ce n'est pas possible avec un ="blabla" ?

Je trouve que les Dim limitent un peu le champs d'action mais peut-être que c'est le mieux (je manque encore beaucoup d'expérience).

If NomFichier Like "*Blabla*.txt" Then

Super, merci bien !

J'en profite pour demander une confirmation sur quelque chose, est-ce qu'on peut bien mettre des If Then dans des If Then ?

Exemple:

If f1.Cells((10 + compteur), 3) = "Xbr" Then  
            f0.Cells((8 + rang), 9).Copy            
Else
       If f1.Cells((10 + compteur), 3) = "Ybr" Then
                f0.Cells((8 + rang), 10).Copy         
       Else                       
                f0.Cells((8 + rang), 11).Copy          '
      End If
End If

A quel moment est-ce que l'ordinateur s'embrouille ?

J'ai essayé différentes solutions mais aucune ne fonctionne, il ne prend pas en compte mes condition du If et passe directement au Else.

J'ai essayé avec:

'essai 1
Dim Polyworks as String
If NomFichier Like Polyworks Then

'essai 2
Dim varPrefix as String
varPrefix = "Polyworks"
If NomFichier Like varPrefix Then

'essai 3
Dim varPrefix as String
varPrefix = "*Polyworks*.txt"
If NomFichier Like varPrefix Then

'essai 4
If NomFichier Like "Polyworks" Then

'essai 5
If NomFichier Like "*Polyworks*.txt" Then

Une idée de l'erreur que j'aurais pu faire ?

J'ai trouvé une solution:

If Mid(NomFichier, 1, 9) = "Polyworks" Then 

Cela permet de compter à partir du premier charactère pour une durée de 9 charactères si ça correspond avec le texte que je souhaite