[VB6] Commande pour ouvrir un TXT avec Excel

Version imprimable

16/05/2006, 11h11
quaife

[VB6] Commande pour ouvrir un TXT avec Excel

Bonjour tout le monde ;)

Je ne trouve pas la ligne de commande (ou plutôt les paramètres de la commande "ShellExecute") pour lancer Excel avec un document TXT.

Celui ci étant constitué d'infos avec séparateur ";" le but serait d'arriver dans Excel sur la fenêtre "Assistant Importation de Texte" pour n'avoir plus qu'à choisir le type de séparateur.

Si quelqu'un peut m'aider ;)
Merci d'avance :)
16/05/2006, 14h13
Megaxel

Salut!
Et si tu le faisais "à la main" en enregistrant une macro (Fichier...Ouvrir...)... Tu n'aurais plus qu'à regarder et interpréter le code pondu automatiquement.
A mon humble avis, tu ne seras pas loin de ce que tu cherches à faire.
Et je ne comprend pas ce que tu veux faire avec ShellExecute.
16/05/2006, 14h56
zazaraignée

Salut vous deusse

Citation:

Envoyé par Megaxel

Et je ne comprend pas ce que tu veux faire avec ShellExecute.

C'est parce qu'il code en VB6 et qu'il n'a probablement pas ajouté la référnece à Excel dans son projet.

J'avoue que moi aussi, histoire de ne pas trop me casser les méninges, j'aurais probablement exploré l'avenue ShelExecute.

quaife, donne nous un peu de ton code, spécifiquement là où ça plante, et on verra ce qu'on peut faire.
17/05/2006, 12h04
quaife
Salut ;)

Pour vous répondre, enregistrer une macro à partir d'Excel ne me sert à rien. Car comme l'a dit Zazaraignée, je lance Excel à partir de mon appli VB6.

Et le code ne vous avancera pas plus, car le ShellExecute fonctionne bien avec un document XLS.

Exemple :
Code:

1 2 RetVal = ShellExecute(hwnd, vbNullString, CheminTableur & NomFichier.XLS, _ "", vbNullString, 1)
Fonctionne très bien.

Mais :
Code:

1 2 RetVal = ShellExecute(hwnd, vbNullString, CheminTableur & NomFichier.TXT, _ "", vbNullString, 1)
Ne fonctionne pas.
17/05/2006, 12h39
ouskel'n'or

J'en conclus que Megaxel n'a pas tout à fait tort... Pour ouvrir un fichier texte depuis Excel, il faut une commande Excel, même si tu l'appelles depuis VB6
Mais si tu n'as pas trouvé, ce sera après le repas.
Bon app

A+
17/05/2006, 13h13
SfJ5Rpw8

Quand tu dis "Ne fonctionne pas" cela fait quoi au juste ? et ton code est incomplet on sais pas ce qu'il y as dans "CheminTableur"
17/05/2006, 13h58
quaife

Citation:

Envoyé par bbil

Quand tu dis "Ne fonctionne pas" cela fait quoi au juste ?

La ligne s'exécute sans erreur, mais Excel ne se lance pas :?.
Alors que si je mets un fichier XLS, Excel démarre correctement.

Citation:

Envoyé par bbil

ton code est incomplet on sais pas ce qu'il y as dans "CheminTableur"

CheminTableur contient le chemin de l'exécutable d'Excel.

Sous VBA, la syntaxe pour ouvrir un fichier texte avec pt-vigules pour séparateurs :
Code:

1 2 3 4 Workbooks.OpenText FileName:="C:\MVS.txt", Origin:=xlWindows, StartRow:=1 _ , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True
Tu instancies l'appli avant de l'appeler et là, tu peux ouvrir ton fichier txt.
Un spécialiste VB te donnera mieux que moi la syntaxe ;)
Si tu ne trouves personnes, je verrai ça ce soir (pas VB ici)
A+

18/05/2006, 09h40
quaife

Salut ;)

