[VBA] Copie d'écran dans word puis enregistrement dans le dossier client

[matthieu2701]

Bonsoir,

Dans la feuille "Copie", je doit coller 4 ou 5 copies d'écrans. J'aimerais qu'elles se collent dans un document Word et que le document Word aille s'enregistrer dans le dossier du client.

J'ai commencé à écrire un code mais je n'y arrive plus.

La macro est "ecran".

Merci de votre aide.

@+

 

[grisan29]

Re : [VBA] Copie d'écran dans word puis enregistrement dans le dossier client

bonjour Matthieu
par hasard j'ai regardé ton fichier mais il est plein d'erreur comme si elles étaient arrivées a l'importation car tu vois un des msg comment il est

MsgBox "L'engagement a dŽjˆ ŽtŽ crŽŽ."

et il y a a la pelle

Pascal

 

[matthieu2701]

Re : [VBA] Copie d'écran dans word puis enregistrement dans le dossier client

Effectivement, dans le fichier d'origine il n'y a pas toutes ces erreurs. Je referais l'importation. Merci de m'avoir alerter.

 

[matthieu2701]

Re : [VBA] Copie d'écran dans word puis enregistrement dans le dossier client

Voilà le code

Sub ecran() 

Dim WdApp As Object, WdDoc As Object 

With Sheets("Echéancier") 
    Ref = .Range("B1") 
    Nom = .Range("B2") 
    
End With 

Chemin = "Q:\AAGP2\PDD GAZ\PDD\Dossiers PDD\En cours" & "\" & Nom & " " & Ref & "\" & Nom 

With Sheets("Copie").Range("A1:J1000")
    .CopyPicture 
End With 


'Lancer une instance Word 
Set WdApp = CreateObject("Word.Application") 
'Rendre Word visible 
WdApp.Visible = True 
'Ouvrir le document Word 
Set WdDoc = WdApp.Documents.Open(ThisWorkbook.Path & "\" & "Masque.doc") 'indiquer le chemin du fichier modèle 
With WdDoc 
'Copie de la feuille 4 Excel 
    Sheets(4).Copy 
'Coller la feuille dans Word 
    WdApp.Selection.Paste 
'Annuler le mode couper/copier 
    Application.CutCopyMode = False 
    
   .SaveAs Filename:=Chemin 
    .Close True 
End With 

WdApp.Quit 
Set WdDoc = Nothing 
Set WdApp = Nothing 
End Sub

 

[matthieu2701]

Re : [VBA] Copie d'écran dans word puis enregistrement dans le dossier client

Voici le fichier. En espérant que celui ne bug pas.

 

[Pierrot93]

Re : [VBA] Copie d'écran dans word puis enregistrement dans le dossier client

Bonjour,

voir aussi ici :
[VBA] Copie d'écran d'excel vers word : Excel - VBA
bon après midi
@+