Discussion :

[ludosnip]

bonsoir

on m'a aidé sur ce forum à faire un code sur une sauvegarde automatique vers un autre fichier, j'aimerais l'améliorer en mettant une boite de dialogue avec un oui et non. Si l'utilisateur clique sur Oui, la sauvegarde se fait, si l'utilisateur clique sur non, la sauvegarde ne se fait pas. Dans mon code ci dessous, cela ne fonctionne pas, que je clique sur oui ou non

pouvez vous me dire ce qui ne va pas ?

merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Close()
Dim Answer As Integer
 MsgBox "Voulez vous créer une sauvegarde ?", vbQuestion + vbYesNo, "question"
 If Answer = vbYes Then
 Dim fso As Object
 Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = "c:\users\ludovic\documents\scolaire\bases de données\CDI sous 2002.mdb"
    strDest = "c:\users\ludovic\documents\scolaire\bases de données\sauvegarde.mdb"
  fso.CopyFile strCurrent, strDest
   Else
Set fso = Nothing
 End If
End Sub

[loufab]

Bonjour,

il faut utiliser le msgbox comme une fonction pour qu'elle renvoie la valeur choisie. Dans ton cas tu l'utilises comme un commande, elle ne retourne rien.

Commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox "message",vb....,"titre"

Fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if msgbox("message",vb...,"titre") = vb... then

Il existe un complément pour générer directement les lignes VBA pour les msgbox et la gestion des réponses. Il est gratuit c'est dommage de s'en priver.

Le lien dans ma signature.