Pb avec une macro depuis passage Mac 2016

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

Bonjour

C'est cette ligne qui vous pose le souci --> /Volumes/no name/proposition"

Le fichier pdf est sauvegardé dans le même répertoire que votre fichier excel ou sur un autre disque genre clé USB ? le NO NAME m'intrigue.

Cordialement

No Name est ma clé USB, alors comment dois-je l'indiquer??

Re

Ou se trouve votre fichier excel sur votre MAC. Sur le bureau ?

Pourquoi ne pas sauvegarder sur votre bureau le fichier pdf puis le sauver manuellement sur votre clé USB

Bonjour,

J'ai essayé mais rien ne veut fonctionner.

re

Vous ne répondez pas à la question. Donc pas facile de vous aider.

Essayez ceci :

Sub valider()

Dim Nomfichier As String
Dim chemin1
With ActiveSheet
    .Unprotect
    Nomfichier = .Range("B13")
    chemin1 = ":Volumes:no name:proposition"
    .Copy
    .Name = Nomfichier
    .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)

    .Protect
End With
ActiveWorkbook.Close (False)
ActiveSheet.Protect
End Sub

Cordialement

Bonsoir,

Je suis désolée de répondre aussi tard mais peu de disponibilité ces derniers jours.

J'ai essayé votre proposition mais j'ai toujours le même problème, l'imprimante se déclenche et imprime la feuille, mais toujours rien sur ma clé USB(no name) dans le dossier proposition.

J'ai déjà essayé de mettre le dossier sur le bureau mais même problème.

En attendant, je refais tout manuellement.

Merci beaucoup en tout cas.

carole

Bonjour

Pas compris votre mention Volumes dans le code ..

Essayez ceci :

Sub valider()
Dim Nomfichier As String, msg As String, title As String, style As String, response As String
Dim chemin
With ActiveSheet
    .Unprotect
    Nomfichier = .Range("B13")
    chemin = ThisWorkbook.Path & ":no name:proposition"
    .Copy
    ActiveWorkbook.SaveAs Filename:=chemin & Nomfichier & ".pdf", FileFormat:=xlPDF
msg = "Votre Facture a été sauvegardée sous: " & Nomfichier
title = "Sauvegarde de la facture actuelle"
style = vbOKOnly + vbInformation
REPONSE = MsgBox(msg, style, title)

ActiveWorkbook.Close (False)
    .Protect
End With
End Sub

Si ok, merci de cliquer sur le v vert à coté du bouton Editer pour clôturer le fil

Cordialement