Discussion :

[Phyl]

Bonjour,

Je suis en train de faire le Menu (switchboard) pour une base associative en relation avec une base internet.
Je souhaiterai que l'utilisateur puisse mettre à jour la liaison d'une base Access avec un fichier Excel par une commande dans le Menu ou par l’intermédiaire d'une macro plutôt que par la barre d'outils ("Données externes - Gestionnaires de Tables liées") avec la recherche de l'emplacement du fichier "xls"
Est-ce possible ?
J'ai cherché dans la Faq, mais malheureusement je n'ai pas trouvé.
Merci

[marot_r]

Pourrais-tu préciser quelle version de Access tu utilises ?

Ensuite, ce n'est pas une action 'standard' de Access donc tu ne trouveras pas dans les assistants quelque chose qui le fasse.

Tu peux 'éventuellement' (mais je ne conseille pas vraiment) montrer à tes utilisateurs comment relinker une base via le gestionnaire de table liée.

Sinon il faut faire une formulaire et un peu de code VBA qui va permettre cela.

Comme la solution dépend en partie de la version je ne peux guère entrer plus dans les détails.

Si tu veux faire des recherches par toi même cherche RefreshLink et une partie solution ne devrait pas être loin.

A+

[Phyl]

Je travaille avec Access 2010, mais la base de donnée a été faites sous access 2003. Elle n'a pas été transformée sous la nouvelle version car certain utilisateurs utilisent toujours office 2003.

Pour notre organisation, nous avons décidé que la base principale serait Access. La base du site Internet (règlement en ligne) serait secondaire pour les pb d'envoi bulletin et fiches fiscales. (95% des membres règlent par chèque)

A partir d'access, nous faisons donc un export des données pour mettre à jour le site (fonction sql - phpMyadmin) et nous ressortons régulièrement les nouveaux inscrits à incorporer à la base access.
Le fichier d'import se nomme ImportInternet.xls et comporte une bonne vingtaine de champs.

Sous Access 2010 on aune barre d'outils dédiée au "Données extérieures" et on créé ainsi une Table liées avec le fichier Excel. Mais cette dernière nécessite une action de mise à jour, chaque fois qu'elle est modifiée. D'où ma question !

[marot_r]

OK si ton fichier porte toujours le même nom et est toujours à la même place, fait un test avec cela :

Code :

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

1
2
3
4
5
public sub RafraichirExcel()
   dim db as dao.database:set db=currentdb
   db.tabledefs("NomTaTableLieeSurXls").refreshlink
   set db=nothing
end sub

A+

[Phyl]

Je te remercie beaucoup, mais je ne suis pas assez calé; Je suppose qu'il me faut mettre ce code dans un module et que j'appelle ce module par un menu ??

J'ai fait ainsi, mais j'ai une erreur :

Code :

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

db.TableDefs("ImportInternet.xls\ImportInternet$").RefreshLink

J'ai aussi testé en vain avec la même erreur "3265" lorsque je mets le chemin complet : ("c:\users\Phyl\Documents\Access\ImportInternet.xls\ImportInternet$")

[marot_r]

ImportInternet.xls\ImportInternet$, est-ce le nom de table liée dans Access ? Je parle bien du nom de la table tel que visible dans la liste des tables une fois le classeur lié, pas le nom du classeur excel sur le disque.

A+

[Phyl]

La liste des tables la table liées sous excel se nomme "ImportInternet";

"ImportInternet.xls\ImportInternet$" est le nom du fichierExcel et de sa feuille tel que désigné dans le liens lors de la première liaison.

[marot_r]

Je pense que ImportInternet est ce qu'il faut utiliser.

A+

[Phyl]

C'est super, cela marche. Un grand merci.

En fait, au clic il ne se passe rien, mais en renommant le fichier, ou en modifiant un champ, la mise à jour se fait bien.

Seul problème il faudra que le fichier ImportInternet.xls soit placé strictement dans le même répertoire. N'y a t'il pas la possibilité de toujours demander le répertoire où se trouve le fichier Excel ?

D'autre part n'y a-t'il pas la possibilité de faire paraître un sablier et message une fois la mise à jour des champs ?

Merci beaucoup de ton aide

[marot_r]

Seul problème il faudra que le fichier ImportInternet.xls soit placé strictement dans le même répertoire. N'y a t'il pas la possibilité de toujours demander le répertoire où se trouve le fichier Excel ?

Oui c'est possible mais cela nécessite plus de code et plus de travail car il va falloir modifier la chaîne de connexion.

Voici les étapes pour arriver à cela :
Aller dans du code
Aller dans la fenêtre d'exécution immédiate ([Ctrl][G])
Taper debug.print Currentdb.TableDefs("ImportInternet").connect [Enter]Copier la ligne qui va s'afficher dans un coin pour plus tard.

après il faut modifier ton code pour recevoir le nouveau chemin et nom

Code :

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

1
2
3
4
5
6
7
8
public sub RafraichirExcel(prmNomCompletExcel as string)
   dim db as dao.database:set db=currentdb
   dim t as dao.tabledefs("ImportInternet")
   t.connect="Debut de la chaîne de connexion sans le nom" & prmNomCompletExcel & "fin de la chaîne de connexion sans le nom"
   call t.refreshlink
   set t=nothing
   set db=nothing
end sub

Pour comment offrir le possibilité de choisir ton fichier je te reviens un peu plus tard.

A+

[Phyl]

Je te remercie beaucoup, mais absent actuellement jusqu'à mi mai. Je ne pourrais tester qu'à ce moment là.