Discussion :

[dercom]

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!

[RobiPMS]

Bonjour.

Je n'ai pas eu la possibilité de tester pour d'autres langues, mais bien sur l'ensemble des systèmes d'exploitation depuis XP.
1. Ajouter la référence Windows Script Host Object Model (wshom.ocx) au projet
2. Utiliser la méthode décrite dans la FAQ : http://access.developpez.com/faq/?pa...Rep#SpecialDir

Code :

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

1
2
3
4
 
Dim oWsh As New WshShell
Dim srtBureau As String
strBureau = oWsh.SpecialFolders("Desktop")

Cordialement

[dercom]

Bonjour et merci pour la réponse:
ça marche à merveille! j'avais vu ces méthodes dans mes recherche mais personne ne disait qu'il fallait activer une référence.
Je vous remercie pour votre aide.