basamir
Messages postés335Date d'inscriptionvendredi 21 octobre 2005StatutMembreDernière intervention 8 mars 2008
-
24 avril 2007 à 20:31
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 2016
-
25 avril 2007 à 11:19
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
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 24 avril 2007 à 21:16
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
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 24 avril 2007 à 20:56
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 !