un problème ardu entre Excel et Word

bonjour André,

voilà un exemple,

Sub RenseignerWord()
Dim WW, Adresse As String
Adresse = ActiveCell.Address
Set WW = CreateObject("word.application")
WW.Visible = True
WW.Documents.Add
WW.Selection.TypeText Text:="" & Adresse
End Sub

isabelle

Bonjour à tous,
J'élabore des scénarios avec Excel, et je rédige le texte correspondant
avec Word.
Voici ce dont je rêve (ben quoi, c'est pas interdit ?) :
1/ cliquer sur une cellule dans Excel
2/ basculer vers Word
3/ coller dans Word, ni la formule, ni le résultat (ça je sais le
faire), mais les références de la cellule (B32, par exemple).
Est-ce que c'est possible ?
Personnellement, je ne vois vraiment pas comment.
André

Bonjour Isabelle, et merci de ton aide.
J'ai testé. Ca fonctionne...presque. La macro crée un nouveau document
word, et insère l'adresse de la cellule active en début de ce document.
Alors que moi, je voudrais bien sûr l'insérer dans le document Word
actif, à l'emplacement du curseur.
Tu crois que c'est faisable ?
André

bonjour André,

voilà un exemple,

Sub RenseignerWord()
Dim WW, Adresse As String
Adresse = ActiveCell.Address
Set WW = CreateObject("word.application")
WW.Visible = True
WW.Documents.Add
WW.Selection.TypeText Text:="" & Adresse
End Sub

isabelle

Bonjour à tous,
J'élabore des scénarios avec Excel, et je rédige le texte correspondant
avec Word.
Voici ce dont je rêve (ben quoi, c'est pas interdit ?) :
1/ cliquer sur une cellule dans Excel
2/ basculer vers Word
3/ coller dans Word, ni la formule, ni le résultat (ça je sais le
faire), mais les références de la cellule (B32, par exemple).
Est-ce que c'est possible ?
Personnellement, je ne vois vraiment pas comment.
André

bonjour André,

Bonjour Isabelle, et merci de ton aide.
J'ai testé. Ca fonctionne...presque. La macro crée un nouveau document
word, et insère l'adresse de la cellule active en début de ce document.
Alors que moi, je voudrais bien sûr l'insérer dans le document Word
actif, à l'emplacement du curseur.
Tu crois que c'est faisable ?

je crois bien que oui,

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
AppActivate "Microsoft Word"
End Sub

isabelle

Grand merci Isabelle !
Ca marche, impeccable !
Maintenant, le jour où tu ne sais pas quoi faire, peut-être pourrais-tu
réfléchir à la problématique suivante, à savoir mettre à jour le
document word lorsqu'on déplace une cellule Excel dont la référence
figure dans le document.
De sorte qu'on pourrait mettre à jour le document Word sans problème.
Mais peut-être que j'abuse, là...
Si oui, pardonne moi.
Sinon, tu me fais un devis !

André

bonjour André,

Bonjour Isabelle, et merci de ton aide.
J'ai testé. Ca fonctionne...presque. La macro crée un nouveau document
word, et insère l'adresse de la cellule active en début de ce document.
Alors que moi, je voudrais bien sûr l'insérer dans le document Word
actif, à l'emplacement du curseur.
Tu crois que c'est faisable ?

je crois bien que oui,

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
AppActivate "Microsoft Word"
End Sub

isabelle

re bonjour André,

il est sûrement possible d'intercepter un événement change ou calculate lorsqu'on déplace une cellule dans excel, mais
je crois qu'il serait beaucoup plus aisé d'introduire des champs lier dans le document word. je pense que c'est plus un
problème de concept qu'un problème de possibilité.

isabelle

Grand merci Isabelle !
Ca marche, impeccable !
Maintenant, le jour où tu ne sais pas quoi faire, peut-être pourrais-tu
réfléchir à la problématique suivante, à savoir mettre à jour le
document word lorsqu'on déplace une cellule Excel dont la référence
figure dans le document.
De sorte qu'on pourrait mettre à jour le document Word sans problème.
Mais peut-être que j'abuse, là...
Si oui, pardonne moi.
Sinon, tu me fais un devis !

André

bonjour André,

Bonjour Isabelle, et merci de ton aide.
J'ai testé. Ca fonctionne...presque. La macro crée un nouveau document
word, et insère l'adresse de la cellule active en début de ce document.
Alors que moi, je voudrais bien sûr l'insérer dans le document Word
actif, à l'emplacement du curseur.
Tu crois que c'est faisable ?

je crois bien que oui,

Sub RenseignerWord()
Dim WW As Object, Adresse As String
Adresse = ActiveCell.Address
Set WW = GetObject(, "word.application")
With WW
.Selection.TypeText Text:="" & Adresse
End With
AppActivate "Microsoft Word"
End Sub

isabelle