Copier dans Word Coller dans Excel

[Pierrick1910]

Coucou à tous,

J'ai une chtite question :
J'ai un fichier Excel et un fichier Word ouvert en parallèle sur mon PC.
Je suis dans le fichier Excel.
Je voudrai y exécuter une macro qui aille dans Word, qui copie une ligne, puis qui revienne dans Excel et qui colle cette ligne.

Je ne retrouve plus le code pour basculer de l'un à l'autre qd ils sont ouverts. A aucun moment je ne veux les fermer ou enregistrer quoique ce soit !
Voili.
Merci de votre aide.

++

 

[Débutant]

Bonjour Pierrick1910, je n'ai pas la réponse à ta question mais peut être que toi tu seras répondre à la mienne.
Est il possible de transférer les données remplies dans un Userform, vers une feuille word?
Si oui comment?
Merci pour ton aide

 

[Pierrick1910]

Je ne peux pas t'aider comme ça.
Je manque de détails.
Si tu as un fichier n'hésite pas à le joindre.
Bon courage...
++

 

[MichelXld]

bonjour

si tu lances une macro Excel et que le document Word est deja ouvert , tu peux utiliser la fonction GetOject

un exemple simple :

Sub piloterUnDocumentWordOuvert()
Dim wordDoc As Object

Set wordDoc = GetObject('C:\\\\\\\\monFichier.doc')
MsgBox wordDoc.paragraphs.Count
End Sub



d'autres exemples sur le pilotage de Word depuis Excel :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/



bon apres midi
MichelXld

 

[Pierrick1910]

Merci MichelXld.

Je n'arrive pas à exécuter la macro.
J'ai mis :

Sub Macro1()
Dim wordDoc As Object
Set wordDoc = GetObject('C:\\film.doc')
wordDoc.Selection.HomeKey Unit:=wdStory
wordDoc.Selection.EndKey Unit:=wdLine, Extend:=wdExtend
wordDoc.Selection.Cut
End Sub

Le bouton Exécuter n'est pas actif ! C'est bizzare !
Suite à ça comment dois-je faire pour revenir sur Excel pour y coller ce que je viens de couper ?
Je voudrai aussi pouvoir le faire à partir de Power Point (lancer la macro à partir de ppt, basculer sur Word, couper, rebasculer sous PPT et coller), mais j'imagine que ça marche pareil, non ?

Je croyais qu'il y avait une possibilité avec la fonction ActiveDocument, mais je ne retrouve pas. ça ne te dit rien ?

Merci encore
++

 

[MichelXld]

bonsoir

je n'ai pas bien compris ton message ...


Voici 2 macros qui permettent de récupérer le contenu d'un document Word depuis Excel .

Sub recupererContenuDocumentWordOuvert_V01()
Dim wordDoc As Object
Dim i As Integer

Set wordDoc = GetObject('C:\\\\\\\\leFichier.doc')

For i = 1 To wordDoc.Sentences.Count 'boucle sur les phrases/lignes du document
Cells(i, 1) = _
Application.WorksheetFunction.Substitute(wordDoc.Sentences(i).Text, Chr(13), '')
Next i
End Sub


Sub recupererContenuDocumentWordOuvert_V02()
Dim wordDoc As Object
Dim i As Integer

Set wordDoc = GetObject('C:\\\\\\\\leFichier.doc')

wordDoc.Range.Copy
Range('A1').PasteSpecial xlPasteValues
End Sub



bonne soirée
MichelXld