Copier selection depuis une autre feuil, coller dans Word Résolu/Fermé

Question

Bonjour, 

J'ai un peu parcouru les topics, mais je n'ai pas trouvé de réponse à ma question : 
Vous le remarquerez, je suis pas une brute en VBA
Je crée un tableau Excel de saisie de données pour les exporter dans une trame word. 

Tout marche bien sauf pour importer mes tableaux excel dans le document word, notamment si le tableau vient d'un autre onglet que celui ou j'ai lancé la maccro avec mon bouton activeX. 

Je sais pas si j'ai codé au mauvais endroit ( module ? objet ? ) 

Voilà le code, qui marche si je ne fait pas référence à une autre feuil, et dans ce cas là, qui ne marche pas :

Private Sub CommandButton1_Click()

Dim Cible As Object
 Dim chemin As String, fichier As String

Sheets("Feuil2").Range(Cells(1, 1), Cells(6, 9)).CopyPicture Appearance:=xlPrinter
' j'ai essayé avec sheets.activate, sheets.select, with sheets etc.. Rien n'y fait 
'J'ai aussi éssayé de créer un Sub dans la feuil 2 et de call dans ce sub, mais le call ne fonctionne pas

'A terme le range selectionné sera variable

chemin = ActiveWorkbook.Path
    fichier = "ESSAI.docx"
    
    ' lancement de Word
    ' gestion de l'erreur "activeX" d'après archives MPFE Laurent Longre
    On Error Resume Next
        Set Cible = CreateObject(class:="Word.Application")
    On Error GoTo 0
    If Cible Is Nothing Then
        Set Cible = New Word.Application
    End If
    
    With Cible
        
        Documents.Open Filename:=chemin & "\" & fichier
        .Visible = True
        .Selection.Goto What:=wdGoToBookmark, Name:="S1"
        .Selection.Paste

End With
  
  Set Cible = Nothing
  
  ActiveWorkbook.Application.Visible = True

End Sub

j'en profite aussi rapidement : Lorsque que j'execute le code sans référence vers la feuil2, ça fonctionne très bien, mais si je le relance (Word fermé) ca ne fonctionne plus. Je dois alors fermer et excel et le reouvrir pour ue cela fonctionne à nouveau, bizarre. Y-a t-il un truc ? 

Je vous remercie d'avance pour vos réponses ! 




Voilà, merci d'avance pour vos réponses !

thev · Answer

Bonjour,

Pour que ça fonctionne, il suffit d'activer la feuille choisie.
ci-dessous code simplifié
Private Sub CommandButton1_Click()    Dim Cible As New Word.Application    Dim plage As Range    Dim chemin As String, fichier As String      With Sheets("Feuil2")        .Activate        .Range(Cells(1, "A"), Cells(6, "I")).CopyPicture Appearance:=xlPrinter    End With        ' ouverture du fichier Word    chemin = ActiveWorkbook.Path    fichier = "ESSAI.docx"    With Cible        Documents.Open Filename:=chemin & "\" & fichier        .Visible = True        .Selection.Goto What:=wdGoToBookmark, Name:="S1"        .Selection.Paste    End WithEnd Sub  --

thev · Answer

Pas d'idée spéciale car cela fonctionne sur ma version Excel 2013. Sans l'activate, j'ai effectivement une erreur 1004.

cs_Le Pivert · Answer

Bonjour,

comme ceci:

Private Sub copie_word()
Dim chemin As String, fichier As String
 'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
  Sheets("Feuil2").Activate
 Sheets("Feuil2").Range(Cells(1, 1), Cells(6, 9)).CopyPicture Appearance:=xlPrinter
 'A terme le range selectionné sera variable
  chemin = ActiveWorkbook.Path
  fichier = "ESSAI.docx"
  'ouvre session word
    Set WordApp = New Word.Application
     'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open(chemin & "\" & fichier)
    WordApp.Visible = True
   WordApp.Selection.Goto What:=wdGoToBookmark, Name:="S1"
    WordApp.Selection.Paste
      'Ferme le document word en sauvegardant les modifications
    WordDoc.Close True
    'ferme la session Word
    WordApp.Quit
   ActiveWorkbook.Application.Visible = True
  End Sub
 
 
@+ Le Pivert

cs_Le Pivert · Answer

Voilà un exemple à dezipper qui fonctionne chez moi:


 http://www.cjoint.com/c/FGDjCr87VGQ

cs_Le Pivert · Answer

voir ceci:

https://excel.developpez.com/faq/?page=Word#LireChampWord

cs_Le Pivert · Answer

Et voila cela en complément:

 https://www.developpez.net/forums/d61897/logiciels/microsoft-office/word/vba-word/reference-microsoft-word/#post417934

Là, il y a tous les cas de figure!

Copier selection depuis une autre feuil, coller dans Word

6 réponses

Discussions similaires