Imprimer document word depuis excel

Bonjour le forum !

Je viens vers vous après plusieurs recherches ici sans trouver mon bonheur. Et puisque chaque situation est spécifique, je tente ma chance auprès de vous.

Je cherche, comme indiqué dans le titre à générer, sauvegarder, imprimer et quitter un document word depuis excel.
En ce qui concerne les étapes de génération et de sauvegarde, pas de soucis, tout se déroule à merveille. Mais lorsque je souhaite imprimer le document, puis quitter word, rien ne va plus !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Enregistrement() Dim FileName, NomFichier As String Dim Chemin As String, Chemin2 As String Dim WordApp As Object Set WordApp = CreateObject("word.application")   'Enregristrer le document dans le dossier courriers If ActiveDocument.Name = "ZModele Courrier.docm" Then Objet = Courrier.Liste_Courrier_Objet.Value Nom = Accueil.Liste_Nom.Value DateRDV = Courrier.TB_Courrier_Date_RDV.Value Chemin2 = ActiveDocument.Path Chemin = Chemin2 & "\Courriers" NomFichier = Nom & " - " & DateRDV & " - " & Objet & ".docx"   ChangeFileOpenDirectory _ Chemin2 & "\Courriers\" ActiveDocument.SaveAs FileName:=NomFichier, FileFormat:=wdFormatDocumentDefault   'lance l'impression et quitte ActiveDocument.PrintOut WordApp.Quit Else WordApp.ActiveDocument.Save End If WordApp.Quit Set WordApp = Nothing End Sub

---

Ce qui me pose donc problème c'est la partie 'lance l'impression et quitte. Je ne comprends absolument pas pourquoi rien ne se passe...

Des idées ?

Merci !

Parce que tu n'indiques pas à VBA que tu travailles sur des objets Word.

Code:

---

WordApp.ActiveDocument.PrintOut

---

Effectivement, en déclarant comme tu le dis ça fonctionne. Mais je n'ai pas compris car à d'autres endroit de mon code (notamment pour compléter mes signets) je n'avais pas spécifié le wordapp. avant le activedocument et excel a su aller compléter le doc word.
Bref...

En revanche, une chose qui fonctionnait, l'enregistrement là ou je le souhaitait, ne fonctionne maintenant plus !

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Objet = Courrier.Liste_Courrier_Objet.Value Nom = Accueil.Liste_Nom.Value DateRDV = Courrier.TB_Courrier_Date_RDV.Value Chemin = WordApp.ActiveDocument.Path NomFichier = Nom & " - " & DateRDV & " - " & Objet & ".docx"   MsgBox Chemin & "\Courriers\" & NomFichier   ChangeFileOpenDirectory _ Chemin & "\Courriers\" WordApp.ActiveDocument.SaveAs FileName:=NomFichier, FileFormat:=wdFormatDocumentDefault

---

J'ai bien l'impression de bien tout faire, je vérifie même si mon chemin est bon avec un petit MsgBox (ce qui est le cas), mais par contre le document est enregistré dans la racine de "Mes Documents", alors qu'à la base je souhaite qu'il s'enregistre dans un dossier sur mon bureau, là ou je vais chercher mon document word en auto...

Une solution ? :D

Citation:

---

Envoyé par klash384

Une solution ? :D

---

Bin... la même.

Salut, pour info (?), voir ici

Citation:

---

Envoyé par klash384

J'ai bien l'impression de bien tout faire, je vérifie même si mon chemin est bon avec un petit MsgBox (ce qui est le cas), mais par contre le document est enregistré dans la racine de "Mes Documents", alors qu'à la base je souhaite qu'il s'enregistre dans un dossier sur mon bureau, là ou je vais chercher mon document word en auto...

Une solution ? :D

---

Ben, commence par décider si tu sauvegardes avec

Code:

---

filename:=NomFichier

---

ou avec

Code:

---

filename:=Chemin

---

@Menhir : je ne suis pas sûr de comprendre ce que tu dis, car ce coup-ci j'ai bien déclaré que je travaillais dans word, non ?

Code:

---

1 2 3 4

ChangeFileOpenDirectory _ Chemin & "\Courriers\" WordApp.ActiveDocument.SaveAs FileName:=NomFichier, FileFormat:=wdFormatDocumentDefault

---

@kiki29, merci pour ton lien, je vais me garder ça sous le coude histoire de me documenter !

@clementmarcotte, tu peux m'expliquer un peu plus s'il te plait, je suis pas sûr de comprendre non plus... Car mon FileName est bien ma variable NomFichier, car Chemin reste le chemin d'acces au fichier, à moins que là aussi il y ait quelque chose que je n'ai pas compris, auquel cas ça me ferais du bien de comprendre

Code:

---

1 2 3 4 5 6 7 8 9

'reprend le chemin d'acces Chemin = WordApp.ActiveDocument.Path 'définit le nom de mon fichier NomFichier = Nom & " - " & DateRDV & " - " & Objet & ".docx"   ChangeFileOpenDirectory _ Chemin & "\Courriers\" WordApp.ActiveDocument.SaveAs FileName:=NomFichier, FileFormat:=wdFormatDocumentDefault

---

Problème résolu !

Merci pour la contribution ! Je comprends mieux maintenant ta réponse @clementmarcotte !

Voici le code corrigé !

Code:

---

1 2 3 4

NomFichierComplet = Chemin & "\Courriers\" & NomFichier   WordApp.ActiveDocument.SaveAs FileName:=NomFichierComplet, FileFormat:=wdFormatDocumentDefault

---

Il n'y a même plus besoin du ChangeFileOpenDirectory

Citation:

---

Envoyé par klash384

@Menhir : je ne suis pas sûr de comprendre ce que tu dis, car ce coup-ci j'ai bien déclaré que je travaillais dans word, non ?

---

ChangeFileOpenDirectory est un membre de l'objet Application de Word. Il ne fait pas partie des membres de l'objet Application d'Excel.
Donc

Code:

---

WordApp.ChangeFileOpenDirectory Chemin & "\Courriers\"

---

Cela dit, je ne suis pas sûr que cette propriété ait une influence sur SaveAs donc la solution que tu as mis en place est certainement plus fiable.