AutoCAD : Sauvegarde du fichier avec un autre nom et ouverture direct avec vba

[StevGerrard]

Bonjour,

J'aurai besoin d'un code vba qui permettrait d'enregistrer mon dessin sous un autre nom et qui l'ouvrirait directement pour pouvoir le modifier. Je n'ai pas trouvé comment faire ou je ne l'ai pas vraiment compris. 

Dans un second temps j'aimerai également un code qui permettrait d'afficher mon onglet présentation, de l'imprimer dans un certain format A3 pdf et d'ouvrir le pdf dans la foulée.

Si l'un ou plusieurs d'entre vous avaient ces solutions je lui serai très reconnaissant !

Merci !

---

Le titre du sujet a été modifié par un modérateur pour faciliter la recherche. Titre original:
Sauvegarde du fichier avec un autre nom et ouverture direct avec vba

[Y.AUBRY]

Bonjour @StevGerrard,

Lorsque tu dis "J'aurai besoin d'un code vba qui permettrait d'enregistrer mon dessin sous un autre nom et qui l'ouvrirait directement pour pouvoir le modifier." tu veux un code VBA dans AutoCAD (du coup enregistrement avec renommage du fichier en cours) ou dans un fichier Excel par exemple ou il y aurait une liste de fichiers (copie du fichier puis ouverture du fichier renommé). Pour Excel, par exemple le chemin complet du fichier d'origine dans la colonne A, le chemin complet du fichier renommé dans la colonne B...

A+ Yoan

[StevGerrard]

Bonjour,
Ca serait la première option, enregistrement avec renommage du fichier en cours.

[Y.AUBRY]

Et du coup le renommage se fait automatiquement? (Ajout d'un préfixe, d'un suffixe au nom de fichier actuel?)

Ou tu passes par la boite de dialogue "Enregistrer sous"?

[felix.corre · Accepted solution]

Bonjour,

Pour la sauvegarde:

Sub SaveAsNew()
Dim Odoc As AcadDocument
Dim Doss, Fich, NewFich, TabFich() As String
Set Odoc = ThisDrawing.Application.ActiveDocument
Doss = Odoc.Path
Fich = Odoc.Name
TabFich() = Split(Fich, ".dwg")
NewFich = Doss + "\" + TabFich(0) + "-New"
Odoc.SaveAs NewFich
End Sub

Cordialement,

Félix

[Y.AUBRY]

+1 avec @felix.corre pour la sauvegarde

Par contre, remplace

NewFich = Doss + "\" + TabFich(0) + "-New"

par

NewFich = Doss + "\" + TabFich(0) + "-New.dwg" 

[Y.AUBRY · Accepted solution]

Pour l'impression PDF, regarde du coté de cet article.

https://forums.autodesk.com/t5/vba/vba-macro-autocad-dwg-to-pdf/td-p/8071212

A+ Yoan

[patrick.emin]

Bonjour @StevGerrard 

Merci d’avoir participé à notre communauté ! Vos questions et leurs réponses aident tout le monde. Si des réponses vous paraissent appropriées, voulez vous avoir l'amabilité de cliquer sur le bouton  APPROUVER LA SOLUTION  en bas de la réponse qui apporte une solution?
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.

[StevGerrard]

Merci à vous deux pour vos réponses !
Bonne continuation