Ouverture Fichier

[al1000]

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+

 

[PascalXLD]

Re : Ouverture Fichier

Bonjour

Fichier = Application.InputBox("Nom du fichier?", "Ouvrir", Type:=1)
If Fichier = False Then Exit Sub
'Vérifie que le fichier existe
Fichier=MonthName(Fichier)
Fichier = "L:\dia\données\aa" & Fichier & "2006.xls"

Bon courage

 

[al1000]

Re : Ouverture Fichier

BONJOUR

ma macro se bloque sur month date

pourquoi?


a+

 

[PascalXLD]

Re : Ouverture Fichier

re

ce n'est pas month date mais monthname

 

[al1000]

Re : Ouverture Fichier

Fichier = MonthName(Fichier)

excact

c'etait bien monthname, mais la macro se boque toujours

 

[PascalXLD]

Re : Ouverture Fichier

re

Quelle erreur tu as ??

 

[al1000]

Re : Ouverture Fichier

bonsoir

ma macro se bloque sur cette ligne

 

[PascalXLD]

Re : Ouverture Fichier

Re

tu peux envoyer le fichier STP

 

[al1000]

Re : Ouverture Fichier

voici un extrait


a+

 

[PascalXLD]

Re : Ouverture Fichier

Re

excusez moi mais je ne vois aucune trace du code

 

[al1000]

Re : Ouverture Fichier

Bonsoir,

voir le message ci dessous

a+

 

[al1000]

Re : Ouverture Fichier

bonsoir

j'ai la macro dans un fichier et on doit ouvrir le fichier du mois demande

a+

 

[al1000]

Re : Ouverture Fichier

bonsoir

la macro de recherche du mois fonctionne

merci

bonne nuit