VBA Excel qui commande AutoCAD

Je vais voir poour plus de renseignement car c'est pour un collègue, demain j'en aurai plus je pense

Bonjour,

Ce que vous m'avez donné marche.
Maintenant j'ai deux questions:

Question 1:
Existe t'il une commande qui une foi la valeur entrée dans la "IMPUTBOX" il me ramène automatiquement sur AutoCad sans avoir besoin d'appuyer a chaque foi sur les onglets en bas ?

Question 2:
Et ce que c'est possible qu'a la place de "IMPUTBOX" il me demande la valeur directement sur AutoCad ?

Merci
JP

Je ne sais pas pas comment tu as monté ton programme, alors difficile de répondre avec précision.
A quel moment as-tu besoin d'entrer cette valeur?.
Si j'ai bien compris, tu as un bouton sur un UserForm Excel qui lance Autocad et qui charge un plan DWG.
Après, que ce passe-t-il? C'est quoi les onglets en bas sur lesquels tu appuyes?
Peut-être que si je voyais ton code, j'y verrai plus clair.
:)

Oui voila j'ai un UserForm Excel avec un bouton qui s'intitue "Selectionner_autocad".
Voila donc mon code en entier pour se bouton.

"SaisirPoint" est une fonction qui permet de dire le point d'insertion du texte sur AutoCad

Private Sub Bouton_selection_autocad_Click()
Dim pointinsertion As Variant
Dim i As Integer
Dim Nombre_guardians As Long
TextBox_valeur_guardians.Value = 0
Nombre_guardians = 0
For i = 1 To TextBox_nombre_de_terrasses.Value
Nombre_guardians = Val(InputBox("Entrer le nombre de guardians"))
TextBox_valeur_guardians = CStr(CDbl(TextBox_valeur_guardians) + Nombre_guardians)
pointinsertion = SaisirPoint("Point d'insertion du texte")
Call EcrireTexte("Guardians = " & Nombre_guardians, pointinsertion)
Next i
End Sub

Voila comment activer la fenêtre Autocad, si ça répond à ta question

Private Sub Bouton_selection_autocad_Click() 
Dim pointinsertion As Variant 
Dim i As Integer 
Dim Nombre_guardians As Long 
TextBox_valeur_guardians.Value = 0 
Nombre_guardians = 0 
For i = 1 To TextBox_nombre_de_terrasses.Value 
Nombre_guardians = Val(InputBox("Entrer le nombre de guardians")) 
TextBox_valeur_guardians = CStr(CDbl(TextBox_valeur_guardians) + Nombre_guardians) 

' Connexion avec AutoCAD (on active AutoCAD s'il est en cours d'exécution) 
Dim AcadApp As AutoCAD.AcadApplication 
On Error Resume Next 
Set AcadApp = GetObject(, "AutoCAD.Application") 
On Error GoTo 0 
If AcadApp Is Nothing Then 
Msgbox "AutoCAD n'est pas démarré"
Exit Sub
End If 
AcadApp.Visible = True 

pointinsertion = SaisirPoint("Point d'insertion du texte") 
Call EcrireTexte("Guardians = " & Nombre_guardians, pointinsertion) 
Next i 
End Sub