Macro dans bouton

Question

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 = "	estpdf.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

bmwax · Answer

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

Macro dans bouton

1 réponse

Votre réponse

Discussions similaires