XL 2019 Erreur 91

netparty · 3 Octobre 2021

Bonjour à tous

J'ai un soucis avec le code suivant :

VB:

Public Sub Gestion_Liste_Onglets()
'   *** Appliquer ordre des présentations
Dim obj_onglets As AcadLayouts
Dim obj_onglet As AcadLayout


Liste_Presentations.Clear

    If Option_Affiche_Acad.Value = True Then
    
        For index = 0 To AcadDoc.layouts.Count - 1
            Liste_Presentations.AddItem
        Next index
        
        For Each obj_onglets In AcadDoc.layouts
                Liste_Presentations.List(obj_onglets.TabOrder) = obj_onglets.Name
        Next obj_onglets
        
        Liste_Presentations.RemoveItem (0)
        
    Else
    
        For Each obj_onglets In AcadDoc.layouts
                If obj_onglets.TabOrder <> 0 Then
                    Liste_Presentations.AddItem obj_onglets.Name
                End If
        Next obj_onglets
    End If

Label_Nbre_Onglet = "Liste des présentations (" & Liste_Presentations.ListCount & ")"

Tbx_Nom_Onglet.Value = ""

End Sub

J'ai une erreur 91 mais je n'arrive pas à trouver d'ou cela vient.

Auriez-vous une idée pour moi

Merci d'avance

laurent950 · 3 Octobre 2021

Bonjour,

Cela ne peux pas fonctionner :
Liste_Presentations.Clear
Option_Affiche_Acad.Value
Index
etc.

netparty · 3 Octobre 2021

laurent950 à dit:
Bonjour,

Cela ne peux pas fonctionner :
Liste_Presentations.Clear
Option_Affiche_Acad.Value
Index
etc.

Bonjour @laurent950

Je ne vois pas se que tu veux dire par la.

Merci à toi

laurent950 · 3 Octobre 2021

les objets ne sont pas déclaré

netparty · 3 Octobre 2021

laurent950 à dit:
les objets ne sont pas déclaré

Est-ce que c'est ceci que je dois ajouter :

VB:

    Dim AcadApp As Object
    Dim AcadDoc As Object
    Set AcadApp = GetObject(, "AutoCAD.Application")
    Set AcadDoc = AcadApp.ActiveDocument

laurent950 · 3 Octobre 2021

cette macro doit faire quoi ?

netparty · 3 Octobre 2021

laurent950 à dit:
cette macro doit faire quoi ?

J'ai une listbox avec les présentations du fichier autocad, c'est pour les trier par ordre alphabétique ou par l'ordre d'autocad

laurent950 · 3 Octobre 2021

Cela sert a quoi dans votre Programme : Liste_Presentations.Clear

netparty · 3 Octobre 2021

laurent950 à dit:
Cela sert a quoi dans votre Programme : Liste_Presentations.Clear

Vider la listbox avant de remettre les présentation dans l'ordre

laurent950 · 3 Octobre 2021

Il faudrait poster votre fichier

netparty · 3 Octobre 2021

laurent950 à dit:
Il faudrait poster votre fichier

Ci-joint mon fichier

laurent950 · 3 Octobre 2021

Bonsoir @netparty

Voilà : le code de la L'Userform "USR_Gestion_Presentations"

Remplacer TOUT votre code par celui ci dessous dans Votre USERFORM

VB:

Option Explicit
'
Private Sub UserForm_Initialize()
' Excel (ListBox Clear)
    Liste_Presentations.Clear
' Autocad
    Dim AcadApp As Object
        Set AcadApp = GetObject(, "AutoCAD.Application")
    Dim AcadDoc As Object
        Set AcadDoc = AcadApp.ActiveDocument
    On Error Resume Next
 
    ' Check if AutoCAD application is open. If is not opened create a new instance and make it visible
    If AcadApp Is Nothing Then
        If MsgBox("AUTOCAD n'est pas ouvert" & vbLf & "Voulez-vous ouvrir AUTOCAD", 36, "Ouvrir AUTOCAD") = vbYes Then
            Set AcadApp = CreateObject("AutoCAD.Application")
            AcadApp.Visible = True
        End If
   End If

