Ouvir un fichier et recuperer son chemin

Bonjour Redalert;
Quelque chose comme:

Sub ChooseFile()
Dim n As Variant
n = Application.GetOpenFilename("Fichiers Microsoft Excel
(*.xls;*.xla;*.xlt),*.xls;*.xla;*.xlt")
If Len(n) < 8 Or IsOpen(n) Then Exit Sub
MsgBox n, 64
Workbooks.Open n
MsgBox ActiveSheet.Name, 64
End Sub

Private Function IsOpen(ByVal FileName$) As Boolean
On Error Resume Next
Dim f%: f = FreeFile
Open FileName For Random Access Read Write Lock Read Write As f
IsOpen = CBool(Err > 0)
Close f
End Function

MP

"REDALERT" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:071f01c48b47$a50343d0$a301280a@phx.gbl...
Bonjour à tous,

Et oui il n'arrete pas de pleuvoir donc c'est un plaisir
de faire des macros.
J'aurais voulu un bout de code pour ouvrir un fichier xls
(par une boite de dialogue), recuperer le nom du fichier
mais egalement le nom de la feuille xls du fichier pour
pouvoir les utiliser dans une macro bien evidement.
Je suis sur que vous avez tous ca en stock
Merci pour tous les gens qui m'aident tous les jours et
d'avance pour cette demande.
allez bye

Merci bcp
c exactement de ca que j'avais besoin!!
allez bonne journee

-----Message d'origine-----
Bonjour Redalert;
Quelque chose comme:

Sub ChooseFile()
Dim n As Variant
n = Application.GetOpenFilename("Fichiers Microsoft Excel
(*.xls;*.xla;*.xlt),*.xls;*.xla;*.xlt")
If Len(n) < 8 Or IsOpen(n) Then Exit Sub
MsgBox n, 64
Workbooks.Open n
MsgBox ActiveSheet.Name, 64
End Sub

Private Function IsOpen(ByVal FileName$) As Boolean
On Error Resume Next
Dim f%: f = FreeFile
Open FileName For Random Access Read Write Lock Read
Write As f

IsOpen = CBool(Err > 0)
Close f
End Function

MP

"REDALERT" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news:071f01c48b47$a50343d0$a301280a@phx.gbl...
Bonjour à tous,

Et oui il n'arrete pas de pleuvoir donc c'est un plaisir
de faire des macros.
J'aurais voulu un bout de code pour ouvrir un fichier xls
(par une boite de dialogue), recuperer le nom du fichier
mais egalement le nom de la feuille xls du fichier pour
pouvoir les utiliser dans une macro bien evidement.
Je suis sur que vous avez tous ca en stock
Merci pour tous les gens qui m'aident tous les jours et
d'avance pour cette demande.
allez bye


.