Erreur SaveAs enregistrement pdf
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 :
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
Bonjour à tous,
Je rebondis sur cette question car je voudrais faire pour le boulot une macro qui me permette d'exporter le document en pdf.
J'utilise Office 2016 pour MAC.
J'utilise actuellement ce code :
Sub SavePDF()
Sheets("F-001").ExportAsFixedFormat _
Type:=xlTypePDF
End SubCela fonctionne bien et m'exporte le fichier en pdf dans le répertoire "Documents" du MAC.
Comment est-ce que je peux spécifier un autre dossier pour l'enregistrement du pdf ?
Merci d'avance pour votre aide.