Extraire des données Solidworks et les mettre dans un tableau Excel

Bonjour tout le monde,

Je n'y connais rien en VBA mais je suis sur Solidworks et j'aimerai extraire toutes mes cotes et les mettres dans un tableau excel avec les tolérances :

J'ai voulu utiliser ChatGPT pour m'aider et aller plus vite mais sans succès. JE peux vous mettre ici le code pour vous aider à m'aider :) Le code se bloque à la ligne orange où il me dit "Erreur d'excution : Objet requis"

Sub ExtraireCotesVersExcel()
Dim swApp As Object
Dim swModel As Object
Dim swDrawing As Object
Dim swViews As Object
Dim swView As Object
Dim swAnnotations As Object
Dim swAnnotation As Object
Dim i As Integer
Dim rowIndex As Integer

' Créer une instance de SolidWorks
Set swApp = CreateObject("SldWorks.Application")

' Ouvrir le modèle de dessin actif
Set swModel = swApp.ActiveDoc

' Vérifier si le document actif est un dessin
If swModel.GetType = 3 Then
Set swDrawing = swModel

' Initialiser le numéro de ligne du tableau Excel
rowIndex = 1

' Obtenir les vues du dessin (feuilles)
Set swViews = swDrawing.GetViews

' Parcourir toutes les vues (feuilles) du dessin
For i = 0 To swViews.Count - 1
Set swView = swViews.Item(i)

' Obtenir les annotations de la vue (feuille)
Set swAnnotations = swView.GetAnnotations

' Parcourir toutes les annotations
For Each swAnnotation In swAnnotations
' Vérifier si l'annotation est une cote
If swAnnotation.GetType = 5 Then
' Récupérer les informations de la cote
Dim coteNom As String
Dim coteValeur As String

coteNom = swAnnotation.GetName
coteValeur = swAnnotation.GetText

' Écrire les informations de la cote dans Excel
Sheets("Feuil1").Cells(rowIndex, 1).Value = coteNom
Sheets("Feuil1").Cells(rowIndex, 2).Value = coteValeur

rowIndex = rowIndex + 1
End If
Next swAnnotation
Next i
Else
MsgBox "Le document actif n'est pas un dessin."
End If

' Fermer le modèle de dessin
swApp.CloseDoc swModel.GetPathName
End Sub

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois

Merci d'avance !!

Bonjour et

A priori, comme le font beaucoup vous n'êtes pas passé par la lecture de la charte

Je vous invite donc à la lire [A LIRE AVANT DE POSTER] et notamment :

• Pour plus de lisibilité, utilisez la fonctionnalité </> pour insérer vos codes VBA (et si possible aussi pour vos formules Excel).

A+