Mettre un message si enregistrement reussi sous excell

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2011

• #2

Re : Mettre un message si enregistrement reussi sous excell

Bonjour,

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

Code:

MsgBox "sauvegarde effectuée.."

bonne journée
@+

 

Vote positif 0 Vote négatif

M

mardu59

Guest

• 11 Octobre 2011

• #3

Re : Mettre un message si enregistrement reussi sous excell

je teste

Merci

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 11 Octobre 2011

• #4

Re : Mettre un message si enregistrement reussi sous excell

Bonsoir,
Hello Pierrot🙂

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

Code:

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+

 

Vote positif 0 Vote négatif

M

mardu59

Guest

• 11 Octobre 2011

• #5

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

 

Vote positif 0 Vote négatif