Discussion :

[Waldner11]

Bonjour,
Je voudrais en visual basic (ou vba) une fonction(ou macro) qui remplace l'assistant importation de texte (sur un fichier.txt) et qui délimite ce fichier avec les ";" pour ensuite avoir un fichier excel.
[Quand vous faites fichier>ouvrir>fichier.txt>assistant importation de texte]
Si possible j'aimerais quelle s'éxecute automatiquement à l'ouverture de notre fichier excel.

Merci d'avance

[aalex_38]

Peut être est-il possible de faire l'importation manuellement tout en utilisant l'enregistreur de macro et ainsi obtenir un tout joli code adaptable à test besoins, ensuite s'il te reste quelques problèmes, dis le je fais beaucoup d'importation et d'exportation de texte.

[Waldner11]

Justement, je voudrais que tout soit automatique. A part l'ouverture du fichier excel. Je n'y connais rien en vb(vba).

[Ragmaxone]

Comme proposé plus haut : Outils/Macros/Enregistrer une nouvelle macro

Tu fais ça et ensuite tu importe le texte comme tu veux que cela soit fait automatiquement, et ensuite tu cliques sur le bouton stop qui est apparu.

Après dans VBE (Outils/Macro/Editeur Visual Basic) tu as un modul qui est créé et dedans une macro qui devrait faire ce que tu veux.

[Waldner11]

J'ai récupéré ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/05/2009 par ******
'
 
'
    Application.Goto Reference:="Macro1"
    ChDir "C:\Documents and Settings\******"
    Workbooks.OpenText Filename:= _
        "C:\Documents and Settings\******\condition.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, 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), Array(9, 1), _
        Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
End Sub

C'est cela que tu voulais me dire?

[Ragmaxone]

Oui.

Maintenant dans VBE tu as un fichier "ThisWorkBook", tu l'ouvres.

Après en haut de la fenêtre tu as un ComboBox marqué "Général", tu l'ouvre et tu choisis "WorkBook", ça va générer du code "Workbook_Open".
Dans la ligne vide entre les deux lignes générées tu écris "Call Macro1", tu enregistres le fichier excel, tu le fermes, et tu l'ouvre à nouveau.

[Waldner11]

J'ai l'impression que ça me crée un nouveau fichier excel (différents de celui que j'ai lancé). Je vais tester ça pour vérifier.