Boite de dialogue ouvrir

1 réponse

Christian

11/09/2005 à 18:53

Bonjour,

j' importe des fichiers .txt sous excel en utilisant la boîte de dialogue
ouvrir de windows.
De cette facon je n'ouvre qu'un fichier texte bien spécifique. Celui que
j'ai séléctionné.
Je souhaite pouvoir en sélectionner deux en appuiyant sur la touche Ctrl,
mais comment y arriver par le code ???

Dim CHEMIN As String

CHEMIN = Application.GetOpenFilename

Workbooks.OpenText Filename:= _
CHEMIN, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth,
FieldInfo:=Array(Array(0, 1), Array(4, _
1), Array(35, 1), Array(45, 1), Array(52, 1),
Array(61, 1), Array(65, 1), Array(75, 1), _
Array(92, 1), Array(99, 1))

1 réponse

MPi

11/09/2005 à 20:01

Salut,

Si tu regardes l'aide concernant GetOpenFilename, tu verras que le dernier
paramètre est "Multiselect"

Il s'agit de le mettre à True pour pouvoir sélectionner plusieurs fichiers.
Maintenent, à toi de trouver comment tu vas gérer ces fichiers multiples...

Michel

"Christian" a écrit dans le message de
news:%

Bonjour,

j' importe des fichiers .txt sous excel en utilisant la boîte de dialogue
ouvrir de windows.
De cette facon je n'ouvre qu'un fichier texte bien spécifique. Celui que
j'ai séléctionné.
Je souhaite pouvoir en sélectionner deux en appuiyant sur la touche Ctrl,
mais comment y arriver par le code ???

Dim CHEMIN As String

CHEMIN = Application.GetOpenFilename

Workbooks.OpenText Filename:= _
CHEMIN, Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth,
FieldInfo:=Array(Array(0, 1), Array(4, _
1), Array(35, 1), Array(45, 1), Array(52, 1),
Array(61, 1), Array(65, 1), Array(75, 1), _
Array(92, 1), Array(99, 1))

Boite de dialogue ouvrir

1 réponse

Veuillez sélectionner un problème