3 réponses
et voici le code je pense au chemin
Private Sub enPDf()
'export facture au format pdf
info1 = Sheets("facture").Range("B4")
info2 = Sheets("facture").Range("G4")
info3 = Sheets("facture").Range("G5")
facture = info1 & "-" & info2 & "-" & info3 & "-" & ".xls"
ThisWorkbook.Save
ThisWorkbook.SaveAs (facture)
ThisWorkbook.Activate
If MsgBox("avez vous valider votre facture afin de generer le numero automatique?", vbYesNo, "wissam vous informe") = vbYes Then
ChDir:"Utitled:Users:dynamicauto:Documents:PDF",
ActiveSheet.ExportAsFiledFormat = xlTypePDF, Quality:= _
xlQualityStandard, incluseDocpropreties:=True, IgnorePrintAreas:=Fralse, _
from:=1, to:=1, OpenAfterPublish:=True
End If
Private Sub enPDf()
'export facture au format pdf
info1 = Sheets("facture").Range("B4")
info2 = Sheets("facture").Range("G4")
info3 = Sheets("facture").Range("G5")
facture = info1 & "-" & info2 & "-" & info3 & "-" & ".xls"
ThisWorkbook.Save
ThisWorkbook.SaveAs (facture)
ThisWorkbook.Activate
If MsgBox("avez vous valider votre facture afin de generer le numero automatique?", vbYesNo, "wissam vous informe") = vbYes Then
ChDir:"Utitled:Users:dynamicauto:Documents:PDF",
ActiveSheet.ExportAsFiledFormat = xlTypePDF, Quality:= _
xlQualityStandard, incluseDocpropreties:=True, IgnorePrintAreas:=Fralse, _
from:=1, to:=1, OpenAfterPublish:=True
End If
Et à chaque fois il faut entrer le numéro,
Pourtant il y’a un macro je suis sûr
Tu as raison cliquer sur Fichier/Enregistrer sous/et choisir dans Type: PDF(*.pdf) est bien plus compliqué que cliquer sur un bouton pour lancer un code macro que tu ne seras pas interpréter
et comme je dis souvent pourquoi faire simple quand on peut faire compliqué.