' Dans l'odre d'autocad
    Label_Onglet_Courant.Caption = "Présentation Courante: " & AcadDoc.GetVariable("CTAB")
    Dim onglet As AutoCAD.AcadLayouts
    Dim i As Integer
        Set onglet = AcadDoc.Layouts
    Dim TabPresentation() As String
        ReDim TabPresentation(1 To onglet.Count - 1)
    For i = 0 To onglet.Count - 1
        If AcadDoc.Layouts(i).Name <> "Model" Then
            TabPresentation(AcadDoc.Layouts(i).TabOrder) = AcadDoc.Layouts(i).Name
        End If
    Next i
    ' Transfert le tableau dans la ListeBox (Dans l'ordre d'Autocad)
    Liste_Presentations.List = TabPresentation
' Affichage
    Label_Nbre_Onglet = "Liste des présentations (" & Liste_Presentations.ListCount & ")"
End Sub

Private Sub BP_Rafraichir_Click()
    UserForm_Initialize
End Sub

Private Sub Option_Affiche_Acad_Click()
'   *** Tri des présentations ordre Autocad
'   *** Renvois vers la fonction
' Applique l'ordre en fonction de : "Option Bouton"
'    * L'odre des Présentation dans Autocad
    Btn_Appliquer_Click
End Sub

Private Sub Option_Affiche_Alpha_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'ordre en fonction de : "Option Bouton"
'    * L'odre des Présentation dans Autocad
    Btn_Appliquer_Click
End Sub

Private Sub Btn_Appliquer_Click()
' Applique l'ordre en fonction de : "Option Bouton"
'    * L'ordre des Présentation dans Autocad
'    * D'une Liste Trié

' Excel (ListBox Clear)
    Liste_Presentations.Clear
' Autocad
    Dim AcadApp As Object
        Set AcadApp = GetObject(, "AutoCAD.Application")
    Dim AcadDoc As Object
        Set AcadDoc = AcadApp.ActiveDocument
' Titre
    Label_Onglet_Courant.Caption = "Présentation Courante: " & AcadDoc.GetVariable("CTAB")
' Variable
    Dim onglet As AutoCAD.AcadLayouts
    Dim i As Integer
        Set onglet = AcadDoc.Layouts
' Condition
    If Me.Option_Affiche_Acad = True Then
        ' Dans l'odre d'autocad
            Dim TabPresentation() As String
                ReDim TabPresentation(1 To onglet.Count - 1)
            For i = 0 To onglet.Count - 1
                If AcadDoc.Layouts(i).Name <> "Model" Then
                    TabPresentation(AcadDoc.Layouts(i).TabOrder) = AcadDoc.Layouts(i).Name
                End If
            Next i
            ' Transfert le tableau dans la ListeBox (Dans l'ordre d'Autocad)
            Liste_Presentations.List = TabPresentation
    Else
        ' Liste Trié
            For i = 0 To onglet.Count - 1
                If AcadDoc.Layouts(i).Name <> "Model" Then
                    Liste_Presentations.AddItem AcadDoc.Layouts(i).Name
                End If
            Next i
    End If
' Affichage
    Label_Nbre_Onglet = "Liste des présentations (" & Liste_Presentations.ListCount & ")"
End Sub

laurent950 · 3 Octobre 2021

Option @netparty

