[VBA Access 2000] Enregistrer Sous [Résolu]

Question

Posez votre question Signaler Répondre au sujet

[VBA Access 2000] Enregistrer Sous [Résolu]

Ulas89 2 Messages postés samedi 31 janvier 2009Date d'inscription 23 février 2009 Dernière intervention - 23 févr. 2009 à 12:11 - Dernière réponse : Ulas89 2 Messages postés samedi 31 janvier 2009Date d'inscription 23 février 2009 Dernière intervention

- 23 févr. 2009 à 16:00

VB.NET Posez votre question Signaler Répondre au sujet

Bonjour,

Je voudrais faire un bouton en access qui permet de faire une copie de la base de donnée sous un autre nom. J'ai cherché sur internet et sur l'aide d'Office mais je ne trouve rien. J'ai suivi quelques pistes tel que DoCmd.Save ou encore Docmd.CopyDatabaseFile mais sans résultat :s
C'est pour celà que je demande votre aide. Pourriez vous me donner une piste (ou encore la réponse ^^).

Merci d'avoir lu ce message

Afficher la suite

1 réponse

Répondre au sujet

Accepted Answer

+3

Utile

Hum c'est bon j'ai trouvé l'erreur que j'avais fait. J'avais oublié de mettre un Set et vu que j'ai fait en sorte que vba n'affiche pas les messages d'erreurs, je croyais que la méthode ne marchait pas. Sinon voici mon code pour ceux qui en ont besoin:
    Dim fic As String
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    fic = OpenFileDialog("Fichiers Microsoft Access (*.mdb)" & Chr(0) & "*.mdb*", Me)
    fs.CopyFile CurrentProject.FullName, fic

N'oubliez pas le Set ^^

Cette réponse vous a-t-elle aidé ? Oui Non

[VBA Access 2000] Enregistrer Sous [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !