Discussion :

[Boulangeriegestion]

Bonjour, je suis sous mac et j'essaye de créer un bouton afin d'enregistrer ma facture excel dans un fichier précis en pdf. Je suis novice en VBA.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Rectangle2_Cliquer()
'export de la facture en pdf
info1 = Sheets("FACTURE").Range("F6")
info2 = Sheets("FACTURE").Range("F4")
info3 = Sheets("FACTURE").Range("G3")
Nom = info1 & " " & info2 & " " & info3 & " " & ".xls"
ThisWorkbook.Save
ThisWorkbook.SaveAs (Nom)
ThisWorkbook.Activate
If MsgBox("Avez vous terminer votre facture ?", vbYesNo, "L'application vous informe") = vbYes Then
ChDir "/Bureau/Mesfactures/"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, quality:= _
xlQualityStandard, incluseDocproperties:=True, ignoreprintareas:=False, _
from:=1, to:=1, openafterpublish:=True
End If
 
End Sub

Cela ne marche pas le message d'erreur suivant s'affiche : La méthode SaveAs de l'objet "_Workbook" a échoué

Je suis sous mac et je n'ai pas trouvé le chemin je l'ai donc fait moi même le problème vient peut être de là... Pouvez vous m'aider ?

Merci d'avance

[kiki29]

Salut, Aie du Mac : voir Make and Mail PDF files with VBA code on your Mac

Sinon sur PC inspire toi de ceci, il faudra sans doute adapter mais la base y est avec une vérif de la validité du nom de fichier, les doublons éventuels sont également gérés dans "Sauver PDF 3"

P.-S. : Balise ton code