Discussion :

[informer]

Bonjour à tous,

Contexte
J’ai des fichiers csv liés à une base Access
Les fichiers sont écrasés toutes les heures par d’autres extractions d’une base Tierce. Les extractions gardent le même nom.

Problème
j’ai la forte présomption que cet écrasement régulier fait peter les liens.

Objectif
Je veux donc rafraîchir les liens

Question
J’ai lu sur différents forums que le rafraîchissement VBA est effectif seulement après avoir fermer et réouvert la base de données. Donc pas effectif à chaud
Vrai ou faux?

Solution alternative
Utiliser la fonction transfertspreadsheet?

Merci pour vos réponses

[hyperion13]

Salut
J'ai trouvé ça.

[informer]

Merci hyperion13,

Je teste si ça fonctionne à chaud

[marot_r]

Bonjour.

J’ai lu sur différents forums que le rafraîchissement VBA est effectif seulement après avoir fermer et réouvert la base de données. Donc pas effectif à chaud
Vrai ou faux?

Je ne l'ai jamais valide avec un fichier CSV mais pour les tables liees, c'est faux !

Ici le code que j'utilise regulierement avec mes tables liees :

Code :

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

1
2
3
4
5
6
7
dim db as dao.database:set db=currentdb
dim t as dao.tabledef
Set t=db.tabledef("NomTableLiee")
t.connect="ici la chaine de connexion appropriee"
t.refreshlink 'Force Access a refaire le lien.
set t=nothing
db.close:set db=nothing

A+

[informer]

Bonjour marot_r


J’ai pris le parti a chaque chargement de

1. Transformer les fichiers CSV en fichier xlsx
2. Formater en texte les colonnes qui mélanges données numériques et alphanumériques pour éviter les problèmes de conversion et de perte de données car excel cast les données au type de la première ligne de données des colonnes. Donc si la donnée en ligne 1 de la colonne x est en numérique alors il interprétera toute la colonne comme numérique et mettra en erreur les données alphanumériques et inversement si la donnée en ligne 1 est alphanumérique.
3. Détruire les tables liées
4. Refaire le lien avec les fichiers Excel

Encore merci pour ton aide toujours pertinente.