3 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié le 20 janv. 2018 à 18:14
Modifié le 20 janv. 2018 à 18:14
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...
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
20 janv. 2018 à 19:56
20 janv. 2018 à 19:56
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
20 janv. 2018 à 18:58
Et à chaque fois il faut entrer le numéro,
Pourtant il y’a un macro je suis sûr
20 janv. 2018 à 21:22
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é.