Mettre un message si enregistrement reussi sous excell

[mardu59]

Bonjour
Le but de ma recherche est d'éviter de retourner dans mon fichier pour voir si l'enregistrement est ok et gagner du temps.

Je cherche à mettre un message si l'enregistrement du fichier est reussi sous excell après avoir cliqué sur bouton "sauvegarde" avec le nom du fichier.

exemple "votre facture est enregistrée sous "c:\facturexxxxxxxxxx.xl

Merci

 

[Pierrot93]

Re : Mettre un message si enregistrement reussi sous excell

Bonjour,

peut être ceci, à la fin de ta procédure "sauvegarde" :

MsgBox "sauvegarde effectuée.."

bonne journée
@+

 

[mardu59]

Re : Mettre un message si enregistrement reussi sous excell

je teste

Merci

 

[Guest]

Re : Mettre un message si enregistrement reussi sous excell

Bonsoir,
Hello Pierrot

@mardu, sans fso mais avec la méthode SaveCopyAs de thisworkbook

Sub Sauvegarde2()
    c = Range("Répertoire").Value & Range("NomFichier").Value
    Application.DisplayAlerts = False
    On Error Resume Next
    ThisWorkbook.SaveCopyAs c
    If Err.Number = 0 Then MsgBox "Copie de sauvegarde réussie"
End Sub

A+

 

[mardu59]

Re : Mettre un message si enregistrement reussi sous excell

jmerci
je viens de tester la 1er solution effectivement j 'ai bien le message mais le problème est que même si il ne sauvegarde pas j'ai quand même le message.
je teste la 2eme solution