Transfert de VB6 vers WORDRésolu

Question

bonjour,

je bute sur un problème de transfert de ma fauille en VB à Word, voici mon code:

Private Sub transfert_word_Click()
Dim Repfile$ As Word.Application
'prog en vb6
'Ouverture du fichier
Open Repfile$ For Output As #1

'Ecriture des infos dans le fichier
Print #1, "N° Pesée : " & Text4(9).Text;
Print #1, "N° Véhicule : " & Text4(0).Text
Print #1, "Produit : " & Text4(1).Text
Print #1, "Client : " & Text4(2).Text
Print #1, "Fournisseur : " & Text4(3).Text
Print #1, "Transporteur : " & Text4(4).Text
Print #1, "Bon de livraison : " & Text4(5).Text
Print #1, "TARE : " & Text4(6).Text
Print #1, "BRUT : " & Text4(7).Text
Print #1, "NET : " & Text4(8).Text

'Fermeture du fichier
Close #1

'Message fin traitement
MsgBox "Le Fichier " & Repfile$ & " vient d' être complété!"

'Ouverture du fichier sous word
Repfile$ = "C:\Program Files\Microsoft Office\Office\Winword.exe" & " " & Repfile$
RetVal = Shell(Repfile$, 1)
End Sub

l'erreur affiche qu'il y une erreur de déclaration sur cette ligne:
Dim Repfile$ As Word.Application

j'ai même enlevé $ et ça ne marche pas.

cs_Exploreur · Accepted Answer

Bonsoir à tous,

voici un petit exemple repris d'une de mes sources, certe peut-être pas optimisé mais fonctionnel, à toi d'en faire les modifes :

'Gestion des erreur
 On Error GoTo erreur
 
 Dim fichier As String
 
 fichier = "C:\Fiche.txt"


 'Demande un numéro de fichier non utiliser
  lFile = FreeFile
        
 'Ouvre le fichier 
  Open fichier For Append As #lFile


 'Sauvegarde
  Print #lFile, Text4(9).Text
 'Ferme le fichier(important)
  Close #lFile


 ' ouvre Word
  Set docword = CreateObject("word.application")




 ' True pour word visible et false pour le mettre en arrière plan
    docword.Visible = True
    docword.DisplayAlerts = False    'évite les erreurs de traitement
    docword.Documents.Open fichier 'ajoute un document vierge"
    Set docword = Nothing 'libération des ressources
    Exit Sub
    
erreur:
   'Fermeture de word si existant sur le pc
    If docword.Visible = True Then docword.application.quit
    Set docword = Nothing 'libération des ressources
    Exit Sub


A+
Exploreur

jmfmarques · Answer

Si Repfile$ est ouvert comme fichier texte (Open Repfile$ For Output As #1) il ne peut également être une "Word.Application" !!
On ne voit par ailleurs nulle part la valeuur de la chaîne de caractères Repfile$
On ne comprend enfin pas comme,t une chaîine de caractères pourrait, de près ou de loin, spécifier une application !

Bref ! Tu me donnes l'impression d'écrire sans vraiment comprendre (ou analyser) ce que tu écris ... pardonne-moi, mais c'est ainsi !

basamir · Answer

Comment dois je déclarer lFile car il l'en ai pas!

cs_Exploreur · Answer

Salut,

Integer..Je crois..

A+
Exploreur

Transfert de VB6 vers WORD

4 réponses

Votre réponse