Salut le forum
Supplément d'information
L'utilisation de Application.Dialogs(xlDialogOpen) est très commode lorsque l'on souhaite effectivement ouvrir un fichier. Si on veut simplement faire choisir un fichier à l'utilisateur, sans forcément avoir besoin de l'ouvrir, il vaut mieux utiliser GetOpenFileName (qui affiche la boite de dialogue, mais n'ouvre pas le fichier sélectionné). La fonction renvoie le nom complet du fichier sélectionné (ou bien False si rien n'a été sélectionné) :
nomfich = Application.GetOpenFilename
If nomfich = False Then Exit Sub
MsgBox "vous avez sélectionné le fichier " & nomfich & _
" qui pèse " & FileLen(nomfich) & " octets"
Mytå