En ce qui me concerne, j'ai toujours rien trouvé :?
Si demain soir, personne n'a pu m'aider, je mettrai le code que j'ai utilisé pour contourner mon problème 8-)
(Ca pourra peut être servir !!!)

Mais dans ce cas là, il faudra créer un nouveau tag "Semi résolu" :lol: ;)
18/05/2006, 18h45
AlainTech

Avant de chercher à le faire par programme, essaye de le faire dans la console DOS.

Je viens d'essayer et ça fonctionne très bien dans les 2 cas (.xls et .txt).

Il faut toutefois savoir que dès qu'il y a un espace dans une chaîne, il faut entourer cette chaîne de guillemets.

Edit --> Ce qui donne, pour un de mes essais:

Code:

C:\>"C:\Program Files\Microsoft Office\OFFICE11\excel.exe" "D:\PRG\codes prevention.xls"

Fonctionne aussi bien avec un .xls qu'un .txt.

Je suppose donc que le fichier texte que tu appelles doit contenir un ou des espaces dans son nom et/ou chemin d'accès.
19/05/2006, 11h40
quaife

Effectivement en DOS cela fonctionne (même s'il ne me propose pas de prendre en compte les séparateurs) mais cela ne fonctionne pas si je fais un ShellExecute avec la même syntaxe :?
19/05/2006, 20h03
SfJ5Rpw8

tu as essayé avec shell (tout court..)

Hello tout le monde ;)

Alors avec un peu de retard ...

La commande Shell fonctionne bien. Excel ouvre bien le fichier TXT, mais il ne tient pas compte du séparateur décimal.
Si l'utilisateur veut classer ses données, il lui suffit de sélectionner la première colonne et de cliquer sur "Données" "Convertir". Je n'ai pas cherché plus loin, car ceci est amplement suffisant pour nos utilisateurs :)

Sinon, j'avais trouvé comment alimenté un classeur avec les infos contenues dans un fichier TXT. Je le mets car cela pourra peut être intéresser quelqu'un ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
    Dim Appli As New Application
    Dim Ligne As String
    Dim LigneExcel As Integer
    Dim PointVirgule1, PointVirgule2, PointVirgule3 As Integer
    Dim Long1, Long2, Long3 As Integer
    Dim Data1, Data2, Data3 As String
 
    Screen.MousePointer = vbArrowHourglass
    Open NomFichTXT For Input As #1
 
    'Créer un nouveau classeur EXCEL initialisé à la ligne 1
    Appli.Workbooks.Add.Activate
    LigneExcel = 1
 
    'Inscrire le contenu du fichier texte dans la feuille 1 du classeur EXCEL
    Do While EOF(1) = False
        Line Input #1, Ligne
 
        'Rechercher la position des points virgules
        PointVirgule1 = InStr(1, Ligne, ";")
        PointVirgule2 = InStr(PointVirgule1 + 1, Ligne, ";")
        PointVirgule3 = InStr(PointVirgule2 + 1, Ligne, ";")
 
        'Affecter les données
        Data1 = "'" & Mid(Ligne, 1, PointVirgule1 - 1)
        Data2 = "'" & Mid(Ligne, PointVirgule1 + 1, (PointVirgule2 - PointVirgule1 - 1))
        Data3 = "'" & Mid(Ligne, PointVirgule2 + 1, (PointVirgule3 - PointVirgule2 - 1))
 
        'Affecter les Data dans les cellules de la feuille 1
        Appli.ActiveWorkbook.Worksheets("Feuil1").Cells(LigneExcel, 1) = Data1
        Appli.ActiveWorkbook.Worksheets("Feuil1").Cells(LigneExcel, 2) = Data2
        Appli.ActiveWorkbook.Worksheets("Feuil1").Cells(LigneExcel, 3) = Data3
        LigneExcel = LigneExcel + 1
    Loop
    Close #1
 
    'Rendre visible EXCEL
    Appli.Visible = True