Discussion :

[Crystal73]

Bonjour,

Je voudrais enregistrer un classeur Excel sous forme d'image avec "l'imprimante" Microsoft Office Document Image Writer.

J'ai écrit un code qui permet de le faire mais mon problème est que la boîte de dialogue 'Enregistrer Sous' apparait. Mais je ne veux pas qu'elle apparaisse car dans mon code j'impose le nom du fichier et le répertoire dans lequel enregistrer le document.


Quel est le code qui permet d'automatiser cet enregistrement sans que la boite de dialogue 'enregistrer sous' apparaisse ?

Merci pour vos réponse

[ChrisoNE]

Salut !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim NomClas As String
NomClas = "CeQueTuVeux" & ".mdi" Ou  "CeQueTuVeux.mdi"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,ActivePrinter:=
  "Microsoft Office Document Image Writer sur NE00:", PrToFilename:=NomCla

s


Et voilà, plus de message et ton fichier sera enregisté dans le répertoire par défaut.

Si tu veux l'enregistrer dans un répertoire précis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomClas = "C:\TonChemin" & "/" & NomClas

@ +++

ChrisOne

[Crystal73]

Merci beaucoup Crisone,
ca fonctionne