Macro de Sauvegarde

Bonjour

Je voudrais créer une macro qui me demande à la fermeture du fichier si je travaille sur le poste de Jean ?

Si oui j’enregistre les modifications de mon fichier d’origine et je crée une sauvegarde sur le bureau et je ferme le fichier.

Si non j’enregistre les modifications de mon fichier d’origine et je ferme le fichier.

J’ai essayé de créer la macro ci-jointe mais cela ne fonctionne pas très bien.

Merci pour votre aide

Jean-Pierre

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("Etes-vous sur le poste de JEAN ?", vbQuestion + vbYesNo) = vbYes Then

Cancel = True

Range("a3").Select

ActiveWorkbook.Save

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs "C:\Users\Desktop\fichierdeSauvegarde.xlsm"

End If

End Sub

bonjour,

peut-être comme ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Etes-vous sur le poste de JEAN ?", vbQuestion + vbYesNo) = vbYes Then
   Range("A3").Select
   ActiveWorkbook.Save
   ActiveWorkbook.SaveAs "C:\Users\Desktop\fichierdeSauvegarde.xlsm"
Else
   Range("A3").Select
   ActiveWorkbook.Save
End If
End Sub

ou encore

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Range("A3").Select
   ActiveWorkbook.Save
If MsgBox("Etes-vous sur le poste de JEAN ?", vbQuestion + vbYesNo) = vbYes Then
   ActiveWorkbook.SaveAs "C:\Users\Desktop\fichierdeSauvegarde.xlsm"
End If
End Sub

A+

Bonjour

Merci beaucoup les 2 Fonctionnent

Cordialement

Jean-Pierre

Bonjour.

Suite à mon message du 02/05 j’ai une complication supplémentaire, à savoir la macro ne doit se déroulé qu'après l'apparition de la boite de dialogue automatique qui demande si enregistré ou non et si oui alors la macro s’applique

D’avance merci de votre aide

Jean-Pierre

BONJOUR

 If MsgBox("Etes-vous sur le poste de JEAN ?", vbQuestion + vbYesNo) = vbYes Then
       Range("A3").Select
   Application.DisplayAlerts = False
       ActiveWorkbook.Save
       ActiveWorkbook.SaveAs "C:\Users\Desktop\fichierdeSauvegarde.xlsm"
    Application.DisplayAlerts = True 
    Else
       Range("A3").Select
   Application.DisplayAlerts = False
       ActiveWorkbook.Save
    Application.DisplayAlerts = True 
    End If
    End Sub

Bonjour.

Désolé ma cela ne fonctionne pas

message "instruction incorrect à l’intérieur d'une procédure"

en soulignant "Etes-vous sur le poste de JEAN ?"

D'avance merci pour votre réponse

Jean-Pierre

BONJOUR

Dit mois quel phrase a ete colorer par jaune ! ou a ete selectionne

bonjour

Celle la

"Etes-vous sur le poste de JEAN ?"