Word copier coller vbaRésolu

Question

Bonjour,
depuis acces j'ouvre un document word, je le selectionne entièrement et je le copie, je crée un nouveau document vide et je voudrais coller la selection précédente. Seulement pourqu'il colle sur le bon document il faut que j'active celui-ci. Or le code genre "monword.documents.activate" ça marche passachant que je peux pas fermé le document que je veux copier.
quelqu'un aurait-il une idée sur la manière de procéder?
merci
jordinette

cs_jordinette · Accepted Answer

A yé ça marche avec le code suivant   


 MonWord.Documents.Open (chemin & "\DossierFraudeCommerçant1.doc")
        
        'test puis retrait de la protection du document Word
    If MonWord.ActiveDocument.ProtectionType <> wdNoProtection Then
        MonWord.ActiveDocument.Unprotect "suivi"
    End If
    
    MonWord.ActiveDocument.Select
    MonWord.Selection.Copy

'coller dans nouveau doc et sauvegarde
    MonWord.Documents.Add , , wdNewBlankDocument, True
    'activé le nouveau document
    MonWord.Selection.Paste

Jordinette

Renfield · Answer

qu'entends tu par "ca marche pas"

pourrais tu nous donner la ligne de code incrimin&#233;e

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_jordinette · Answer

Voici le code

    MonWord.Documents.Open (chemin & "\DossierFraudeCommerçant1.doc")
        
        'test puis retrait de la protection du document Word
    If MonWord.ActiveDocument.ProtectionType <> wdNoProtection Then
        MonWord.ActiveDocument.Unprotect "suivi"
    End If
    
    MonWord.ActiveDocument.Select
    MonWord.Selection.Copy
    
        'coller dans nouveau doc et sauvegarde
    MonWord.Documents.Add DocumentType:=wdNewBlankDocument
    'activé le nouveau document
    MonWord.Documents.Activate (wdNewBlankDocument)
    MonWord.ActiveDocument.Selection.Paste
    
    MonWord.ActiveDocument.SaveAs "DossierFraudeCommerçant " & moisdossier & ".doc"
    MonWord.ActiveDocument.Close (wdDoNotSaveChanges)
    'MonWord.Documents.Activate ("DossierFraudeCommerçant1.doc")
    MonWord.ActiveDocument.Close (wdDoNotSaveChanges)
    MonWord.Quit
    Set MonWord = Nothing

Renfield · Answer

tu as un peu remani&#233; l'architecture a ton gout.... 
Documents.Add renvoie le document ajout&#233;, il suffit de l'activer a ce moment :

    MonWord.Documents.Add(DocumentType:=wdNewBlankDocument).Activate

Et d'y coller le contenu du presse papier
    MonWord.Selection.Paste
    
Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

oui, cela fonctionne aussi tr&#232;s bien ainsi.... en mettant la propri&#233;t&#233; Visible &#224; True, &#224; la creation du document

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_jordinette · Answer

Merci!
Es-ce que par hazard, tu saurais comment placer le cursseur de word en fin de page (après le dernier caractère saisie sur la page)?
exemple de texte saisie sur ma page, je voudrais placer le cursseur là où il y à *.

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bonjour,
blabla blabla
Cordialement.*
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
merci d'avance
Jordinette