ouverture fichier avec une macro

[al1000]

bonjour,

je voudrais ouvrir un fichier mais en sélectionnant tous les fichier

puis "workbooks.open filname: " pour ouvrir.


comment faire pour sélectionner tous les fichiers?


a+

 

[Roland_M]

Re : ouverture fichier avec une macro

bonsoir

fais des essais avec ceci(mis en peu en vrac) mais tu comprendras vite

Sub FileOpenXXX()
FileOpen = Application.GetOpenFilename("Tous les fichiers (*.*),*.*", , "SELECTIONNER UN REPERTOIRE", True)
MsgBox FileOpen
If FileOpen = False Then Exit Sub
'Repertoire = CurDir '=chemin seul
'fileOpen '=chemin\fichier sélectionné
'NomFichier = Dir("") '=nom du 1'fichier dans dir !?!
Application.Dialogs(xlDialogOpen).Show ' ouvre directement un fichier dans excel
End Sub

roland