rendre un nom de fichier variable

[lesuisse]

Bonjour à toutes et à tous,

Dans mon code, je fais ouvrir un fichier par l'utilisateur. Le fichier n'a jamais le même nom.
Je souhaiterai rendre le nom de ce fichier variable dans la mesure où je jongle entre les 2 fichiers.


Application.Dialogs(xlDialogOpen).Show

activeworkbook.name = COUCOU (Là, ça coince...)
COUCOU.activate (par exemple)

Merci pour votre aide.

lesuisse très suisse aujourd'hui

 

[sab]

bonjour lesuisse très suisse aujourd'hui,

est ce cla irait ?

Dim fichier
fichier = Application.GetOpenFilename("(*.xls),*.xls", , "sélectionner un fichier", , True)
If VarType(fichier) = vbBoolean Then
MsgBox "vous n'avez sélectionner aucun fichier!"
Exit Sub
End If

sab