Discussion :

[LimsWolf]

Bonjour,
J'ai un problème avec une procèdure, ce n'est pas moi qui l'ai créer et j'ai du mal à la comprendre. Du coups, j'imagine que se sera compliqué de trouvé une solution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''OUVERTURE UNIQUE FICHIERS AUTOCAD
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Sub OuvrirDessinAutocad(NomDessin As String)
Dim DejaOuvert As Boolean
Dim i As Integer
 
    DejaOuvert = False
    For i = 0 To NombreDessinAutocad
        If ListeNomDessinAutocad(i) = NomDessin Then
            DejaOuvert = True
            Exit For
        End If
    Next i
    If DejaOuvert Then
        Set AcadDoc = ListeObjetDessinAutocad(i)
    Else
        NombreDessinAutocad = NombreDessinAutocad + 1
        Set ListeObjetDessinAutocad(NombreDessinAutocad) = AcadObj.Documents.Open(NomDessin)
        Set AcadDoc = ListeObjetDessinAutocad(NombreDessinAutocad)
        ListeNomDessinAutocad(NombreDessinAutocad) = NomDessin
    End If
 
End Sub

cette procèdure est sensée vérifier dans une table si le chemin du fichier à ouvrir y est déja, si oui, il s'y "connecte" , si non il l'ouvre.
Le problème est qu'il ne le trouve jamais(alors qu'il est dans la table) et qu'il ouvre le fichier en lecture seul.
Et je ne trouve pas le lien avec cette table.
si vous comprennez qlq chose je suis prenneur merci.

[jackborogar]

Bonjour,

Ton "If" ne reçoit aucune condition donc...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DejaOuvert Then

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DejaOuvert = True Then

[fring]

Bonjour,

Où est initialisée la variable NombreDessinAutocad ?


@ jackborogar
Pour info, cela fonctionne comme ça, sans préciser la condition "=True" ou "=False", il considère par défaut la condition "=True"

[jackborogar]

Ah?! ...
Au temps pour moi!

Alors je ne sais pas

[LimsWolf]

effectivement il y en avait un en commentaire dans une autre procédure, à priori ça marche.

Merci.

j'ai d'autre problème mais je vais tacher de plancher dessus.