Ouverture d'un fichier avec un nom non-constant
Résolu
Singele
Messages postés
52
Statut
Membre
-
Singele Messages postés 52 Statut Membre -
Singele Messages postés 52 Statut Membre -
Bonjour,
Je recherche un partie de code qui permettra d'ouvrir un fichier qui a un nom variable.
Dans mon cas le nom du fichier c'est "0912 ret au 1211.xls"
Je cherche à ouvrir le fichier qui commence par "0912" le reste n'a pas d'importance.
Je suis relativement novice en vba
Merci d'avance de votre aide.
Je recherche un partie de code qui permettra d'ouvrir un fichier qui a un nom variable.
Dans mon cas le nom du fichier c'est "0912 ret au 1211.xls"
Je cherche à ouvrir le fichier qui commence par "0912" le reste n'a pas d'importance.
Je suis relativement novice en vba
Merci d'avance de votre aide.
Sub Extraction()
If MsgBox("Etes-vous sûr de vouloir extraire les données", vbYesNo, "Demande de confirmation") = vbYes Then
Date_Lundi = Sheets("Ex_lundi").Range("B2")
MsgBox "La valeur est " & Date_Lundi & " "
'partie du code qui ne fonctionne pas
Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\("Date_Lundi")*.xls") If Fichier_Lundi <> "" Then
Workbooks.Open Filename:=Fichier_Lundi
Else
MsgBox "Fichier introuvable"
End If
End If
End Sub
1 réponse
-
Bonjour,
Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\" & Date_Lundi & "*.xls")
-
-
-
-
La variable Fichier_Lundi contient le NOM DU FICHIER ... mais pas le chemin vers celui ci...
Donc.. normal qu'il ne le trouve pas.
Il faut :Fichier_Lundi = Dir("C:\Users\david\OneDrive\CHI-W\2019\Test Macro\" & Date_Lundi &"*.xls") Fichier_Lundi = "C:\Users\david\OneDrive\CHI-W\2019\Test Macro\" & Fichier_Lundi -
-
