sam2009

salut, svp pourriez vous m'aider à trouver une commande vba qui peut me lister tout mes fichiers qui se trouvent dans un répertoire donné ? merci

salut, svp j'ai créer un programme qui m'extrait vers excel toutes les attributs de mon fichier "plan1.dwg" ! - maintenant je veux que mon programme puisse ouvrir à partir d'un répertoire tous mes fichier l'un après l'autre est exécute ce programme. mais je connais pas l'instruction en vba :casstet: ! pour que je puisse l'ajouter à mon programme. merci de votre aide

salut, svp j'ai créer un programme qui m'extrait vers excel toutes les attributs de mon fichier "plan1.dwg" ! - maintenant je veux que mon programme puisse ouvrir à partir d'un répertoire tous mes fichier l'un après l'autre est exécute ce programme. mais je connais pas l'instruction en vba :casstet: ! pour que je puisse l'ajouter à mon programme. merci de votre aide

bonjour, je travaille avec la version autocad 2008 maitenant, et j'ai plusieurs fichiers dwg, à imprimer et je ne trouve plus l'utilitaire "batchplt" qui se trouvé à la version autocad2004 ? comment pourrai_je imprimer automatiquement mes fichiers votre aide svp ,

merci, pour ton aide DAOConceptElec je vais tester !

merci pour ta réponse ! enfait j'ai la version 2004 d'autocad oui je veux récupérer tous mes attributs dans une liste merci encore pour l'interêt que tu as donné à mon problème ! nb: j'ai vraiment besoin de ce programme c'est trés urgent merci pour votre aide

:exclam: je m'excuse mais il ya personne qui m'a répondu alors j'ai refait le sujet pour redemander l'aide ! voilà je ne sais pas pourquoi mon programme ce plante :casstet: qand il arrive à ça : " Dim Entite As AcadBlockReference" stp voilà le programme le but est de selectionner tout les attributs qui ce trouve dans le dessin courant et les mettre dans la variable "temp" pour les réutilisés après merci infinnement pour votre aide si précieuse ! ' --------------------------------------------------- 'Section 4. Sélection du dessin en cours ' --------------------------------------------------- Dim EnTete As Boolean Rangee = 1 EnTete = False If selection_existe("TEMP") Then Set Selection = ThisDrawing.SelectionSets("TEMP") Selection.Clear Else Set Selection = ThisDrawing.SelectionSets.Add("TEMP") End If Selection.Select acSelectionSetAll, Codes, Valeurs ' --------------------------------------------------- 'Section 4. Extraction des attributs. ' --------------------------------------------------- Dim Entite As AcadBlockReference For Each Entite In Selection Matrice = Entite.GetAttributes If EnTete = False Then For Compte = LBound(Matrice) To UBound(Matrice) If StrComp(Matrice(Compte).EntityName, "AcDbAttribute", 1) = 0 Then Feuille.Cells(Rangee, Compte + 1).Value = Matrice(Compte).TagString End If Next Compte End If Rangee = Rangee + 1 For Compte = LBound(Matrice) To UBound(Matrice) Feuille.Cells(Rangee, Compte + 1).Value = Matrice(Compte).TextString Next Compte EnTete = True Next ' --------------------------------------------------- 'Section 6. effacer la selection "TEMP" ' --------------------------------------------------- Public Function selection_existe(strnom As String) As Boolean Dim control As Boolean control = False On Error Resume Next Set objselection = ThisDrawing.SelectionSets(strnom) If Err Then Err.Clear Set objselection = ThisDrawing.SelectionSets.Add(strnom) If Not Err Then control = True Else control = True End If selection_existe = control End Function

alors, personne ne peux m'aider ? :(

allo ! sos

je ne sais pas pourquoi il ce plante qand il arrive à ça : "Dim Entite As AcadBlockReference" stp voilà le programme le but est de selectionner tout les attributs qui ce trouve dans le dessin courant et les mettre dans "temp" pour les réutilisés après merci infinnement pour votre aide si précieuse ! ' --------------------------------------------------- 'Section 4. Sélection du dessin en cours ' --------------------------------------------------- Dim EnTete As Boolean Rangee = 1 EnTete = False If selection_existe("TEMP") Then Set Selection = ThisDrawing.SelectionSets("TEMP") Selection.Clear Else Set Selection = ThisDrawing.SelectionSets.Add("TEMP") End If Selection.Select acSelectionSetAll, Codes, Valeurs ' --------------------------------------------------- 'Section 4. Extraction des attributs. ' --------------------------------------------------- Dim Entite As AcadBlockReference For Each Entite In Selection Matrice = Entite.GetAttributes If EnTete = False Then For Compte = LBound(Matrice) To UBound(Matrice) If StrComp(Matrice(Compte).EntityName, "AcDbAttribute", 1) = 0 Then Feuille.Cells(Rangee, Compte + 1).Value = Matrice(Compte).TagString End If Next Compte End If Rangee = Rangee + 1 For Compte = LBound(Matrice) To UBound(Matrice) Feuille.Cells(Rangee, Compte + 1).Value = Matrice(Compte).TextString Next Compte EnTete = True Next ' --------------------------------------------------- 'Section 6. effacer la selection "TEMP" ' --------------------------------------------------- Public Function selection_existe(strnom As String) As Boolean Dim control As Boolean control = False On Error Resume Next Set objselection = ThisDrawing.SelectionSets(strnom) If Err Then Err.Clear Set objselection = ThisDrawing.SelectionSets.Add(strnom) If Not Err Then control = True Else control = True End If selection_existe = control End Function

merci Patrick je vais tester mnt !

Svp J’ai besoin d’une routine qui peut me selectionner tous les blocs qui existe dans mon dessin courant on les affectant à une variable . j'ai fait ça mais il ne selectionne que le bloc que je ai demadé quand je veux utiliser "acselectionsetall" ça marche pas merci en avance de votre aide voilà le petit programme qui me cherche un seule bloc dans tout le dessin !! ‘ Sélection du bloc spécifié. ' --------------------------------------------------- Dim EnTete As Boolean Rangee = 1 EnTete = False If selection_existe("TEMP") Then Set Selection = ThisDrawing.SelectionSets("TEMP") Selection.Clear Else Set Selection = ThisDrawing.SelectionSets.Add("TEMP") End If Dim Point1(2) As Double Dim Point2(2) As Double Dim Codes(1) As Integer Dim Valeurs(1) As Variant Point1(0) = 0#: Point1(1) = 0#: Point1(2) = 0# Point2(0) = 0#: Point2(1) = 0#: Point2(2) = 0# ' On recherche le bloc FICHIER Codes(0) = 0: Valeurs(0) = "INSERT" Codes(1) = 2: Valeurs(1) = " FICHIER" Selection.Select acSelectionSetAll, Point1, Point2, Codes, Valeurs

salut, svp j'ai besoin d'une commande vb qui me fait la selection de tout les objets du dessin et puis extraire les attributs existante dans ce dernier merci