Bonjour,
Je ne comprends pas pourquoi cette macro ne fonctionne plus comme je veux depuis que je suis passée sur excel pour Mac 2016.
En effet il n'y a plus d'enregistrement en format PDF sur NO NAME comme je le souhaite mais juste une impression systématique sur mon imprimante ce que je ne souhaite pas.
Merci de bien vouloir m'aider à comprendre mon erreur.
Apres avoir testé plein de choses, je pense que mon chemin n'est pas valide mais je ne comprends pas pourquoi et si je modifie trop le chemin alors c'est la ligne ActiveSheet.Export.... qui pose problème.
Je pense qu'il y a aussi des lignes qui ne servent à rien mais je ne sais pas trop lesquelles.
Sub valider()
Dim Nomfichier As String
Dim chemin1
ActiveSheet.Unprotect
Nomfichier = Range("B13")
chemin1 = "/Volumes/no name/proposition"
ActiveSheet.Copy
ActiveSheet.Name = Nomfichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin1 & Nomfichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
MSG = "Votre Facture a été sauvegardée sous: " & Nomfichier
Title = "Sauvegarde de la facture actuelle"
Style = vbOKOnly + vbInformation
REPONSE = MsgBox(MSG, Style, Title)
ActiveSheet.Protect
ActiveWorkbook.Close (False)
ActiveSheet.Protect
End Sub