3 réponses
Bonsoir,
Depuis Excel 2007 tu n'as pas besoin de macro, il suffit d'ENREGISTRER SOUS ta facture
et avant de cliquer sur le bouton Enregistrer
sélectionne simplement dans Type: PDF(*.pdf) et clic sur Enregistrer
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
Depuis Excel 2007 tu n'as pas besoin de macro, il suffit d'ENREGISTRER SOUS ta facture
et avant de cliquer sur le bouton Enregistrer
sélectionne simplement dans Type: PDF(*.pdf) et clic sur Enregistrer
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
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é.