Gestion fichier en vba

[Ellionel]

Bonjour ,

 

je suis en train de rediger une macro en vba , et je bute sur le fair de sauvegarder le dessin en cours , si je fais "ThisDrawing.Save " il plante , car je pense que le fichier est encours d'utilisation .

Je veux l'enregister dans un dessin temporaire puis fermer mon premier fichier et ensuite le reenregistrer ..Voici le début :

 

" If MsgBox("Voulez éffacer le dessin existant ?", _

vbYesNo) = vbYes Then

ThisDrawing.SaveAs ("c:\dessinencours_old.dxf")

'

de plus la fonction pour créer un repertoire , svp

 

Merci

 

 

 

[jalna]

Salut

Je suis pas doué en vba mais je vois plutot cela comme début

Dim Msg, Style, Title, Response, MyString
Msg = "Souhaitez-vous sauvergarder?"                   ' Définit le message.
Style = vbYesNo + vbCritical + vbDefaultButton2     ' Définit les boutons.
Title = "Sauvegarde dessin en cours"                ' Définit le titre.
                                                   ' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then                            ' L'utilisateur a choisi Oui.
   MyString = "Oui"                                ' Effectue une action.
   ThisDrawing.SaveAs ("c:\dessinencourse_old")
   UserForm1.Hide                                  ' Ferme la Form ( par défaut userform1).

Else                                                ' L'utilisateur a choisi Non.
   MyString = "Non"                                ' Effectue une action.
   UserForm1.Hide                                  ' Ferme la Form ( par défaut userform1).
End If

 

Bon courage pour la suite...

[Ellionel]

Merci pour cette réponse ,

 

le probleme vient que les dessins sont ne reseau et si le dessin est vérrouillé au moment de l'enregistrment , il ne veux pas 'enregistrer .

Si vous avez une idée , je ne dis pas nom .

 

Pour creer un repertoire , je passe par une commande fso soit :

 

Dim fso

Set fso = CreateObject("scripting.filesystemObject")

fso.createfolder ("c:\Nouveaux repertoire\)

 

A+

 

[Patrick_35]

Salut

en vlisp u (vla-save (vla-get-activedocument (vlax-get-acad-object))) fonctionne parfaitement :o

 

Sinon, pourqoui utiliser une fonction vbscript alors que tu as la fonction mkdir

 

@+

[Ellionel]

Re bonjour ,

 

Je suis venu à bout de mon probleme , a savoir enregister en vba un dessin deja ouvert .

par ex; Voux ouvrez un plan , le modifer puis le reenregistrer .

 

La commande 'thisdrawing.save" ne marche pas car le fichier est vérouille par autocad .

 

Donc voici ma solution :

 

'Tester l'existance de ce fichier

If Dir("non du fichieré, vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) <> "" Then

 

'J'affiche un message si le fichier existe

If MsgBox("Voulez vous Enregistrer sur le meme N° de plan ?", _

vbYesNo) = vbYes Then

 

' Si oui Enregistre le dessin, puis zoom

SendKeys "_qsave{ENTER}"

ThisDrawing.Application.ZoomAll

 

 

Voila , sinon je fais thisdrawing.saveas ("nouveaux non ") ..

 

@+