Aux Choix :
* Poste 12 (Utilisation de la Sub : "Btn_Appliquer_Click" [Le Code en Poste #13 est plus Propre])
Ou
*Poste 13 (Utilisation de la Sub : "Gestion_Liste_Onglets")
Idem

VB:

Option Explicit
Dim AcadApp As Object
Dim AcadDoc As Object
'
Private Sub UserForm_Initialize()
' Excel (ListBox Clear)
    Liste_Presentations.Clear
' Autocad
    Set AcadApp = GetObject(, "AutoCAD.Application")
    Set AcadDoc = AcadApp.ActiveDocument
    On Error Resume Next
 
' Check if AutoCAD application is open. If is not opened create a new instance and make it visible
    If AcadApp Is Nothing Then
        If MsgBox("AUTOCAD n'est pas ouvert" & vbLf & "Voulez-vous ouvrir AUTOCAD", 36, "Ouvrir AUTOCAD") = vbYes Then
            Set AcadApp = CreateObject("AutoCAD.Application")
            AcadApp.Visible = True
        End If
   End If
'   *** Renvois vers la fonction
'    * L'odre des Présentation dans Autocad (Par Defaulf Initialisation UsurForm)
    Gestion_Liste_Onglets
End Sub

Private Sub BP_Rafraichir_Click()
    UserForm_Initialize
End Sub

Private Sub Option_Affiche_Acad_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'odre en fonction de : "Option Bouton"
'    * L'odre des Présentation dans Autocad
    Gestion_Liste_Onglets
End Sub

Private Sub Option_Affiche_Alpha_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'odre en fonction de : "Option Bouton"
'    * D'une Liste Trié
    Gestion_Liste_Onglets
End Sub

Private Sub Btn_Appliquer_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'odre en fonction de : "Option Bouton"
'    * L'odre des Présentation dans Autocad
'    * D'une Liste Trié
    Gestion_Liste_Onglets
End Sub

Public Sub Gestion_Liste_Onglets()
'   *** Appliquer ordre des présentations
'   *** En fonction de :
'          * L'odre des Présentation dans Autocad
'          * D'une Liste Trié dans la ListeBox

' Excel (ListBox Clear)
    Liste_Presentations.Clear
' Autocad
        Set AcadApp = GetObject(, "AutoCAD.Application")
        Set AcadDoc = AcadApp.ActiveDocument
' Titre
    Label_Onglet_Courant.Caption = "Présentation Courante: " & AcadDoc.GetVariable("CTAB")
' Variable
    Dim onglet As AutoCAD.AcadLayouts
    Dim i As Integer
        Set onglet = AcadDoc.Layouts
' Condition
    If Me.Option_Affiche_Acad = True Then
        ' Dans l'odre d'autocad
            Dim TabPresentation() As String
                ReDim TabPresentation(1 To onglet.Count - 1)
            For i = 0 To onglet.Count - 1
                If AcadDoc.Layouts(i).Name <> "Model" Then
                    TabPresentation(AcadDoc.Layouts(i).TabOrder) = AcadDoc.Layouts(i).Name
                End If
            Next i
            ' Transfert le tableau dans la ListeBox (Dans l'ordre d'Autocad)
            Liste_Presentations.List = TabPresentation
    Else
        ' Liste Trié
            For i = 0 To onglet.Count - 1
                If AcadDoc.Layouts(i).Name <> "Model" Then
                    Liste_Presentations.AddItem AcadDoc.Layouts(i).Name
                End If
            Next i
    End If
' Affichage
    Label_Nbre_Onglet = "Liste des présentations (" & Liste_Presentations.ListCount & ")"
End Sub

netparty · 4 Octobre 2021

laurent950 à dit:

Option @netparty

Aux Choix :
* Poste 12 (Utilisation de la Sub : "Btn_Appliquer_Click" [Le Code en Poste #13 est plus Propre])
Ou
*Poste 13 (Utilisation de la Sub : "Gestion_Liste_Onglets")
Idem

VB:

Option Explicit
Dim AcadApp As Object
Dim AcadDoc As Object
'
Private Sub UserForm_Initialize()
' Excel (ListBox Clear)
    Liste_Presentations.Clear
' Autocad
    Set AcadApp = GetObject(, "AutoCAD.Application")
    Set AcadDoc = AcadApp.ActiveDocument
    On Error Resume Next
 
' Check if AutoCAD application is open. If is not opened create a new instance and make it visible
    If AcadApp Is Nothing Then
        If MsgBox("AUTOCAD n'est pas ouvert" & vbLf & "Voulez-vous ouvrir AUTOCAD", 36, "Ouvrir AUTOCAD") = vbYes Then
            Set AcadApp = CreateObject("AutoCAD.Application")
            AcadApp.Visible = True
        End If
   End If
'   *** Renvois vers la fonction
'    * L'odre des Présentation dans Autocad (Par Defaulf Initialisation UsurForm)
    Gestion_Liste_Onglets
End Sub

Private Sub BP_Rafraichir_Click()
    UserForm_Initialize
End Sub

Private Sub Option_Affiche_Acad_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'odre en fonction de : "Option Bouton"
'    * L'odre des Présentation dans Autocad
    Gestion_Liste_Onglets
End Sub

Private Sub Option_Affiche_Alpha_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'odre en fonction de : "Option Bouton"
'    * D'une Liste Trié
    Gestion_Liste_Onglets
End Sub

Private Sub Btn_Appliquer_Click()
'   *** Tri des présentations ordre alphanumérique
'   *** Renvois vers la fonction
' Applique l'odre en fonction de : "Option Bouton"
'    * L'odre des Présentation dans Autocad
'    * D'une Liste Trié
    Gestion_Liste_Onglets
End Sub

Public Sub Gestion_Liste_Onglets()
'   *** Appliquer ordre des présentations
'   *** En fonction de :
'          * L'odre des Présentation dans Autocad
'          * D'une Liste Trié dans la ListeBox

' Excel (ListBox Clear)
    Liste_Presentations.Clear
' Autocad
        Set AcadApp = GetObject(, "AutoCAD.Application")
        Set AcadDoc = AcadApp.ActiveDocument
' Titre
    Label_Onglet_Courant.Caption = "Présentation Courante: " & AcadDoc.GetVariable("CTAB")
' Variable
    Dim onglet As AutoCAD.AcadLayouts
    Dim i As Integer
        Set onglet = AcadDoc.Layouts
' Condition
    If Me.Option_Affiche_Acad = True Then
        ' Dans l'odre d'autocad
            Dim TabPresentation() As String
                ReDim TabPresentation(1 To onglet.Count - 1)
            For i = 0 To onglet.Count - 1
                If AcadDoc.Layouts(i).Name <> "Model" Then
                    TabPresentation(AcadDoc.Layouts(i).TabOrder) = AcadDoc.Layouts(i).Name
                End If
            Next i
            ' Transfert le tableau dans la ListeBox (Dans l'ordre d'Autocad)
            Liste_Presentations.List = TabPresentation
    Else
        ' Liste Trié
            For i = 0 To onglet.Count - 1
                If AcadDoc.Layouts(i).Name <> "Model" Then
                    Liste_Presentations.AddItem AcadDoc.Layouts(i).Name
                End If
            Next i
    End If
' Affichage
    Label_Nbre_Onglet = "Liste des présentations (" & Liste_Presentations.ListCount & ")"
End Sub

Bonjour @laurent950

Super cela fonctionne parfaitement

Un tout grand merci pour ton aide

Bonne journée

netparty · 4 Octobre 2021

Re bonjour @laurent950

J'ai encore une question, le fichier fonctionne parfaitement avec Autocad 2019 mais pas avec Autocad 2021aurais-tu une idée de ce problème.
J'ai bien chargé les références typelibrary 2021 dans Excel.

Bonne journée

XL 2019 Erreur 91

netparty

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Pièces jointes

laurent950

XLDnaute Barbatruc

laurent950

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

netparty

XLDnaute Occasionnel

Discussions similaires