Bonjour j'ai beau je trouve différentes chose mais qui n'ont pas l'air de bien marcher :
Sub PDF1()
SaveFolder = "Bureau:Emilion:"
DocName = Range("E1").Value
FileExt = ".xlsx"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveFolder & DocName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Sub PDF2()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Filename = "Bureau" & ActiveSheet.Range("E3").Value & "NS"
End Sub
Sub PDF3()
Dim Filename As String
With ActiveSheet
SaveFolder = "Mac HD:Emilion Pro"
Filename = .Range("E3")
.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
End With
End Sub
Je n'y connais vraiment rien en VBA alors j'essaye d'dapter ce que je trouve à ma situation mais ca ne fonctionne jamais... Je ne sais pas laquelle de ses macros peut marcher...
J'aimerai une macro qui m'enregistre la feuille que je choisie en pdf dans un dossier particulier..
Sinon je peut mettre un bouton pdf sur chacune de mes feuilles et enregistrer la feuille active, peu importe.
Sub PDF1()
SaveFolder = "Bureau:Emilion:"
DocName = Range("E1").Value
FileExt = ".xlsx"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=SaveFolder & DocName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Sub PDF2()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
Filename = "Bureau" & ActiveSheet.Range("E3").Value & "NS"
End Sub
Sub PDF3()
Dim Filename As String
With ActiveSheet
SaveFolder = "Mac HD:Emilion Pro"
Filename = .Range("E3")
.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
End With
End Sub
Je n'y connais vraiment rien en VBA alors j'essaye d'dapter ce que je trouve à ma situation mais ca ne fonctionne jamais... Je ne sais pas laquelle de ses macros peut marcher...
J'aimerai une macro qui m'enregistre la feuille que je choisie en pdf dans un dossier particulier..
Sinon je peut mettre un bouton pdf sur chacune de mes feuilles et enregistrer la feuille active, peu importe.