Sub Sauvegarder()
Dim nomFichier As String
Dim formatFichier As String
' Vérifier si la cellule H3 contient une valeur
If IsEmpty(Range("H3")) Then
MsgBox "La cellule H3 est vide. Veuillez saisir un nom de fichier.", vbExclamation
Exit Sub
End If
' Définir le format de fichier (ajuster selon vos besoins)
formatFichier = ".xlsm" ' Ou ".xlsx", ".csv", etc.
' Construire le nom de fichier complet
nomFichier = "L:\Cooperation\Travaux Sur Programmes\2024\Requetes G07\" & Range("H3").Value & formatFichier
' Enregistrer le classeur
On Error Resume Next ' Gérer les erreurs d'enregistrement
ActiveWorkbook.SaveCopyAs Filename:=nomFichier
On Error GoTo 0
If Err.Number <> 0 Then
MsgBox "Une erreur s'est produite lors de l'enregistrement : " & Err.Description, vbCritical
Else
MsgBox "Le classeur a été enregistré avec succès.", vbInformation
End If
End Sub