MAC - Comment exporter : modules, userforms, etc

Le 28/07/2017 à 01:21

Bonsoir le forum,

Je voudrais adapter ce code qui tourne très bien sous Windows, pour Mac...

Quand j'exécute ce code sous Mac, il ne se passe tout simplement RIEN...

Après plusieurs recherches infructueuses sur le net, je me décide à poster sur le fofo.

Sub Exporter_VBAProjet()

    Dim moduleVBA As Object

    Dim PathToExport1a As String
    Dim PathToExport1b As String
    Dim PathToExport1c As String

    Dim PathToExport2a As String
    Dim PathToExport2b As String
    Dim PathToExport2c As String

    PathToExport1a = "Mac OS X El Capitan:Users:iDev4s:Documents:Macros Excel 2016:for Mac:Feuilles:"
    PathToExport1b = "Mac OS X El Capitan:Users:iDev4s:Documents:Macros Excel 2016:for Mac:UserForms:"
    PathToExport1c = "Mac OS X El Capitan:Users:iDev4s:Documents:Macros Excel 2016:for Mac:Modules:"

    PathToExport2a = "Mac OS X El Capitan:Users:iDev4s:Dropbox:### Partage Windows & Mac ###:Macros Excel 2016:for Mac:Feuilles:"
    PathToExport2b = "Mac OS X El Capitan:Users:iDev4s:Dropbox:### Partage Windows & Mac ###:Macros Excel 2016:for Mac:UserForms:"
    PathToExport2c = "Mac OS X El Capitan:Users:iDev4s:Dropbox:### Partage Windows & Mac ###:Macros Excel 2016:for Mac:Modules:"

    'Copie les feuilles dans les deux chemins...
    ActiveWorkbook.VBProject.VBComponents("Feuil1").Export (PathToExport1a & "Feuil1 (Devis).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil2").Export (PathToExport1a & "Feuil2 (Facture).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil3").Export (PathToExport1a & "Feuil3 (Métrés).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil4").Export (PathToExport1a & "Feuil4 (Prix C.C.L).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil5").Export (PathToExport1a & "Feuil5 (Prix ProBat).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil6").Export (PathToExport1a & "Feuil6 (Réfs & Prix MO).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil7").Export (PathToExport1a & "Feuil7 (Situation(s)).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil8").Export (PathToExport1a & "Feuil8 (Charges R.S.I).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil9").Export (PathToExport1a & "Feuil9 (Bilan).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil10").Export (PathToExport1a & "Feuil10 (Bilan(Bis)).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil11").Export (PathToExport1a & "Feuil11 (ImpÙt sur le revenu).cls")

    ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").Export (PathToExport1a & "ThisWorkbook.cls")

    ActiveWorkbook.VBProject.VBComponents("Feuil1").Export (PathToExport2a & "Feuil1 (Devis).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil2").Export (PathToExport2a & "Feuil2 (Facture).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil3").Export (PathToExport2a & "Feuil3 (Métrés).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil4").Export (PathToExport2a & "Feuil4 (Prix C.C.L).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil5").Export (PathToExport2a & "Feuil5 (Prix ProBat).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil6").Export (PathToExport2a & "Feuil6 (Réfs & Prix MO).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil7").Export (PathToExport2a & "Feuil7 (Situation(s)).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil8").Export (PathToExport2a & "Feuil8 (Charges R.S.I).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil9").Export (PathToExport2a & "Feuil9 (Bilan).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil10").Export (PathToExport2a & "Feuil10 (Bilan(Bis)).cls")
    ActiveWorkbook.VBProject.VBComponents("Feuil11").Export (PathToExport2a & "Feuil11 (ImpÙt sur le revenu).cls")

    ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").Export (PathToExport2a & "ThisWorkbook.cls")

    'Copie les UserForms dans les deux chemins...
    ActiveWorkbook.VBProject.VBComponents("UserForm1").Export (PathToExport1b & "UserForm1.frm")
    ActiveWorkbook.VBProject.VBComponents("UserForm2").Export (PathToExport1b & "UserForm2.frm")
    ActiveWorkbook.VBProject.VBComponents("UserForm3").Export (PathToExport1b & "UserForm3.frm")

    ActiveWorkbook.VBProject.VBComponents("UserForm1").Export (PathToExport2b & "UserForm1.frm")
    ActiveWorkbook.VBProject.VBComponents("UserForm2").Export (PathToExport2b & "UserForm2.frm")
    ActiveWorkbook.VBProject.VBComponents("UserForm3").Export (PathToExport2b & "UserForm3.frm")

    'Copie les modules dans les deux chemins...
    For Each moduleVBA In ThisWorkbook.VBProject.VBComponents
        Select Case moduleVBA.Type
            Case 1
                ThisWorkbook.VBProject.VBComponents(moduleVBA.Name).Export (PathToExport1c & moduleVBA.Name & ".bas")
                ThisWorkbook.VBProject.VBComponents(moduleVBA.Name).Export (PathToExport2c & moduleVBA.Name & ".bas")
        End Select
    Next

End Sub

Le 28/07/2017 à 13:24

Bonjour

Vous voulez exporter du MAC vers Windows ou l'inverse. Je vois également mentionné Dropbox...

Cordialement

Le 29/07/2017 à 10:27

Bonjour Dan,

En fait, avec cette macro, j'exporte les modules de feuilles, les userforms et les modules simples vers deux dossiers qui se trouve à des endroits différents…

Dossier 1 (contenant lui même 3 dossiers) vers Documents -> etc…

Dossier 2 (contenant lui aussi 3 dossiers) vers Dropbox -> etc…

Le but étant d'avoir toujours une sauvegarde sur mon Mac et une autre sauvegarde sur un serveur de façon à pouvoir récupérer certaines macros quand je suis sous Windows…

Donc pour répondre à t'a question, je voudrais exporter vers des dossiers ce trouvant sur mon Mac…

Dossier 1 (Mac -> Mac)

Dossier 2 (Mac -> Mac(partagé))

Une idée de ce qui cloche dans le code ?

Le 31/07/2017 à 08:29