Discussion :

[lea.lea]

Bonjour,

Je débute avec ce projet sur Access, et en vois la fin (tout fonctionne parfaitement sur mon ordinateur) mais ne trouve pas de solution à mon dernier problème. J'ai dû créer une simple base de données répertoriant des personnes : la clé primaire est leur numéro de téléphone et j'ai plusieurs informations les concernant. Je dois, en cliquant sur un bouton "Enregistrer" dans un formulaire, exporter six requêtes au format excel (qui correspondent à des listes de personnes classées par zones géographiques), toujours sur le même fichier.
Comme je l'ai dit, tout fonctionne sur mon ordinateur : j'ai enregistré mes six exportations et créé une macro associée au bouton "Enregistrer" qui utilise la fonction "ExécuterImporationExportationSauvegardée" six fois.

Mon problème est le suivant : j'aimerais que ma base de données fonctionne quel que soit le PC sur lequel elle est copiée. Par exemple, que si le fichier BaseDeDonnees.accdb est enregistré dans D:\Mes Documents, l'enregistrement crée un dossier "D:\Mes Documents\Listes" dans lequel il enregistre mes six fichiers excel, toujours au même endroit. Il ne faut pas qu'on ait à ouvrir Excel, ni à confirmer six fois l'écrasement des fichiers.

J'ai essayé de plusieurs manières, par exemple en créant une fonction générale :

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
Function Enregistrement_test()
On Error GoTo Enregistrement_test_Err
 
    DoCmd.OutputTo acOutputQuery, "Liste1", "ExcelWorkbook(*.xlsx)", CurrentProject.Path & "\Listes\Liste1.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste2", "ExcelWorkbook(*.xlsx)", CurrentProject.Path & "\Listes\Liste2.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste3", "ExcelWorkbook(*.xlsx)", CurrentProject.Path & "\Listes\Liste3.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste4", "ExcelWorkbook(*.xlsx)", CurrentProject.Path & "\Listes\Liste4.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste5", "ExcelWorkbook(*.xlsx)", CurrentProject.Path & "\Listes\Liste5.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste6", "ExcelWorkbook(*.xlsx)", CurrentProject.Path & "\Listes\Liste6.xlsx", False, "", , acExportQualityPrint
 
 
Enregistrement_test_Exit:
    Exit Function
 
Enregistrement_test_Err:
    MsgBox Error$
    Resume Enregistrement_test_Exit
 
End Function

Puis je la fais exécuter par une macro lancée sur clic sur 'Enregistrer' (à ce propos, il faut bien utiliser l'action "ExécuterCode", tout simplement ?)
Problème : "Microsoft Access ne peut pas enregistrer les résultats dans le fichier que vous avez sélectionné".

Quelle est mon erreur, et comment arriver à mes fins proprement ?

Merci d'avance !

[ZeRedDiamond]

Bonjour,
Déjà un conseil : personnellement je ne fais jamais de clé primaire avec un numéro de téléphone!!!!

Je ne comprends pas bien quel est ton erreur, peux-tu un peu plus résumer la chose stp?

Cordialement.

ZeRedDiamond.

[lea.lea]

Je résume : comment faire pour que l'enregistrement de mes six listes soit fait automatiquement dans un sous-dossier "Listes" du dossier où se trouve ma base de données ? Que ces six fichiers excel soient automatiquement mis à jour s'ils existent déjà au bon emplacement, et qu'ils soient créés (avec le dossier "Liste") s'ils n'existent pas encore.

[Robert1957]

Bonjour lea.lea,

Voici le code pour récupérer le chemin, créer un sous-dossier et enfin sauvegarder tes requêtes. A mettre dans un module si tu veux récupérer le code pour d'autre output:

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
Public Function fuRecupChemin() As String
On Error GoTo GestionErreurs
 
    fuRecupChemin = CurrentProject.Path
 
Exit Function
GestionErreurs:
        MsgBox "Erreur dans fuRecupChemin" & " " & Err.Number & " " & Err.Description
End Function
 
Public Function fuCreerDossier(strDossier As String) As String
On Error GoTo GestionErreurs
 
    fuCreerDossier = fuRecupChemin & "\" & strDossier 
    MkDir fuCreerDossier
 
Exit Function
GestionErreurs:
    Select Case Err.Number
        Case 75 'le dossier existe déjà
        Resume Next
    Case Else
        MsgBox "Erreur dans fuCreerDossier" & " " & Err.Number & " " & Err.Description
    End Select
End Function

Puis on reprend ta fonction avec l'ajout de la fonction fuCreerDossier:

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
Function Enregistrement_test()
On Error GoTo Enregistrement_test_Err
 
    Dim strSortie as string
 
    strSortie = fuCreerDossier(LeNomDuSousRépertoireDésiré)
 
    DoCmd.OutputTo acOutputQuery, "Liste1", "ExcelWorkbook(*.xlsx)", strSortie & "\Liste1.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste2", "ExcelWorkbook(*.xlsx)", strSortie & "\Liste2.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste3", "ExcelWorkbook(*.xlsx)", strSortie & "\Liste3.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste4", "ExcelWorkbook(*.xlsx)", strSortie & "\Liste4.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste5", "ExcelWorkbook(*.xlsx)", strSortie & "\Liste5.xlsx", False, "", , acExportQualityPrint
    DoCmd.OutputTo acOutputQuery, "Liste6", "ExcelWorkbook(*.xlsx)", strSortie & "\Liste6.xlsx", False, "", , acExportQualityPrint
 
 
Enregistrement_test_Exit:
    Exit Function
 
Enregistrement_test_Err:
    MsgBox Error$
    Resume Enregistrement_test_Exit
 
End Function

Bonne journée