ouverture fichier avec une macro

al1000

XLDnaute Impliqué
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
6
Affichages
297

Statistiques des forums

Discussions
311 997
Messages
2 084 452
Membres
102 580
dernier inscrit
DESIRE PATRICK