- 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