VBA

wissam -  
 wissam -
Bonjour,
j'ai le meme probleme avec MAC avec excel 2016
et je n'arrive pas a faire le marco qui'l poura transormer ma facture en pdf
vous pouvez m'aide svp?
merci

3 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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...
    0
    1. Wissam
       
      Oui mais dans ce cas c’est enregistré manuellement pas automatique !!!
      Et à chaque fois il faut entrer le numéro,
      Pourtant il y’a un macro je suis sûr
      0
    2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
       
      Re,

      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é.
      0
  2. wissam
     
    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
    0