Macro solidworks - Supression de plusieurs feuilles

Macro
1

Bonjour,

J'essaie de supprimer plusieurs feuilles en une fois. Pour cela je voudrais sélectionner plusieurs feuilles puis lancer la fonction de supression.

Le problème c'est que je n'arrive pas à selectionner plusieurs feuilles.

une idée sur la manière d'y arriver?

For i = 0 To UBound(vSheetName)
        sheetName = vSheetName(i)
        Debug.Print "Nom de feuille:" & sheetName
        If sheetName Like "*" & suffix & "*" Then
            Debug.Print "On entre dans la partie suppression"           
            'Supression des feuilles Sym
            bRet = swModel.Extension.SelectByID2(sheetName, "SHEET", 0, 0, 0, False, 0, Nothing, 0)

        End If
Next i
'Suppression des feuilles
bRet = swModel.Extension.DeleteSelection2(0)

 

2

Bonjour,

Il doit falloir changer le False en True dans :

bRet = swModel.Extension.SelectByID2(SheetName, "SHEET", 0, 0, 0, True, 0, Nothing, 0)

Cordialement,

2 « J'aime »
3

C'est si simple quand on a la réponse...

Merci @d.roger 

1 « J'aime »