Macro VBA PC -> à rendre compatible sur Mac OS

Bonjour à tous,

J'ai humblement construit une petite macro pour aider ma femme à gagner en productivité pour créer ses factures.

A l'aide de différentes sources, j'ai donc construit une macro qui permet à ma femme, en cliquant sur un bouton sur la feuille de calcul, de créer une impression "pdf" de la feuille de calcul (qui est une facture) et de l'enregistrer automatiquement dans un dossier dédié avec un nom de fichier automatique.

La macro fonctionne parfaitement sur PC, mais ma femme a finalement décidé de travailler sur Mac OS et la macro n'est pas compatible.

Je m'arrache les cheveux depuis 1 semaine et je ne comprends pas ce qui cloche...

Pourriez-vous m'aider ?? Un immense merci par avance !

Ci-dessous le code initial (version PC) :

Sub devispdf()
'
' devispdf Macro
'

'

Dim chemin As String

chemin = ActiveWorkbook.Path

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "\" & Range("G2").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

MsgBox "Le document PDF a été généré dans le répertoire dans lequel se trouve ce fichier"

End Sub

Bonsoir

Ca n'a peut être rien à voir mais il me semble que le séparateur dans les chemins sur Mac est est un "/" et sur pc un "\".

essayez peut être de remplacer :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "\" & Range("G2").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

par :

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & "/" & Range("G2").Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Merci pour avoir pris le temps de me répondre !

Je vais essayer et je vous tiendrai au courant.

Bonne soirée

Merci bcp yal_excel

J'ai corrigé comme tu l'as suggéré et ça fonctionne.

Merci pour ton aide !

Super. Comme quoi l'adage qui dit qu'il vaut mieux un qui sait que dix qui cherchent se vérifie
Penses à mettre le sujet en "Résolu"