Salut,
J'ai un problème concernant l'ouverture de plusieurs fichiers dans un répertoire. Je voudrais ouvrir tous les fichiers d'un répertoire mais ce répertoire doit pouvoir être choisi par l'utilisateur de mon programme (avec une InputBox par exemple). Je voudrais savoir comment rendre possible le choix du nom du répertoire et l'ouverture de tous les fichiers .xls qu'il contient.
Pour l'ouverture de mes fichiers contenus dans le répertoire choisi, j'ai écrit la macro suivante :
Dim File_Is As String
File_Is = Dir("M:\Deutschland\*.XLS" )
Do Until File_Is = ""
Workbooks.OpenText FileName:="M:\Deutschland\" & File_Is _
, Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False _
, Comma:=False, Space:=True, Other:=True, OtherChar:="*", FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 2), Array(4, 9), Array(5, 9), Array(6, 9), Array(7 _
, 9), Array(8, 9), Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9), Array(13, 9), Array _
(14, 9), Array(15, 9), Array(16, 9), Array(17, 2), Array(18, 2), Array(19, 9), Array(20, 9), _
Array(21, 9))
File_Is = Dir
Loop
Le nom du repertoire mis en rouge doit être le nom choisi par l'utilisateur.
J'espère que mon problème est exprimé clairement. Si vous avez une solution, je suis preneuse.
Merci.