ouverture fichier

A

arnaud

Guest

• 17 Septembre 2004

• #2

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

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 17 Septembre 2004

• #3

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

merci

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 17 Septembre 2004

• #4

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

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 17 Septembre 2004

• #5

Super,

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


merci Arnaud et A+

Loulou

 

Vote positif 0 Vote négatif