Annonces

À partir du mois de décembre, nous archiverons le contenu de la communauté datant de 10 ans et plus. Cette FAQ fournit de plus amples informations.

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

StevGerrard
Contributor
Contributor

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

StevGerrard
Contributor
Contributor

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

0 J'aime
Répondre
Solutions acceptées (2)
313 Visites
8 Réponses
Replies (8)

Y.AUBRY
Advisor
Advisor

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

Yoan AUBRY

EESignature

0 J'aime

StevGerrard
Contributor
Contributor
Bonjour,
Ca serait la première option, enregistrement avec renommage du fichier en cours.
0 J'aime

Y.AUBRY
Advisor
Advisor

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"?

Yoan AUBRY

EESignature

0 J'aime

felix.corre
Advocate
Advocate
Solution acceptée

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

0 J'aime

Y.AUBRY
Advisor
Advisor

+1 avec @felix.corre pour la sauvegarde

 

Par contre, remplace

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

par

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

 

Yoan AUBRY

EESignature

0 J'aime

Y.AUBRY
Advisor
Advisor
Solution acceptée

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

Yoan AUBRY

EESignature

0 J'aime

patrick.emin
Alumni
Alumni

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.


Patrick Emin animateur de la communauté francophone


Vous avez trouvé un message utile? Alors donnez un "J'aime" à ce message!
Votre question a eu une réponse satisfaisante? Voulez vous avoir l'amabilité de cliquer sur le bouton
 APPROUVER LA SOLUTION  en bas de la réponse qui apporte une solution?
Signez notre Livre d'Or
0 J'aime

StevGerrard
Contributor
Contributor
Merci à vous deux pour vos réponses !
Bonne continuation
0 J'aime