Bonjour à Tous

Encore un petit problème que je n'arrive pas à trouvé sur les forums. J'ai bien trouvé divers solutions mais aucune ne marche.
Mon problème est que j'ai une application avec 3 bases. Je voudrais avant de remettre à zéros une de mes bases, là sauvegarder.
Ci-dessous le code que j'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
    Dim nAnnee, nAnnee1 As Integer
    Dim cAnnee, cSource, cDestination As String
 
    cSource = "NoelPourTous"
    nAnnee = Year(Date)
    cAnnee = CStr(nAnnee - 1) & CStr(nAnnee)
    cDestination = "Campagne" & cAnnee
 
    Reponse = MsgBox("RAZ début de Campagne ???", vbYesNo, "RAZ Enregistrements")
 
    If Reponse = vbYes Then
 
        'Sauvegarde de la Base avant RAZ
        DoCmd.Save acTable = cSource, cDestination
        FileCopy cSource, cDestination
 
        'Empêche les demande de confirmation de s'afficher
        DoCmd.SetWarnings False
        'Efface le contenu de la table
        DoCmd.RunSQL "DELETE * FROM NoelPourTous;"
        'Retablit les confirmations
        DoCmd.SetWarnings True
 
    End If
Donc aucune des 2 lignes pour la sauvegarde ne fonctionne.
Ai-je fait une erreur ou faut-l utiliser autre chode.
Merci d'avance
Joël