IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Recherche de texte dans fichiers AutoCad à partir d'un fichier Excel (VBA)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Novembre 2024
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2024
    Messages : 2
    Par défaut Recherche de texte dans fichiers AutoCad à partir d'un fichier Excel (VBA)
    Bonjour,

    Je me présente, ancien analyste programmeur (VB, Turbo Pascal, Windev, C/C++, SQL, .....)
    Je connais un peu la programmation sans être un monstre.

    Je suis maintenant dans une autre entreprise, à un autre poste, et j'aimerais développer, afin d'aider mon service, un utilitaire (en vba sous excel 365).

    Le but est de rechercher une référence saisie (ex:VP 7010) dans une arborescence de fichier autocad.

    J'ai déjà développé toute la partie de parcours de fichiers prenant en compte un dossier et ses sous-dossiers correspondants =>ok

    Ma plus grosse difficulté est la méthode à utiliser afin d'ouvrir un fichier autocad, recherche de ma référence saisie dans les zones de texte du fichier autocad et ensuite refermer le fichier

    Si quelqu'un à des idées et du temps pour m'orienter, m'aider.....

    En espérant avoir était clair, je vous remercie par avance.

    Geoffroy.

  2. #2
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Salut, ceci devrait te servir de base de travail, adapte en fonction de ton code déjà existant. N'oublie pas de référencer la bibliothèque ACAD dans VBA.

    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
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    Sub RechercherReferenceAutoCAD()
        Dim acadApp As Object
        Dim acadDoc As Object
        Dim textObj As Object
        Dim refRecherche As String
        Dim dossier As String
     
     
        refRecherche = "VP 7010" ' À remplacer par votre référence
        dossier = "C:\Chemin\Vers\Votre\Fichier.dwg" ' Chemin du fichier AutoCAD
     
        ' Ouvrir AutoCAD
        On Error Resume Next
        Set acadApp = GetObject(, "AutoCAD.Application")
        If acadApp Is Nothing Then
            Set acadApp = CreateObject("AutoCAD.Application")
            acadApp.Visible = True
        End If
        On Error GoTo 0
     
        ' Ouvrir le fichier AutoCAD
        Set acadDoc = acadApp.Documents.Open(dossier)
     
        ' Parcourir tous les objets du modèle
        Dim found As Boolean
        found = False
        For Each textObj In acadDoc.ModelSpace
            ' Vérifier si l'objet est du texte
            If textObj.ObjectName = "AcDbText" Or textObj.ObjectName = "AcDbMText" Then
                ' Comparer le contenu du texte avec la référence
                If InStr(1, textObj.TextString, refRecherche, vbTextCompare) > 0 Then
                    MsgBox "Référence trouvée : " & refRecherche
                    found = True
                    Exit For
                End If
            End If
        Next textObj
     
        ' Fermer le fichier si la référence n'est pas trouvée
        If Not found Then
            MsgBox "Référence non trouvée dans le fichier " & dossier
        End If
     
        ' Fermer le fichier AutoCAD
        acadDoc.Close False
     
        Set acadDoc = Nothing
        Set acadApp = Nothing
    End Sub

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Novembre 2024
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2024
    Messages : 2
    Par défaut
    Bonjour Frank,

    Désolé pour ma réponse tardive mais j'ai eu des modifications de planning.

    Je te remercie pour ta réponse, je suis sur que cela va m'aider .


    Dès que je peux j'essaie cela.
    Je te tiendrais au courant.

    Salut,
    Geoffroy.

Discussions similaires

  1. Recherche de texte dans fichier word inclus
    Par Albanov dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 12/03/2012, 14h56
  2. Recherche de texte dans word à partir d'excel
    Par bullrot94 dans le forum Excel
    Réponses: 2
    Dernier message: 19/10/2008, 14h43
  3. Rechercher une valeur dans fichier Excel depuis VBA Access
    Par tribaleur dans le forum VBA Access
    Réponses: 1
    Dernier message: 16/07/2008, 14h10
  4. [WinXP] rechercher du texte dans les fichiers
    Par arcane dans le forum Windows XP
    Réponses: 3
    Dernier message: 05/05/2006, 12h10
  5. [Configuration] recherche de texte dans un fichier
    Par carlos20 dans le forum EDI, CMS, Outils, Scripts et API
    Réponses: 10
    Dernier message: 17/10/2005, 17h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo