Bougla972
XLDnaute Occasionnel
Bonjour le Forum,
Je cherche à ouvrir un classeur selon un intitulé de classeur variable. Pour cela je me inspiré de ce fil :
https://www.excel-downloads.com/threads/vba-ouvrir-un-fichier-avec-un-nom-variable.154929/
Je n'arrive pas pour autant à ouvrir le fichier choisit .
Code:
Merci d'avance pour votre intervention.
A +
Bougla
Je cherche à ouvrir un classeur selon un intitulé de classeur variable. Pour cela je me inspiré de ce fil :
https://www.excel-downloads.com/threads/vba-ouvrir-un-fichier-avec-un-nom-variable.154929/
Je n'arrive pas pour autant à ouvrir le fichier choisit .
Code:
Code:
Sub Cherche_Classeur()
'Cherche un classeur selon son nom (variable)
'ATTENTION => sensible à la casse
Dim fs As Object, oFiles As Object, feuille As Object, Mois$, pFld$
Set fs = CreateObject("Scripting.FileSystemObject")
'Mois = InputBox("Mois en cours?")
Mois = "15_05_14"
pFld = ThisWorkbook.Path & "\" '& Mois 'chemin de mon dossier
If fs.FolderExists(pFld) Then
Set oFiles = fs.GetFolder(pFld).Files
For Each feuille In oFiles
If feuille.Name Like "CL" & Mois & " v*.xlsx" Then
Workbooks.Open feuille
Exit For
End If
Next
End If
Set fs = Nothing
Set oFiles = Nothing
End Sub
Merci d'avance pour votre intervention.
A +
Bougla