hcs
Messages postés3Date d'inscriptionvendredi 18 octobre 2002StatutMembreDernière intervention18 octobre 2002 18 oct. 2002 à 13:45
merci de ta réponse, mais de facon plus precise, je souhaite rajouter une chaine de caractere dans un fichier word sans l'ouvrir avec WORD(pas d'affichage à l'écran), mais à partir d'un programme developpé.
l'exemple que tu me donnes ouvre le fichier à l'écran
hcs
Messages postés3Date d'inscriptionvendredi 18 octobre 2002StatutMembreDernière intervention18 octobre 2002 18 oct. 2002 à 13:45
merci de ta réponse, mais de facon plus precise, je souhaite rajouter une chaine de caractere dans un fichier word sans l'ouvrir avec WORD(pas d'affichage à l'écran), mais à partir d'un programme developpé.
l'exemple que tu me donnes ouvre le fichier à l'écran
Badclown
Messages postés162Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention22 mars 2004 18 oct. 2002 à 14:03
Sans ouvrir word c'est casiment impossible. Mais tu peux coutourner le probleme en ouvrant word de manière invisible et en lui envoyer des commandes. L'utilisateur n'y verras rien du tout et c'est pas compliqué à réaliser.
D'abord ouvrir word en arrière plance:
Dim objWord As Object
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear 'Clear error
Set objWord = CreateObject("Word.Application")
End If
Après si tu veux lui faire faire une action, tu fait ce que tu veux faire sous word en enregistrant comme en macro tu reprend le code que word a creer et tu rajoute objword. exemple:
objword.documents.Open(FileName:="monfichier.doc, ReadOnly:=True)
Voila j'espère que ca va t'aider.
p.s. si tu vx en cour de debogage voir ce que fait word tu tape objword.visible=true dans la fenetre d'execution