Dim swApp As Object
Option Explicit

Sub main()

'Déclarations : 
Dim swApp                   As SldWorks.SldWorks
Dim swModel                 As SldWorks.ModelDoc2
Dim vConfNameArr            As Variant
Dim sConfigName             As String
Dim nStart                  As Single
Dim i                       As Long
Dim bShowConfig             As Boolean
Dim bRebuild                As Boolean
Dim bRet                    As Boolean
Dim FilePath As String
Dim PathSize As Long
Dim PathNoExtension As String
Dim NewFilePath As String

Set swApp = CreateObject("SldWorks.Application") 'Lancement de SW
Set swModel = swApp.ActiveDoc 'Récupération du modèle actif dans SW

vConfNameArr = swModel.GetConfigurationNames 'Création de la liste des configurations

For i = 0 To UBound(vConfNameArr) 'Boucle la liste : de l'élément 0 jusqu'au nombre d'élément dans la liste (Ubound)

	sConfigName = vConfNameArr(i) 'Recupére l'élément N°i de la liste

	bShowConfig = swModel.ShowConfiguration2(sConfigName) 'Affiche la configurations

	bRebuild = swModel.ForceRebuild3(False) 'Reconstruit le modèle

	FilePath = swModel.GetPathName 'Récupère le chemin du ficchier SW
	PathSize = Strings.Len(FilePath) 'Compte le nombre de caractères du chemin
	PathNoExtension = Strings.Left(FilePath, PathSize - 6) 'Supprime l'xtension du chemin en supprimant les 6 dernniers caractères du chemin en partant de la gauche :  Nombre caractères de la chaine - 6

	NewFilePath = PathNoExtension + sConfigName & ".DXF" 'Créé une chaine de caractère avec le chemin sans extension, le nom de la configuration et l'extension .dxf

	'Export Flat Pattern
	bRet = swModel.ExportFlatPatternView(NewFilePath, 1) 'Exporte la vue déplié avec l'option "swExportFlatPatternOption_RemoveBends" et le chemin du fichier créé précédemment

Next i 'Passe à l'élément de la liste suivant (i + 1)

End Sub