Macro Excel : ouverture d'un fichier .txt

Bonsoir à tous,

Voilà, je me lance dans la programmation de macro sous excell via VBA. Dans l'ensemble, c'est pas très compliqué (surtout pour ce que je veux faire) quand on connait un peu de programmation.

Pourtant, j'avoue que j'aimerai comprendre pourquoi la macro suivante (que j'ai récupéré dans une autre macro) marche pour ouvrir un fichier .txt et l'affiche dans excell. Voici les lignes:

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Pfad   Pfad = Application.GetOpenFilename(fileFilter:="*,*", MultiSelect:=True) a = 1   Workbooks.OpenText Filename:=Pfad(a), Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ , Comma:=False, Space:=False, Other:=True, OtherChar:="=", FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True

---

(les 4 dernières lignes se sont que des options...)

Et pourquoi celle-ci ne marche pas:

Code:

---

1 2 3 4 5 6

Application.Dialogs(xlDialogOpenText Filename:= _ "fichier", _ Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ , Comma:=False, Space:=False, Other:=True, OtherChar:="=", FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True).Show

---

Ce que je comprends vraiment pas, c'est à quoi sert la variable "a" dans le nom du fichier et pourquoi faut il prévisualiser le fichier.

Voilà, si vous avez des idées, merci d'avance.

Johann

Configuration: Windows Vista
Firefox 3.0.5

bonsoir,


les _ , sont à placer en fin de ligne lorsqu'une ligne de code et trop longue et que tu veux l'afficher sur deux lignes.

la variable a, est un index , à 1 car en mode multiselect (plusieurs fichiers selectable en même temps) GetOpenFileName renvoi un tableau de fichier, le permet d'extraire le 1° (ou 2° si le tableau commence à l'index 0 ) fichier sélectionné.

Merci JackOuya,

Ta réponse est très claire, du moins en ce qui concerne la variable a et GetOpenFileName. :lol: C'est beaucoup plus clair!!!:king:

Par contre, en ce qui concerne les _, si je met le code suivant, j'ai toujours une erreur :oops::

Code:

---

1 2 3 4 5 6

Application.Dialogs(xlDialogOpenText Filename:="fichier" , _ Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ , Comma:=False, Space:=False, Other:=True, OtherChar:="=", FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1) _ , Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True).Show

---

Je sais que je cherche la petite bete :mouarf:, mais je comprends toujours pas pourquoi ca ne fonctionne pas. Il y a des "_" qu'en fin de ligne; cela veut t il dire que l'on ne peut pas ouvrir un fichier ".txt" à l'aide de "Application.Dialogs(xlDialogOpenText)"

Merci

Johann

Tu mélanges deux choses:
L'affichage du dialogue d'une part et l'ouverture du fichier d'autre part.

L'ouverture du fichier doit se faire avec le résultat du dialogue.
Autrement dit, après le .Show.

Merci AlainTech pour cette nouvelle précision, je commence à y voir plus clair!!

Donc, si je comprends bien, il me faut d'abord faire:

Code:

---

Application.Dialogs(xlDialogOpen).Show

---

Pour afficher le dialogue et ensuite faire:

Code:

---

1 2 3 4 5 6

Workbooks.OpenText Filename:=file, Origin:=xlMSDOS, StartRow:=1 _ , DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False _ , Comma:=False, Space:=False, Other:=True, OtherChar:="=", FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),_ Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True

---

Pour ouvrir le fichier .txt dans le format que je veux.

Dans ce cas se pose à moi un nouveau problème (désolé, mais je suis vraiment débutant...), comment faire pour donner un nom à mon fichier que je choisis dans la boite de dialogue pour appliquer le "format" d'ouverture au fichier précédemment sélectionné?

Merci d'avance

Johann

Bonjour,

Code:

---

Application.Dialogs(xlDialogOpen).Show

---

combine l'affichage l'affichage de la boite de dialogue et l'ouverture du fichier, mais ne te donne pas accés au fonctions de formatage.

pourquoi as tu abandonné GetOpenFileName :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim yaMonFichier Dim yaWK As Workbook yaMonFichier = Application.GetOpenFilename If yaMonFichier <> False Then Set yaWK = Workbooks.Open(.OpenText Filename:= yaMonFichier,Origin:=xlMSDOS, StartRow:=1 _ , DataType:=xlDelimited, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False,Semicolon:=False _ , Comma:=False, Space:=False, Other:=True, OtherChar:="=", FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1),_ Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=Truer) 'ICI tu peu agir sur ton classeur avec la variable yaWk : msgbox yaWk.sheets(1).range("A1")     End If

---

tu dis quoi ...

Je dis Merci beaucoup Jacques.

Je n'ai pas abandonné le "getOpenFileName",
c'est juste que je pense qu'il est important de savoir et comprendre pourquoi ca ne marchait pas: opn apprend plus de nos erreurs :D

Dans tous les cas, merci beaucoup, et j'aurais surement d'autres questions, mais plus tard :roll:

Johann