enregistrement avant de quitter

[jack]

bonsoir le forum

Lorsque je fais 'enregister sous' puis je sélectionne mon support ( disquette cd ou clé USB ) il me faudrait un message : ' avez vous pensez à enregister une copie sur votre disque dur avant de faire le tranfert du dossier sur un support amovible ?'
est il possible de faire en sorte que ce message s'affiche automatiquement lorsqu'on veut enregister le dossier soit sur une disquette soit un cd soit sur une clé USB
OU ALORS faire une copie automatique sur C: en sachant que le programme est utilisé sur deux PC différents et par là même les chemins d'enregistrements sont différents en sélectionnant un des deux chemins

Merci de votre aide et bonne soirée à tous

Jack

 

[PascalXLD]

Bonsoir

peut-être avec ce code

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then MsgBox 'avez vous pensez à enregister une copie sur votre disque dur avant de
faire le tranfert du dossier sur un support amovible ?'
End Sub

Bonne soirée

 

[jack]

bonsoir
Désolé mais cela ne semble pas fonctionner
merci tout de même

bonne soirée
jack

 

[PascalXLD]

Re

Le code que je t'ai donné faisait afficher le message si tu faisais Enregistrer sous

Je pensais que c'est ce que tu désirais

 

[PascalXLD]

Re

Tiens voici un autre code

ce dernier te demande lorsque tu fais un 'enregistrer sous' si tu as fait une sauvegarde si tu dis non il te l'enregistre puis t'ouvre la boite enregistrer sous

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
If MsgBox('avez vous pensez à enregister une copie sur votre disque dur avant de faire le tranfert' & _
'du dossier sur un support amovible ?', vbYesNo, 'Attention !') = vbNo Then
ActiveWorkbook.Save
MsgBox 'Voilà c'est fait !'
End If
End If
End Sub

Bon courage