Renvoyer une valeur excel dans Word

[dodineau]

bonjour,
voila mon problème.
J'ai un document exel qui comporte une date dans une case A1.
Je voudrais renvoyer cette date dans un document Word existant, à un endroit précis que j'ai signalé par un signet.
Avec une macro, je réussis à ouvrir mon doc Word mais je ne sais pas comment atteindre le signet pour y placer ma valeur de date.

Merci de m'aider.

A+

 

[Creepy]

Bonjour le Forum, Dodineau

Justement je suis dans Word et les signets pour le boulot.

Voici le code :

WordApp.Selection.GoTo What:=wdGoToBookmark, Name:='DATE_CREATION'
    With WordApp.ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    WordApp.Selection.TypeText Text:=frm_donnees_FT.lbl_dt_creation_cec.Caption

@+

Creepy

 

[MichelXld]

bonjour

ci joint un autre exemple qui transfert le contenu de la cellule A1 dans un signet nommé 'monSignet'


Sub exportDonneesDansSignetWord()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject('word.application') 'ouvre session word
Set WordDoc = WordApp.Documents.Open('C:\\monFichier.doc') 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

WordDoc.Bookmarks('monSignet').Range.Text = Range('A1')

WordApp.Visible = True 'affiche le document Word
'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub


bon week end
MichelXld

 

[dodineau]

Merci pour vos réponses rapides.
Je vais essayer vos solutions la semaine prochaine pour mon boulot.
A+

 

[dodineau]

Bonjour,
Je viens de tester la solution de michelxld.
Ca marche pour le renvoi de la valeur mais le problème est que le signet prédéfini disparait.
Moi ce que je voudrais c'est pouvoir mettre la valeur à la place du signet ET garder la définition de celui-ci pour pouvoir renvoyer une autre valeur par la suite.
Merci pour vos conseils.
A+

 

[MichelXld]

bonjour

je viens de refaire un essai et chez moi le signet ne disparait pas lors de l'insertion des données par macro
mais nous ne parlons peut etre pas de la meme chose


tu pourrais peut etre remplacer le signet par un champ personnalisé , qui permet de remplacer une donnée plus facilement dans un document

Sub exportDonneesDansChampWord()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject('word.application') 'ouvre session word
Set WordDoc = WordApp.Documents.Open('C:\\\\\\\\monFichier.doc') 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation

'Fields(1) : premier champ du document Word
WordDoc.Fields(1).Result.Text = Range('A1')

WordApp.Visible = True 'affiche le document Word
'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub


bonne journée
MichelXld

 

[dodineau]

Bonjour,
je voudrais essayer de mettre un champ perso mais je ne sais pas comment faire dans word 2000.
Merci de m'expliquer.

A+

 

[dodineau]

Bonjour,
MichelXLD, j'ai utilisé les fonctions :
Set WordApp = CreateObject('word.application') 'ouvre session word
Set WordDoc = WordApp.Documents.Open('C:\\\\monFichier.doc') 'ouvre document Word
Mon problème est que le fichier que j'ouvre est un modèle c:\\monfichier.DOT, donc je voudrais savoir comment ouvrir ce fichier en temps que nouveau fichier vierge.DOC et non ouvrir le modèle.

Merci pour votre aide.
A+