Ouverture fichier excel variable par access

Fermé
trast - 24 sept. 2012 à 19:37
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 - 26 sept. 2012 à 08:55
Bonjour,

Je souhaite ouvrir un fichier excel dont le nom est variable depuis access.
Je m'explique, j'ai un formulaire dans lequel je rentre des informations/résumé de fichier que je possède sous forme excel.

Je voudrais avoir pour chaque enregistrement un bouton qui m'ouvre le fichier excel correspondant.

Je suppose que c'est possible avec vba mais je ne sais pas trop comment y parvenir.

Merci d'avance pour votre aide.



1 réponse

f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
24 sept. 2012 à 19:52
Bonjour,

Au moins un debut.

https://forums.commentcamarche.net/forum/affich-405446-vba-access-ouverture-d-un-fichier-excel

Le nom du fichier est donne par quoi??
0
C'est une référence par exemple AB1, AB2, ...
Cette référence est la clé primaire de ma table et également le nom du fichier excel

Merci pour ta rapidité
0
La difficulté est dans la traduction en vba de prendre comme variable le texte de ma clé primaire (AB1, AB2 ...)
0
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
25 sept. 2012 à 09:33
Bonjour,
Question: vous ouvrez un fichier excel pour renseigner ce fichier manuellement ou pour ecrire dans ce fichier en partant d'access??
Pour le nom de fichier, je vous montrerai apres votre reponse.

A+
0
non je veux juste pouvoir consulter mon fichier excel correspondant à l'enregistrement sur lequel je me situe dans mon formulaire access
0
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
25 sept. 2012 à 20:34
Re,
Alors, il y a beaucoup plus simple:

Code a mettre dans un Module
Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, lpParameters As Any, lpDirectory As Any, ByVal nShowCmd As Long) As Long

Code pour le bouton
'A adapter pour votre PC
Chemim_Fichier = "C:\..........\"
Nom_Fichier = Nom_du_champ_formulaire + ".xxx"
hwndSim = ShellExecuteForExplore(0&, vbNullString, Chemin_Fichier & Nom_Fichier, 0, 0, 1)


Pour le nom du fichier, c'est dans un champ du formulaire??????
0