Sub CreationFichierAutocad()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' variable excel
' Chemin
Dim chm As String
chm = "E:\"
' les Nom des repertoires stoké dans un tableau (ou autres)
Dim t() As Variant
' tableau predefini sur 7 lignes et une colonne
t = Range(Cells(3, 1), Cells(9, 1))
' ou taille variable
' T = Range(Cells(3 ,1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(3, 256).End(xlToLeft).Column))
' *****************************************************************************
' Ps : pour rendre la taille du tableau variable sur x lignes et une colonne
' explication ci-dessous
' Tableaux
'
' T = Range(Cells(3 ,1), Cells(Cells(65536, 1).End(xlUp).Row, Cells(3, 256).End(xlToLeft).Column))
'
' Range(Cells(3, 1)
' Premiere celule du tableau pour 3,1 c'est la celule A3
' Cells(Cells(65536, 1).End(xlUp).Row, Cells(3, 256).End(xlToLeft).Column)
' ici Cells(65536, 1).End(xlUp).Row = Pour la derniére ligne "Non Vide" de la colonne A (du bas vers le haut)
' Ici Cells(3, 256).End(xlToLeft).Column = Pour la derniére colonne "Non Vide" de la colonne I3
' *****************************************************************************
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Depart autocad
'Nécessite la référence Autocad xxx Type Library (Menu Outils > Références)
Dim AcadApp As AcadApplication
Dim AcadPlan As AcadDocument
'Création de l'objet AutoCAD dans Excel :
Set AcadApp = AcadApplication
'Si ACAD n'est pas ouvert, il faut créer une nouvelle application comme si dessous :
Set AcadApp = New AcadApplication
'Rend AutoCAD visible
AcadApp.Visible = True
For i = 1 To UBound(t, 1)
' utilise le document ouvert :
Set AcadPlan = AcadApp.ActiveDocument
'Sauvegarde le dessin
AcadPlan.SaveAs chm & t(i, 1) & ".dwg"
Next i
'Ferme le dessin
AcadPlan.Close
'Ferme l'application AutoCAD
AcadApp.Quit
'Libérer la mémoire des objets ouverts
Set AcadApp = Nothing
Set AcadPlan = Nothing
End Sub
