A
Antoine
Guest
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
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