Discussion :

[alainb]

Bonsoir,
je souhaite LIER une feuille de mon fichier EXCEL
le code ci dessous fait une importation
quelle est la correction pour la liaison SVP

Code :

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "nom de la table", "nom du fichier", True, "nom de la feuille! A6:Q100"

[elland]

Essaie

Code :

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

DoCmd.TransferSpreadsheet acLink,

au lieu de

Code :

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

DoCmd.TransferSpreadsheet acImport,

[alainb]

Essaie

Code :

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

DoCmd.TransferSpreadsheet acLink,

au lieu de

Code :

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

DoCmd.TransferSpreadsheet acImport,

Merci le link répond à la situation,
MAIS maintenant je découvre un autre ch'ti problème
le code est lu à l'ouverture de mon formulaire, cela provoque la création d'une nouvelle table1 liée.
Je souhaite une modif pour vérifier la validité du lien et non une nouvelle liaison.
j'ai dabord imaginé écrire "si la table existe pas de liaison" mais je pense qu'il existe une solution plus intelligente
Alain

[Jean-Philippe André]

tu peux regarder la fonction isbroken qui te retourne un booléen.

[alainb]

tu peux regarder la fonction isbroken qui te retourne un booléen.

J'ai parcouru quelques lignes de code avec isbroken utilisé avec des références
malgré ces exemples
je ne trouve pas l'écriture de isbroken avec mon lien

Code :

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

1
2
chemin_res = DLookup("[chemin_fic_réseau]", "Table_chemin", "[id_fic] = 1")
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "Table_liée", chemin_res & "\" & "fichier_source.xls", True, "onglet!cellules"

[alainb]

pouvez-vous m'aider à mettre en forme ce bout de code

Code :

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

1
2
3
4
5
if isbroken ("XXX") then
chemin_res = DLookup("[chemin_fic_réseau]", "Table_chemin", "[id_fic] = 1")
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel9, "Table_liée", chemin_res & "\" & "fichier_source.xls", True, "onglet!cellules"
endif