Word copier coller vba [Résolu]

cs_jordinette 134 Messages postés mercredi 2 mars 2005Date d'inscription 5 avril 2007 Dernière intervention - 3 janv. 2006 à 12:33 - Dernière réponse : cs_jordinette 134 Messages postés mercredi 2 mars 2005Date d'inscription 5 avril 2007 Dernière intervention
- 3 janv. 2006 à 14:43
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
Afficher la suite 

6 réponses

cs_jordinette 134 Messages postés mercredi 2 mars 2005Date d'inscription 5 avril 2007 Dernière intervention - 3 janv. 2006 à 13:46
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 3 janv. 2006 à 13:49
+3
Utile
tu as un peu remanié l'architecture a ton gout....
Documents.Add renvoie le document ajouté, 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
Cette réponse vous a-t-elle aidé ?  
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 3 janv. 2006 à 13:17
0
Utile
qu'entends tu par "ca marche pas"

pourrais tu nous donner la ligne de code incriminée

Renfield
Admin CodeS-SourceS - MVP Visual Basic
cs_jordinette 134 Messages postés mercredi 2 mars 2005Date d'inscription 5 avril 2007 Dernière intervention - 3 janv. 2006 à 13:37
0
Utile
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 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 3 janv. 2006 à 13:51
0
Utile
oui, cela fonctionne aussi très bien ainsi.... en mettant la propriété Visible à True, à la creation du document

Renfield
Admin CodeS-SourceS - MVP Visual Basic
cs_jordinette 134 Messages postés mercredi 2 mars 2005Date d'inscription 5 avril 2007 Dernière intervention - 3 janv. 2006 à 14:43
0
Utile
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.