Renvoyer des valeurs EXCEL vers WORD

[Nino63]

Bonjour,

Une nouvelle fois je fais appelle aux super experts du forum :
J'ai besoin de renvoyer des valeurs saisi dans Excel (exemple : A1:Monsieur; A2 : TOTO; A3 : 2 rue du moulin...) vers un texte sous word; certainement issus d'un modèle de base

Exemple :

Il était un fois,

"Valeur A1" "Valeur A2" est très gentil. Il habite "Valeur A3". Bla bla bla
Bla bla bla

Au revoir

L'opération de transfert d'information devra certainement se faire par un bouton de commande (ex : "Envoie des valeurs")

J'espère être assez clair.

Evidemment, je vous remercie par avance.
A charge de revanche.

 

[Dranreb]

Re : Renvoyer des valeurs EXCEL vers WORD

Bonjour.
Le presse papier ferait-il l'affaire ?

Property Get PressePapier() As String
Dim DOb As New DataObject
DOb.GetFromClipboard: PressePapier = DOb.GetText
End Property
Property Let PressePapier(Z As String)
Dim DOb As New DataObject
DOb.SetText Z: DOb.PutInClipboard
End Property

PressePapier s'utilise comme une variable String sauf qu'y affecter une valeur revient à faire Ctrl+C d'un texte sélectionné qui aurait la valeur affectée. Devrait pouvoir se mettre aussi dans word pour récupérer la valeur.
Par contre je ne connais rien aux objets et entités Word.
Cordialement

 

[f69815]

Re : Renvoyer des valeurs EXCEL vers WORD

bonjour Nino63 , dranreb,
deux liens qui peuvent t'aider
Les formulaires
FAQ MS-Excel

 

[hoerwind]

Re : Renvoyer des valeurs EXCEL vers WORD

Bonjour,

Je ne suis que très novice en Word, mais j'ai essayé ceci, et cela semble bien fonctionner :

Sous Excel :
A1: Monsieur
A2 : TOTO
A3 : 2 rue du moulin
B1 : =A1&" "&A2&" est très gentil. Il habite "&A3&", bla, bla, bla"

Copier B1 et le coller à l'endroit désiré sous la feuille Word.
Cliquer sur le bouton (icône) à droite du collage et cocher la 4ème ou 5ème case à cocher de la liste déroulante, suivant que la mise automatique est souhaitée ou non.