Ouverture de la boite de dialog fichier

Bonjour,

M'est avis que tu dois enlever:

" Lefichier = "

dans

Lefichier = Fichier = Application.GetOpenFilename
("Classeurs Excel (*.Xls),*.Xls")

"JPM" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1ed501c4bc30$e586b800$a301280a@phx.gbl...

Je n'arive pas a faire fonctioner cette macro

Sub JPM()
Dim Fichier
ChDrive "Y:"
ChDir "Y:USERSJPM"
Workbook.Open FileName:=Fichier

End Sub
Help!Help!
Help!
Help!

Salut

Sub JPM()
Dim leFichier
ChDrive "Y:"
ChDir "Y:USERSJPM"
leFichier = Application.GetOpenFilename _
("Classeurs Excel (*.Xls),*.Xls")
Workbooks.Open Filename:=leFichier
end sub

a+
rural thierry
"JPM" <anonymous@discussions.microsoft.com> a écrit dans le message de news:
1ed501c4bc30$e586b800$a301280a@phx.gbl...

Je n'arive pas a faire fonctioner cette macro

Sub JPM()
Dim Fichier
ChDrive "Y:"
ChDir "Y:USERSJPM"
Lefichier = Fichier = Application.GetOpenFilename
("Classeurs Excel (*.Xls),*.Xls")
Workbook.Open FileName:=Fichier

End Sub
Help!Help!
Help!
Help!

Bonjour JPM,

'--------------------
Sub JPM()

Dim Fichier As String

ChDrive "Y:"
ChDir "Y:USERSJPM"
Fichier = Fichier = Application.GetOpenFilename("Classeurs Excel (*.Xls),*.Xls")
If Fichier <> "Faux" Then
Workbook.Open Filename:=Fichier
End If

End Sub
'---------------------


Salutations!




"JPM" <anonymous@discussions.microsoft.com> a écrit dans le message de news:1ed501c4bc30$e586b800$a301280a@phx.gbl...
Je n'arive pas a faire fonctioner cette macro

Sub JPM()
Dim Fichier
ChDrive "Y:"
ChDir "Y:USERSJPM"
Lefichier = Fichier = Application.GetOpenFilename
("Classeurs Excel (*.Xls),*.Xls")
Workbook.Open FileName:=Fichier

End Sub
Help!Help!
Help!
Help!