Bonjour à tous,
j'ai une petite macro pour imprimer des PDF qui fonctionne trés bien pour une seule impression.
Le problème c'est que j'en ai plusieurs d'affilé entrecouper d'impression de feuilles excel et que shellExecute fonctionne de manière qui fait que mes PDF sont imprimés apres mes feuilles EXCEL.
Sub ImprimerFichier()
Dim Nomfichier As String
Dim x As Long
Nomfichier = Selection.Hyperlinks(1).SubAddress
x = FindWindow("XLMAIN", Application.Caption)
ShellExecute x, "print", Nomfichier, "", "", 1
End Sub
J'ai donc trouvé la commande Shellewait pour attendre que mon impression soit finie mais je ne sait pas comment m'en servir...
Quelqu'un peut-il maider?
Merci
j'ai une petite macro pour imprimer des PDF qui fonctionne trés bien pour une seule impression.
Le problème c'est que j'en ai plusieurs d'affilé entrecouper d'impression de feuilles excel et que shellExecute fonctionne de manière qui fait que mes PDF sont imprimés apres mes feuilles EXCEL.
Sub ImprimerFichier()
Dim Nomfichier As String
Dim x As Long
Nomfichier = Selection.Hyperlinks(1).SubAddress
x = FindWindow("XLMAIN", Application.Caption)
ShellExecute x, "print", Nomfichier, "", "", 1
End Sub
J'ai donc trouvé la commande Shellewait pour attendre que mon impression soit finie mais je ne sait pas comment m'en servir...
Quelqu'un peut-il maider?
Merci
