Bonjour,
je parviens grâce à ce forum à:
Copier des données dans un fichier Excel
Ouvrir un fichier Word
Coller les données copiées
Les formater dans Word.
Parfait... jusqu´ici
Une fois ceci effectué je souhaiterais
ajouter de nouvelles données de ce même fichier Excel dans le même fichier Word
sans "créer un nouvel objet Word", qui est ouvert,
sans ouvrir le fichier Word, il est également déjà ouvert.
En me renseignant j´ai bricolé l´introduction suivante, mais dès que la macro parvient à
un bloc
"With wrdAppli.selection "(ou autre extension)
le message d´erreur "Variable objet ou variable de bloc-objet non défini"
(ce message est une libre traduction du message allemand que je recois, travaillant sur une version allemande"
J´ai l´impression que la bibliothèque Word est disponible.
Je tourne en rond depuis quelques heures.
Je serais reconnaissant à une bonne âme qui voudrait bien me sortir de mon trou.
Bonne soirée
jp
Public Sub briefvorbereitung2()
Dim wrdAppli As Word.Application
Dim docexistant As Word.Document
Sheets("kalkulation").Activate 'feuille dans mon fichier Excel ouvert
Selection.Copy
Set wrdAppli = GetObject(, "Word.Application")
Set docexistant = GetObject("c:\briefjpc.doc")
Cette dernièr ligne semble ne pas porter ses fruits
En effet tout se passe comme si VBA ne reconnaissait pas le fichier ouvert.
En faisant d´autres tests j´ai des messages me disant que le nom du fichier est incorrect, ou qu´il n´y a aucun fichier ouvert...
With wrdAppli
.Selection.TypeParagraph 'message d´erreur "Variable objet ou variable de bloc-objet non défini"
End With
With wrdAppli.Selection
.EndKey Unit:=wdStory
.TypeParagraph
.TypeParagraph
End with
En desespoir de cause je sauvegarde le fichier, je quitte word, puis j´ouvr á nouveau word et mon fichier pour rajouter du texte venant d´Excel. Cela fonctionne mais ce n´est pas élégant.
je parviens grâce à ce forum à:
Copier des données dans un fichier Excel
Ouvrir un fichier Word
Coller les données copiées
Les formater dans Word.
Parfait... jusqu´ici
Une fois ceci effectué je souhaiterais
ajouter de nouvelles données de ce même fichier Excel dans le même fichier Word
sans "créer un nouvel objet Word", qui est ouvert,
sans ouvrir le fichier Word, il est également déjà ouvert.
En me renseignant j´ai bricolé l´introduction suivante, mais dès que la macro parvient à
un bloc
"With wrdAppli.selection "(ou autre extension)
le message d´erreur "Variable objet ou variable de bloc-objet non défini"
(ce message est une libre traduction du message allemand que je recois, travaillant sur une version allemande"
J´ai l´impression que la bibliothèque Word est disponible.
Je tourne en rond depuis quelques heures.
Je serais reconnaissant à une bonne âme qui voudrait bien me sortir de mon trou.
Bonne soirée
jp
Public Sub briefvorbereitung2()
Dim wrdAppli As Word.Application
Dim docexistant As Word.Document
Sheets("kalkulation").Activate 'feuille dans mon fichier Excel ouvert
Selection.Copy
Set wrdAppli = GetObject(, "Word.Application")
Set docexistant = GetObject("c:\briefjpc.doc")
Cette dernièr ligne semble ne pas porter ses fruits
En effet tout se passe comme si VBA ne reconnaissait pas le fichier ouvert.
En faisant d´autres tests j´ai des messages me disant que le nom du fichier est incorrect, ou qu´il n´y a aucun fichier ouvert...
With wrdAppli
.Selection.TypeParagraph 'message d´erreur "Variable objet ou variable de bloc-objet non défini"
End With
With wrdAppli.Selection
.EndKey Unit:=wdStory
.TypeParagraph
.TypeParagraph
End with
En desespoir de cause je sauvegarde le fichier, je quitte word, puis j´ouvr á nouveau word et mon fichier pour rajouter du texte venant d´Excel. Cela fonctionne mais ce n´est pas élégant.
Dernière édition:
