Macro de vérifiction de fichier enregistré

Bonjour

je travaille sur une macro qui permet de créer une feuille de mise en plan pour la création de dxf selon nos besoins internes, et si le gros du code fonctionne, il bug si la mise en plan n’a pas été préalablement enregistrée.
du coup ma question est le suivante: comment peut-on vérifier que le fichier est déjà enregistré?

Merci de votre aide

Bonjour,
Je suppose que vous utilisez le nom du fichier comme point de départ;
Il faut donc surveiller le chemin d’enregistrement du fichier qui est vide s’il n’est pas enregistrer avec la ligne ci-dessous (à adapter en fonction des déclarations de variables):

If Part.GetPathName = "" Then
 xxxx 'Taper le traitement souhaité à ce niveau (msgbox ou autre)
End if
3 « J'aime »

Bonjour @Cyril.f et merci de votre retour
du coup je sais définir que ma mise en plan n’est pas enregistrée, ça c’est un premier point. :slight_smile:
maintenant: comment puis-je récupérer le chemin d’accès de la pièce 3D ayant servi pour cette mise en plan (en vue d’y récupérer des info, et de faire l’enregistrement de la MeP)
Merci beaucoup

Re,
Quelque chose comme ça:

Dim swModelDocExt   As ModelDocExtension
Dim swCustProp      As CustomPropertyManager

Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
Set swModel = swView.ReferencedDocument 'Récupère le fichier 3D lié à la vue
Set swModelDocExt = swModel.Extension
Set swCustProp = swModelDocExt.CustomPropertyManager("") 'Accède aux propriétés personnalisées  du fichier

4 « J'aime »

ah super
c’est ce qu’il nous fallait :slight_smile:
merci beaucoup!!!

1 « J'aime »