XL 2019 Erreur 91

  • Initiateur de la discussion Initiateur de la discussion netparty
  • Date de début Date de début
N

netparty

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
laurent950

laurent950

XLDnaute Barbatruc
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
 
Dernière édition:
Vote positif 0 Vote négatif
laurent950

laurent950

XLDnaute Barbatruc
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
 
Dernière édition:
Vote positif 0 Vote négatif
N

netparty

XLDnaute Occasionnel
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
Cliquez pour agrandir...
Bonjour @laurent950

Super cela fonctionne parfaitement

Un tout grand merci pour ton aide

Bonne journée
 
Vote positif 0 Vote négatif

Discussions similaires

E
  • Question Question
Microsoft 365 Total général TCD à gauche : Solution VBA ?
Réponses
2
Affichages
409
merinos-BernardEtang
merinos-BernardEtang
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
301
sylvanu
sylvanu
Nicolas JACQUIN
  • Question Question
XL 2021 Optimisation code pour affichage ligne et colonne
Réponses
14
Affichages
692
patricktoulon
patricktoulon
N
  • Résolu(e)
Microsoft 365 Simplifier un code pour activer ou désactiver des CheckBox
6 7 8
Réponses
115
Affichages
3 K
ChTi160
ChTi160
E
  • Question Question
Microsoft 365 Excel VBA
Réponses
5
Affichages
331
Excellearning
E
Nicolas JACQUIN
  • Question Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
44
Affichages
1 K
Tartine
T
N
  • Résolu(e)
Microsoft 365 Calcul de plages horaires
2 3 4
Réponses
49
Affichages
1 K
NONO14
N
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
498
cathodique
cathodique
cathodique
  • Question Question
XL 2010 Comment lire array dans item dictionnaire
2 3
Réponses
33
Affichages
2 K
cathodique
cathodique
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation module, erreur après déprotection
2
Réponses
20
Affichages
1 K
Dranreb
Dranreb
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
557
AtTheOne
AtTheOne
S
  • Question Question
XL 2016 Pilotage TCD via Textbox dynamique
2
Réponses
22
Affichages
770
goube
goube
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
457
Claudinedu13
C
A
  • Question Question
XL 2016 erreur de code
Réponses
10
Affichages
324
AlphaOne
A
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
324
job75
job75
C
  • Résolu(e)
XL 2019 Supprimer noms des colonnes d'une feuille
2
Réponses
15
Affichages
480
carlos
C
treza88
  • Question Question
XL 2016 Fermer une fenetre windows par son titre
Réponses
2
Affichages
153
treza88
treza88
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Combiner plusieurs macros en 1 seule fonction
2 3 4
Réponses
58
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
337
Phil69970
Phil69970
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
472
francha62
F

Membres actuellement en ligne

27 membres et 361 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 288
Messages
2 118 053
Membres
113 420
dernier inscrit
Mourad Ben Ghazela