[AC-2003] pb ISAM avec table .csv liées [Résolu]

[Louis Gilbert]

Bonjour,

J'essaie de rendre la mise à jour la plus facile pour l'utilisateur d'une base de données Access. Les données qui permettent la mise à jour sont en fichiers .csv, et sont liées à l'application Access. Avant de faire la mise à jour des tables access comme tel, je voudrais, par un bouton, faire effectuer un rafraîchissement des tables liées.

Loin d'être programmateur moi-même, j'ai trouvé du code ici et là (souvent ici...), et je me débrouille habituellement pas mal. Mais là je n'arrive pas à contourner l'erreur obtenue: "Erreur d'exécution '3170': Pilot ISAM introuvable".

Voici le code que j'utilise (en rouge, la ligne surlignée par le débogueur):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Function relinkTables()
    Dim tdf As DAO.TableDef

        For Each tdf In CurrentDb.TableDefs
        ' check if table is a linked table
            If Len(tdf.Connect) > 0 Then
            tdf.Connect = "CurrentProject.Path"
            tdf.RefreshLink
            End If
    Next

End Function

Et 2e petite question: si le fournisseur des données pouvait me donner les données en .xls, est-ce que ce serait préférable, ou il n'y a pas de différence entre les formats pour cette utilité?

Merci de votre aide précieuse!

Louis

[loufab]

Bonjour,

L'origine du problème est la ligne précédente.

Code :

tdf.Connect = "CurrentProject.Path"

La propriété Connect attend une string plus formalisée.
D'une par tu affectes non pas le chemin de ta base mais litéralement ceci CurrentProject.Path.

Si tu attaches manuellement le fichier il va te donner la bonne connect string. Celle-ci devrait ressemebler à ça.

Code :

Text;DSN=Spécification d'attache;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;ACCDB=YES;DATABASE=F:\Access\Applications\Amap\source xls

C'est la dernière partie que tu dois modifier.
Donc :

Code :

tdf.Connect = left(tdf.Connect,instr(1,tdf.Connect,";database=")+9) & currentproject.path

Tu récupères le connect jusqu'à database= et tu y ajoutes le nouveau chemin.

Note que si tu écrases l'ancien fichier un tdf.refreshlink seul est suffisant.

Cordialement,

[Louis Gilbert]

Envoyé par loufab

Note que si tu écrases l'ancien fichier un tdf.refreshlink seul est suffisant.

Tout simplement! Ça fonctionne à merveille. Merci!

Je garde toutefois le reste en banque, car je ne sais pas si l'utilisateur voudra mettre les tables csv dans son répertoire de travail (ce que je lui suggérerai).

J'ai beaucoup de difficulté à trouver la façon de référer au dossier en cours dans le code, afin de tenir compte du fait que chaque usager mettra le fichier dans un dossier différent...

[loufab]

Bonjour,

Le système est plein de chemin prédéfini.

Fait un Set sous dos pour que le système te liste ces chemins.
Exemple le userprofile qui pointe sur le dossier de l'utilisateur.

Pour y faire référence avec VBA :

environ("userprofile")

Pour l'utiliser

Code :

environ("userprofile") & "\mes documents"

A partir de cela tu peux imaginer d'autres variation.

Sinon il y a le bon vieux OuvrirFichier pour obliger l'utilisateur à choisir le répertoire où il a mis les fichiers.

Cordialement,