VBA & Impression sur imprimante par défaut

Bonjour à tous!

Je suis actuellement en train de bosser sur l'amélioration d'un fichier qui sera utilisé par plusieurs groupes de personnes au sein de l'entreprise ;

À plusieurs reprises, lors de l'éxecution de maccros, je demande à imprimer le classeur. Pour l'instant, mon code qui traite cette partie ressemble à çà:

 application.activePrinter = _
        "\\DIMP0036.atlas.fr\I3-2-RI4500-MN-274175 sur Ne04:"

ExecuteExcel4Macro _
           "PRINT(1,,,1,,,,,,,,2,""\\DIMP0036.atlas.fr\I3-2-RI4500-MN-274175 sur Ne04:"",,TRUE,,FALSE)"

Seulement, l'imprimante est partagée par plusieurs poste (il me semble que c'est le Ne04 qui change et pour couronne le tout, d'autres imprimantes sont utilisées par certains autres groupes...

C'est pourquoi j'ai pensé dire :

utiliser imprimante par défaut 
Imprimer

Est-ce possible?

Si oui merci de me donner une astuce voir une solution svp,

Ça va faire un moi que ce problème me coince =(

Encore grand merci de m'aider

Sym

Et si tu fais comme ça ça marche pas ?

Sym a écrit :

 ' application.activePrinter = _
        ' "\\DIMP0036.atlas.fr\I3-2-RI4500-MN-274175 sur Ne04:"

ExecuteExcel4Macro _
           "PRINT(1,,,1,,,,,,,,2,Application.ActivePrinter,,TRUE,,FALSE)"

Bonsoir!

J'ai essayé sans les deux premières lignes et çà ne marchait pas...

Il est possible que remettre les deux lignes marche mais çà ne me sert plus à rien :-/

Bonjour,

Qu'est-ce que ça te donne avec cette ligne ?

ExecuteExcel4Macro _
           "PRINT(1,,,1,,,,,,,,2,Application.ActivePrinter,,TRUE,,FALSE)"

Ça te donne une erreur ?

-- 05 Juil 2011 07:43 --

Et si tu fais comme ça :

ExecuteExcel4Macro _
           "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Bonjour,

Essai ceci dans un module standard VBA :

Remplace la feuille Imprime par ta feuille à imprimer

If Application.Dialogs(xlDialogPrinterSetup).Show = True Then Worksheets("Imprime").PrintOut