Macro pour ouverture de fichier

S

sylsyl

Guest

• 8 Décembre 2003

• #2

Salut Hamid,

la methode est
MonChemin=application.getopenfilename()
workbooks.open MonChemin

regarde l'aide Excel sur GetOpenFilename pour les options...

A++, Sylsyl.

 

Vote positif 0 Vote négatif

M

Michael

Guest

• 8 Décembre 2003

• #3

' Choix du fichier de base

Dim CurrentPath As String
Dim FileToOpen As Boolean

CurrentPath = CurDir
ChDir "C:\EXEMPLE"
FileToOpen = Application.Dialogs(xlDialogOpen).Show("*.xls")
ChDir CurrentPath

 

Vote positif 0 Vote négatif

H

Hamid

Guest

• 8 Décembre 2003

• #4

Merci. C'est ce que je voulais. Mon application fonctionne correctement.

A bientôt.

 

Vote positif 0 Vote négatif