Bonjour,

Sur un fichier j'ai crée une macro pour choisir l'imprimante de destination pour imprimer mon document.
Ensuite je souhaite qu'en fermant le fichier, revenir sur l'imprimante par défaut avec l'aide d'une macro.

Il me note une erreur d'exécution '1004'

Erreur lors de l'impression sur Mouniia (nom de l'imprimante) sur Ne01 :. Le fichier n'a pas été imprimé.
Raisons possibles :
La mémoire disponible est peut-être insuffisante. Essayez de fermer les documents et programmes que vous n'utilisez pas.
Si vous utiliser une imprimante connectée à un reseau le problème
Fin/Débogage/Aide

Cette macro qui change l'imprmante, ferme et enregistre ce trouve sur un autre fichier.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RG62018FermeRapportGouvMatin()
'
' RG62018FermeRapportGouvMatin Macro
'
 
'
    Windows("Rapports Gouvernant 6.xlsm").Activate
    Sheets("Debut Rapport Couverture").Select
     Application.ActivePrinter = "Mouniia sur Ne01:"
     ActiveWorkbook.Save
     ActiveWindow.Close
 
End Sub

Pouvez-vous m'aider à ne plus voir ce message d'erreur et m'expliquer pourquoi ?!
Car quand je fais fin, l'imprimante par défaut reviens bien sur "Mouniia" imprimante réseau.
Merci beaucoup !