Discussion :

[kyros21]

Bonjour à tous, alors voila, j'ai un petit souci, car je voudrais automatisé une manip que je fais en vba, mais je ne sais pas du tout comment faire.

En réalité je travaille sur un fichier extrait de SAP en XLS. or ce fichier si j'ouvre excel et ouvre le fichier à l'intérieur d'excel, m'ouvre un assistant d'importation de texte, et me corrige tout les formats des chiffres présents dans le fichier. Car sans cet assistant d'importation les chiffres sont mal interpréter par Excel ( virgule pas au bon endroit, format standard appliqué sur tout, même les chiffres.

En bref, il me faut absolument passer par cet assistant à l'ouverture de ce fichier, ma macro effectue déja l'ouverture de ce fichier en automatique, mais bien évidemment je m'apercois que l'assistant ne fait pas son boulot quand l'ouverture est en vba.... comment faire pour automatiser cet assistant et sauvegarder ensuite le fichier.

J'ai déja fait un enregistrement macro, mais cela ne fonctionne quand meme pas, je vous met le code enregistrer ci après.


Merci pour votre aide

[kyros21]

c'est bon j'ai trouvé une solution:

pour ceux que sa interesse, je force l'assistant grace à :

Code :

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

1
2
3
4
5
6
7
Workbooks.OpenText Filename:= "Nom de workbook"_ 
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
        False, 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), Array(12, 1), Array(13, 1), Array(14, 1), _
        Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1))

et la sa fonctionne parfaitement .
Merci