ouverture fichier

[loulou]

Bonjour a tous!

la macro ci-jointe, ne me permets pas d'ouvrir le fichier lorsque je clique dessus, quelqu'un peut -il m'expliquer pourquoi?

merci

Sub ouvrir_projet01()

ChDrive "y"
ChDir "Y:\PROJET01"
FileToOpen = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")

End Sub

 

[arnaud]

Salut ,

car il te donne le nom du fichier sélectionné ds ta variable FileToOpen mais tu n'en fais rien : c a toi de l'ouvrir

rajoute ça :

Application.Workbooks.Open FileToOpen

 

[loulou]

Merci Arnaud, mais peux-tu preciser ou je dois placer cette ligne de commande dans ma macro

merci

 

[arnaud]

re,

une bien une fois que tu as recupéré le nom du fichier a ouvrir donc comme ça :


Sub ouvrir_projet01()

ChDrive "y"
ChDir "Y:\PROJET01"
FileToOpen = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")

If fileToOpen <> False Then ' pour ne rien faire si click sur le bouton annulé
Application.Workbooks.Open FileToOpen
End If

End Sub

 

[loulou]

Super,

Enfin, ca marche, je te remercie pour ton aide sans laquelle je n'aurais pas reussi.


merci Arnaud et A+

Loulou