' Piga25 avec extrait code de Patricktoulon et de Job75
Sub SauvegardeFichier()
SauvegardePDF
End Sub
Sub TESTONS()
'Nom = enregistrer_sous_XLSM
'Variables
Dim chemin_dossier As String
'Identifier le chemin du dossier
chemin_dossier = "C:\Users\Admin\Desktop\Secours du " & Format(Date, "dd mmmm yyyy") & "\"
'tester son existance
If Dir(chemin_dossier, vbDirectory) <> vbNullString Then
'dossier existe, ne rien faire
Else
' si le dossier n'existe pas, le créer
MkDir (chemin_dossier)
End If
'message
MsgBox ("votre fichier sera enregistré sur votre bureau dans le répertoire Secours du (avec la date du jour)")
' enregistrement du fichier au format xlsm dans le répertoire créé
Nom = chemin_dossier & [E2].Value & " - " & Format(Date, "dddd dd mmmm yyyy")
If Nom <> "" Then ActiveWorkbook.SaveAs Filename:=Nom, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Sub ModifCode()
Dim Debut As Integer, Lignes As Integer
With ThisWorkbook.VBProject.VBComponents("Module8").CodeModule
Debut = .ProcStartLine("SauvegardeFichier", 0)
Lignes = .ProcCountLines("SauvegardeFichier", 0)
.DeleteLines Debut + 1, Lignes - 1
.InsertLines 2, "sub SauvegardeFichier()"
.InsertLines 3, "SauvegardePDF"
.InsertLines 4, "End Sub"
End With
End Sub
'=================================================================================
'Copie originale du code sans le 1
Sub SauvegardeFichier1()
TESTONS
ModifCode
End Sub
'=================================================================================