Pb pour trouver un fichier

[Antoine]

Bonjour à tous et à toutes,

Comme le dit le sujet, j'ai un soucis pour récupérer un fichier existant, dans la mesure où mon code ne le voit pas,pouvez vous m'aider s'il vous plait.

Sub Contrat() ' Récupération d'un Ex-contrat ou nouveau Contrat
mon_fichier = v1 & v2
Range("a20") = v1
Range("a21") = v2
Range("a22") = Chem1
Range("a23") = mon_fichier
Range("a24") = ChT
With Application.FileSearch
.NewSearch
.LookIn = Chem1
.SearchSubFolders = True
.Filename = "mon_fichier*ChT.xls"
If .Execute > 0 Then
FiA = .FoundFiles(1)
MsgBox (FiA & " fichier trouvé")
Workbooks.Open FiA
Else:
MsgBox (FiA & " fichier créer")
FiA = "Chemin" & ChT
Workbooks.Open FiA
End If
End With
End Sub

les 5 Range du départ me servent pour le développement à voir les valeurs, qui sont tjs correctes, et les msgBox dans la boucle IF pour vérifier ce qu'il fait.
mon_fichier existe bien sûr, mais il va tjs dans msgBox "fichier créer" et ce que je mette :
.FileName = "mon_fichier*ChT.xls"
ou
.FileName = "mon_fichier*.xls"

Merci de vos réponses et conseils.

Antoine

 

[Abel]

Bonjour Antoine,

Comment sont renseignées v1, v2, chem1 et Cht ?

La façon dont tu écris le code, tu renseigne les Range() avec ces variables.
Si elles sont vides, c'est normal que rien ne sorte.

Si c'est l'inverse que tu cherches, à savoir renseigner v1, v2, etc avec le contenu de Range(..), il faut que tu écrives : v1 = Range ("a20"), etc.


Abel

 

[Antoine]

bonjour le forum,

Comme je l'es déjà spécifié, les 5 range me servent uniquement pour visualiser les variables pendant la phase de développement. A chaque fois que cette procédure est appelée, ces variables sont correctes, mais la procédure ne trouve pas de fichier existant, alors qu'il en existe ???

merci de vos conseils.