Bonjour,
voici ma macro:
Dim FichierCible As Workbook
Dim Fichier As Variant
'Demande le numéro du fichier souhaité
Fichier = Application.InputBox("Nom du fichier?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
'Vérifie que le fichier existe
Fichier = "L:\dia\données\aa" & Fichier & "2006.xls"
If Dir(Fichier) = "" Then
MsgBox "fichier non trouvé"
Exit Sub
End If
'Ouvre le fichier en lecture seule, sans mise à jour des liens
Set FichierCible = Workbooks.Open(Filename:=Fichier, UpdateLinks:=False, ReadOnly:=True)
mais le nom du fichier est janvier, octobre , decembre
comment faire pour que cette macro fonctionne?
a+
voici ma macro:
Dim FichierCible As Workbook
Dim Fichier As Variant
'Demande le numéro du fichier souhaité
Fichier = Application.InputBox("Nom du fichier?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
'Vérifie que le fichier existe
Fichier = "L:\dia\données\aa" & Fichier & "2006.xls"
If Dir(Fichier) = "" Then
MsgBox "fichier non trouvé"
Exit Sub
End If
'Ouvre le fichier en lecture seule, sans mise à jour des liens
Set FichierCible = Workbooks.Open(Filename:=Fichier, UpdateLinks:=False, ReadOnly:=True)
mais le nom du fichier est janvier, octobre , decembre
comment faire pour que cette macro fonctionne?
a+