Discussion :

[Rince83]

Bonjour,

Je me permets de poster ici car je travaille sur le développement d'une base de données Access pour un client. Je suis en local et j'essaye de coller un fichier excel dans une table Access crée pour l'occasion. Pour celà, j'avais penser à utiliser TransferSpreadsheet, le code est ci dessous

Voici le code :

Code :

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

1
2
3
4
5
6
 
Dim chemin_fichier As String, T_import as string
chemin_fichier = "C:/mon_chemin/mon_fichier.xlsx"
T_import = "zzTimport"
Nettoyage_Table (T_import) ' nettoyage_Table est une petite sub que j'ai écrite qui vérifie la présence de la table en argument dans la base et qui la supprime si présente.
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, T_import, chemin_fichier, False, "maFeuille!"

Ce code fonctionne si et seulement si le fichier en question est fermé sur mon ordinateur. Si le fichier est ouvert en parallèle, le code ne renvoie pas d'erreur, mais la ligne 6 ne fonctionne pas et je suis obliger de tuer Access avec Ctrl Alt Suppr pour reprendre la main.
J'ai essayé différente variantes pour faire un close du fichier, mais sans succès... J'ai l'impression que quelquechose m'échappe.

Merci par avance pour toute suggestion.

[tee_grandbois]

bonjour

Ce code fonctionne si et seulement si le fichier en question est fermé sur mon ordinateur. Si le fichier est ouvert en parallèle, le code ne renvoie pas d'erreur, mais la ligne 6 ne fonctionne pas et je suis obliger de tuer Access avec Ctrl Alt Suppr pour reprendre la main.

Si l'importation fonctionne fichier fermé, pourquoi vouloir le faire fichier ouvert ?
D'autant plus que tu peux l'ouvrir après importation si tu le souhaites vraiment.

[Rince83]

Bonjour Grandbois,
Moi je sais me servir d'access et de VBA, mais le client pas forcément : je me dois de prendre en compte la possibilité qu'un jour le client tente de réaliser des importations avec le fichier ouvert... Je pourrais préciser dans le manuel utilisateur que il faut s'en servir fichier fermé, mais ce n'est pas très pro...

[Phiphi41]

Bonjour

Je pense que ce soit le fait qu'Excel n'admet qu'une connexion extérieure à la fois (sachant que ce n'est pas le cas lorsque c'est des formules liés).

C'est une hypothèse.

[Rince83]

Bonjour Phiphi41;
Merci pour ta réponse, mais j'ai un peu de mal à voir ce que je peux en faire ^^ Peux tu développer ?

[Phiphi41]

Bonjour

Je ne suis pas aussi bon que certains membres du forum, mais je pense qu'il faudrait faire un test avant pour savoir si le fichier Excel est ouvert en utilisant GetObject comme dans ce fil : https://www.developpez.net/forums/d9...r-deja-ouvert/

[tee_grandbois]

Je pourrais préciser dans le manuel utilisateur que il faut s'en servir fichier fermé, mais ce n'est pas très pro...

en quoi ce n'est pas très pro: si c'est un pré-requis, le client peut le comprendre, non ?

[Rince83]

en quoi ce n'est pas très pro: si c'est un pré-requis, le client peut le comprendre, non ?

Disons simplement que le fait de passer sous Access constitue un step technologique pour mon client :
- moralement, je me dois de tout faire pour lui simplifier la tache.
- techniquement, le fait de lui livrer un outil propre, simple avec aussi peu de contraintes que possibles va dans le sens de pérenniser l'utilisation de l'outil chez mon client et le besoin de support chez nous.

je pense qu'il faudrait faire un test avant pour savoir si le fichier Excel est ouvert en utilisant GetObject comme dans ce fil : https://www.developpez.net/forums/d9...r-deja-ouvert/

Merci pour le lien, phiphi, j'en ai pris connaissance et j'ai repéré la fonction Excel_Ouvert de pcvesoul (modifiée et notamment pour accepter un argument) :

Code :

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

1
2
3
4
5
6
Dim chemin_fichier As String, T_import as string
chemin_fichier = "C:/mon_chemin/mon_fichier.xlsx"
T_import = "zzTimport"
Nettoyage_Table (T_import) ' nettoyage_Table est une petite sub que j'ai écrite qui vérifie la présence de la table en argument dans la base et qui la supprime si présente.
Call Excel_Ouvert(chemin_fichier )
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, T_import, chemin_fichier, False, "maFeuille!"

et ça marche ! Le transferSpreadhseet fonctionne !
Merci phiphi et pcvesoul
Ca marche parce que Excel_Ouvert prévoit un wb.close. Techniquement, je pourrais mettre cette conversation comme résolue.
Mais pour ma compréhension.... je trouve bizarre que le fichier excel reste ouvert.... Le wb.close est juste sous VBA ?