Problème avec : With ("chemin1, chemin2")

Bonsoir à tous,

J'ai un petit souci pour attribuer 2 chemins d'accès à un "With"...

Celà est-il possible ???

Problème de syntaxe ???

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 = "C:\Users\iDev4s\Mes documents\Macros Excel 2016\for Windows 7\Feuilles\"
    PathToExport1b = "C:\Users\iDev4s\Mes documents\Macros Excel 2016\for Windows 7\UserForms\"
    PathToExport1c = "C:\Users\iDev4s\Mes documents\Macros Excel 2016\for Windows 7\Modules\"

    PathToExport2a = "C:\Users\iDev4s\Dropbox\### Partage Windows & Mac ###\Macros Excel 2016\for Windows 7\Feuilles\"
    PathToExport2b = "C:\Users\iDev4s\Dropbox\### Partage Windows & Mac ###\Macros Excel 2016\for Windows 7\UserForms\"
    PathToExport2c = "C:\Users\iDev4s\Dropbox\### Partage Windows & Mac ###\Macros Excel 2016\for Windows 7\Modules\"

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

        ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").Export ("ThisWorkbook.cls")
    End With

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

    With ("PathToExport1c, PathToExport2c") '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 (moduleVBA.Name & ".bas")
            End Select
        Next
    End With

End Sub

Bonsoir,

L'instruction With... End With :

    With expression

expression est une expression qui renvoie un objet...

Un chemin n'est pas un objet !

Cordialement.

Donc impossible !!!

Merci du tuyau MFerrand...

Je passe en résolu...