Macro dans bouton

Signaler
Messages postés
15
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
6 août 2009
-
Messages postés
15
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
6 août 2009
-
Hello tous !

Petit souci... J'ai une macro qui fonctionne bien :

______________________________________________

Sub PDFPublic()
    Selection.AutoFilter Field:=3, Criteria1:="Public"
    Const ThePath As String = "J:\TempFolders"
    Const TheFile As String = "\testpdf.PDF"
    Sheets("Open Items").Select
    SendKeys ThePath & TheFile + "~"
    SendKeys ("{ENTER}")
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
    SendKeys ("{ENTER}")
End Sub
______________________________________________

Par contre je n'ai pas le même résultat quand elle est conditionnée par un bouton :

______________________________________________

Private Sub CommandButton5_Click()
    Call PDFPublic
End Sub
______________________________________________

Avec le bouton, ca ne lance pas le fichier PDF et la BDI "enregistrer sous"

Auriez-vous une quelconque explication ?

Merci d'avance

1 réponse

Messages postés
15
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
6 août 2009

En fait pour préciser un peu, ca fonctionne en step by step mais pas en run total...