Bonjour,
je travaille sur des fichiers exels , je gère la connexion de requete et d'actualisation via données->connexion en suite y'a les requetes que j'ai ajouté.
Mon probleme est le suivant :
Lorsque je change l'emplacement de ma base de données access (resto.mdb par exemple)
et que je relance l'actulisation ça plante parceque "resto.mdb" n'est pas au bon endroit.
donc je suis obligé d'aller a chaque dans ma connexion de donnée changer l'emplacement de ma base pourque les requetes fondtionnent. Imaginer si j'ai plus de 100 requtes à gerer je serai obligé de l'emplacement pour 100 requetes (ce qui n'est pas evident) .
Y'a t-il un moyen plus facile pour gerer ce probleme ?
Perso j'ai utilisé l'enregistreur vba et ça marche , mais lorsque je supprime une connexion via données->connexion , le code vba ne marche plus pour cette connexion
Merci pour votre reponse.
ci dessous le ocde
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
26
27
28
29
30 Public Sub pilotage() ' ' Macro7 Macro ' ' Pilotage (connexion et connexion1) With ActiveWorkbook.Connections("Connexion1").ODBCConnection .BackgroundQuery = False .CommandText = Array( _ "SELECT R_TYPE_FISCALITE.CODE_PORTEFEUILLE, R_TYPE_FISCALITE.TYPE_FISCALITE" & Chr(13) & "" & Chr(10) & "FROM R_TYPE_FISCALITE R_TYPE_FISCALITE" _ ) .CommandType = xlCmdSql .Connection = _ "ODBC;DSN=MS Access Database;DBQ=cheminBaseDeDeDonnees.mdb" .RefreshOnFileOpen = False .SavePassword = False .SourceConnectionFile = "" .SourceDataFile = "" .ServerCredentialsMethod = xlCredentialsMethodIntegrated .AlwaysUseConnectionFile = False End With With ActiveWorkbook.Connections("Connexion1") .name = "Connexion1" .Description = "" End With ActiveWorkbook.Connections("Connexion1").Refresh
Partager