Option Explicit Sub Sauve2000() Dim chemin As String Dim Nom As String Dim Ext As String Dim fichier As String Dim Fichier2000 As String fichier = ThisDrawing.FullName chemin = ThisDrawing.Path 'On récupère le chemin complet du fichier Nom = ThisDrawing.Name 'On récupère le nom du fichier seul avec son extension Ext = Right(Nom, 3) 'Extraction de l'extension Nom = Left(Nom, Len(Nom) - (Len(Ext) + 1)) 'Extraction du nom seul Fichier2000 = chemin & "\" & Nom & "_v2000." & Ext 'Recomposition du nom de fichier pour la version 2000 If FichierExiste(Fichier2000) = True Then Fichier2000 = chemin & "\" & Nom & "_v2000_bis." & Ext End If If Ext = "dwg" Then ThisDrawing.Save 'Sauvegarde du dessin en cours ThisDrawing.SaveAs Fichier2000, ac2000_dwg 'Création d'une copie en version 2000 ThisDrawing.Close (False) "Fermeture du fichier Else MsgBox ("le fichier n'est pas un .dwg, la sauvegarde ne se fera pas") End If End Sub Function FichierExiste(NomFichier As String) As Boolean 'Fonction qui vérifie l'existence d'un fichier sur votre ordinateur FichierExiste = Dir(NomFichier) <> "" End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.