[VBA] Récupérer nom connexions Excel-Access Fermé

Question

Bonjour, 

Je suis bloqué depuis quelques jours sur la modification d'une connexion externe Access vers mon classeur Excel.

Je veux modifier cette connexion en changant juste l'extension .mdb par .accdb, par VBA, j'ai ceci : 
            With ActiveWorkbook.Connections("Suivi_pal_quai").OLEDBConnection
                .BackgroundQuery = True
                .CommandText = Array("R2_comptage_palettes")
                .CommandType = xlCmdTable
                .Connection = Array( _
                "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\NASTOU01.lactadom.ad\MESDONNEES_EFLTOU\fr01199\Suivi_pal_quai.accdb;")
                .SourceDataFile = "\NASTOU01.lactadom.ad\MESDONNEES_EFLTOU\fr01199\Suivi_pal_quai.accdb"
            End With
        
            With ActiveWorkbook.Connections("Suivi_pal_quai")
                .Name = "Suivi_pal_quai"
            End With
Cela fonctionne mais j'aimerai utilisé cette macro pour plusieurs fichiers. Donc il faudrai que je puisse récupérer le nom de la connexion, le nom de la requete, et la source en les stockant dans une variable pour les utiliser ici. J'aimerai savoir si c'est possible, et comment y arriver ?

Merci d'avance !!!

Configuration: Windows 2003 / Internet Explorer 8.0

poulain35 · Answer

Personne n'aurai une idée, une piste? svp

lermite222 · Answer

Bonjour,
Mettre des variables String dans un module Public et les initialiser à l'ouverture d'Access
Et remplacer les nom "en dur" dans ta connection par les variables (sans guillement)
A+

poulain35 · Answer

Mais comment les initialiser à l'ouverture de mon fichier Access ??

lermite222 · Answer

C'est une fonction ou une sub...
Initialiser les variables juste avant d'appeller !
Sinon explique un peu mieux quand tu entre dans cette fonction.

poulain35 · Answer

Je souhaite récupérer, toutes les infos de mes connexions entre Excel et Access. Pour pouvoir changer mon fichier Access, car je veux le passer en accdb.
Je souhaite faire ceci automatiquement à tous mes fichiers excel pour modifier leurs connexions Access.
 J'ai enregistrer une macro, celle ci-dessus, et j'aimerai y mettre de variable, pour appliquer ce code à tous mes fichiers Excel. J'espere que tu m'a compris et que tu peut m'aider?

lermite222 · Answer

Je supose que tu à mis un bouton sur un formulaire et désigné la macro...
Une piste,
Sub MyMacro()
Dim MyConnect(NombreDeFichier), TB, i As Integer
'Adapter suivant les données à modifier
MyConnect(1) = Array("NomConnection", "NomCommentTexte", "NomDatatSource")
MyConnect(2) = Array("NomConnection", "NomCommentTexte", "NomDatatSource")
'etc..

For i = 1 To NombreDeFichier
    TB = Split(MyConnect(i), ",")
    'ici tu peu remplacer les adresses  dans ta macro par TB(0).. TB(1).. TB(2)
    ta macro..
End Sub

poulain35 · Answer

Oui mais il faut que je récupère le nom du fichier access qui est lié pour pouvoir le stocker dans une variable où la je vai couper le .mdb et le changer par .accdb .

lermite222 · Answer

Tu peu ajouter des variables dans les ARRAY en fonction des besoins.

poulain35 · Answer

Pourquoi j'ai une erreur au niveau du NombreDeFichier, constante requise??

poulain35 · Answer

Je relance ...

lermite222 · Answer

Beh oui, je pensais que tu comprendrais, faut remplacer par le nombre de fichier que tu a à traiter, soit un nombre
Ou tu met..
Sub MyMacro()
Const NombreDeFichier = ?
Dim MyConnect(NombreDeFichier), TB, i As Integer
A+

[VBA] Récupérer nom connexions Excel-Access

11 réponses

Discussions similaires