Merci à tous
Je suis un peu nul pour l'instant...j’espère toujours acquérir votre niveau...c'est pas gagné!!!
Je ne comprends pas bien vos codes,
Voici le module de sauvegarde que j'ai, à quel endroit je colle le code?
est-ce qu'il va fonctionner avec mon usine à gaz?
'*******************************************************
'Procédure permettant de créer une sauvegarde du fichier
'*******************************************************
Sub FichierSVG()
'Déclaration des variables
Dim NomDossier As String 'Dossier dans lequel on va stocker la SVG
Dim NomFichier As String 'Fichier de SVG
Dim chemin_dossier_SVG As String 'Chemin de la SVG
Dim nomclient As String 'Déclare le nom de client
Dim numdevis As String 'Déclare le numéro de devis
Dim title As String 'Déclare le Titre de la SVG
'Rafraichissement de l'écran
Application.ScreenUpdating = False
'Affectation des variables du devis
NomDossier = "F:\Documents\01.DK.PLAC'ART_QUOTIDIEN\02.DEVIS_FACTURES\2020 DEVIS\"
nomclient = Cells(12, 18)
numdevis = Cells(9, 8)
title = Cells(11, 2)
'Désactiver les messages d'alertes
Application.DisplayAlerts = False
'On crée le nom du fichier de SVG
NomFichier = title & " " & "N°" & " " & numdevis & " " & nomclient & ".xlsm"
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
'On affiche un message de confirmation
MsgBox "Votre fichier de sauvegarde intitulé : " & NomFichier & vbNewLine & _
"dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"
'Rafraichissement de l'écran
Application.ScreenUpdating = True
Sheets("DEVIS").Range("D16") = ("***A Renseigner***")
Sheets("DEVIS").Range("R12") = ("NOM-Prénom")
With Range("H9")
.Value = .Value + 1
End With
'On quitte Excel
'Application.Quit
End Sub
*****************************************************************************************************