Remonter de quelques lignes

[Encoretoutpetit]

Bonjours à tous.

 

Le sujet ne veut rien dire, sauf peut-être remonter quelques lignes dans le tableau du forum pour être mieux vue et ainsi peut-être avoir une réponse...

J'écrivais il y a quelque temps :

"Je me lance dans la programmation VBA pour Autocad et je galère pour afficher à l'écran une présentation sur laquelle je souhaite y écrire du texte.

Je maitrise le texte (enfin je crois !!!) mais pas le choix de la présentation, en effet, "ThisDrawing.ActiveSpace = acPaperSpace" m'affiche la dernière présentation active de l'espace papier, mais ce n'est pas forcément de celle-ci que j'ai besoin.

Si quelqu'un pouvait m'aider...

Merci d'avance."

 

Aujourd'hui je me répète, si quelqu'un pouvait m'aider...

Merci d'avance."

 

[winfield]

Je me lance dans la programmation VBA pour Autocad et je galère

Je me lance également dans le vba pour AutoCAD et tout comme toi je GALERE !!! :(

 

Je ne sais pas comment tu envisages les choses pour l'activation de l'onglet mais si ça peut t'aider :

 

Sub ActiverOnglet()

Dim ObjOnglet As AcadLayout
Dim StrNomOnglet As String
Line1:
StrNomOnglet = InputBox("Onglet à activer ?")

If StrNomOnglet = "" Then Exit Sub

On Error Resume Next

Set ObjOnglet = ThisDrawing.Layouts(StrNomOnglet)

If ObjOnglet Is Nothing Then
   MsgBox "L'onglet " & StrNomOnglet & " n'existe pas.": GoTo Line1
       Else
           ThisDrawing.ActiveLayout = ObjOnglet
               End If
           End Sub 

 

[Encoretoutpetit]

Bonjour à toi Winfield (et bonjour à tous les CadXpiens CadXpiennes).

 

Tu galères peut-être mais manifestement tu t'en sors très bien, et par la même occasion tu m'en sors aussi, ... avant de retomber dans une autre galère !!!

 

Merci beaucoup pour ton aide, et sûrement à bientôt sur ce forum.