Salut à tous !
Je souhaite ouvrir un fichier dont le nom varie chaque semaine sur l'autre...
Et je voudrais connaître la macro qui va me permettre d'ouvrir ce fichier chaque semaine sans avoir à changer le code...
Le nom du fichier contient "clients" mais se termine selon la semaine par "012019.xlsxm", "022019.xlsxm"... etc.
nom du fichier => clients.012019.xlsxm
de plus je souhaite un message qui dit que si la macro ne trouve pas le fichier qui contient "client" alors apparait "fichier non trouvé"
le fichier est dans le dossier document "Marge" situé dans mon bureau
j'ai essayé le programme ci-après avec difficulté :
Sub infonewb()
On Error Resume Next
Set FichierSch = Application.FileSearch
With FichierSch
.LookIn = "C:\bureau\Marge" 'Dossier dans lequel chercher tes fichiers
.Filename = "*.xlsm" 'Extension des fichiers a trouver
If .Execute > 0 Then 'S'il en trouve
For x = 1 To .FoundFiles.Count
If InStr(1,.FoundFiles(x),"client" )<>0 Then
Workbooks.Open Filename:=.FoundFiles(x)
End If
Next x
Else
MsgBox ("pas de fichier excel trouvé" )
End If
End With
End Sub
Je vous remercie beaucoup !