VBA - Shellwait

Max88400

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
1
Affichages
1 K
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 895
Messages
2 093 382
Membres
105 713
dernier inscrit
Karimov