Bonjour, j'utilise ce code pour sauvegarder ma base dorsal dans un dossier prévu a cet effet
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
 
Option Compare Database
 
Public Function CopierBase()
Dim strDBName, strDBPath As String
Dim fso As Object
 
 ' On attribue à strDBName le chemin et le nom de fichier
 strDBName = "C:/KADER/DATA/vente_be.accdb"
 ' Concaténation du chemin
strDBPath = "C:/KADER/SAVE/vente_du_" & Format$(Now, "mm-yyyy") & ".accdb" & ".backup"
 
 ' Crée un nouvel objet pour la copie de la base
 Set fso = CreateObject("Scripting.FileSystemObject")
 
' Crée une copie de la base courante
 
 fso.CopyFile strDBName, strDBPath
 
 
' Vidange de l'objet fso
 Set fso = Nothing
 
 End Function
Mon problème maintenant c'est que je voudrais que la sauvegarde se fasse sur le bureau, après des heures de recherche je ne trouve pas le code approprié.
Je compte offrir ma base à d'autres personnes qui ont d'autres systèmes Windows que le mien qui est Windows 8 donc si possible j'aimerai obtenir un code qui vas fonctionner avec n'importe quel système Windows installer sur le "c" ou sur le "d' dans n'importe quelle langue Windows

Merci d'avance!