ouverture fichier avec une macro

al1000 · 9 Avril 2008

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 · 9 Avril 2008

Re : ouverture fichier avec une macro

bonsoir

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

Code:

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

ouverture fichier avec une macro

al1000

XLDnaute Impliqué

Roland_M

XLDnaute Barbatruc

Discussions similaires