Discussion :

[nomade333]

Bonjour,
A partir du code ci dessous j'ouvre un fichier Excel à partir d'Access.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande114_Click()
'Appel du fichier Excel :
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wbexcel = appexcel.Workbooks.Open("C:\Documents and Settings\s075098\Bureau\PEROU\Situation PRADO\CONTROL MARZO 2012 M53-P2.xls")
 
'Appel de la feuille correspondante :
appexcel.Sheets("04").Select
End Sub

Mon problème c'est que ce fichier peux changer de chemin et de nom.
J'aimerais pouvoir choisir le fichier à ouvrir?
Quelqu'un pourrait me dire quoi rajouter à mon code?
Merci par avance à tous
Salutations

[Beub']

Bonjour,

Je pense que tu trouveras ce dont tu as besoin ici :
http://access.developpez.com/faq/?pa...#AffBoitDialog

Pas très compliqué, tu as juste à copier-coller... La FAQ dev.com est pleine de trésors ^^.

Petite note perso : je te conseille de renommer tes contrôles (boutons, champs textes, listes déroulantes,...) et de ne pas te contenter des noms par défaut comme cela semble être le cas avec ton Commande114. Dans l'idéal, les noms des contrôles doivent être transparents : bt_ouvrirfichierExcel pour un bouton, txt_NomFichierAOuvrir pour un champ texte, lst_VersionsExcel pour une liste déroulante,...

Voilà voilà. N'hésite pas à revenir en cas de souci

Bonne continuation ! Et check la FAQ la prochaine fois avant de poster

Cordialement,
Beub'.

[nomade333]

Bonjour et merci.
Oui, c'est ce que je fais d'habitude mais actuellement le serveur FAQ est surchargé et rien ne s'affiche.
D'ou mon post.
Je suis loin d'être un bon en VBA, n'y a t'il pas quelques choses de plus simple?
Merci

[nomade333]

Bonjour et merci,
Comment ouvrir, j'ai juste le boite de dial qui s'affiche et lorsque je clique sur "ok" elle se ferme mais le fichier sélectionné ne s'ouvre pas?
Merci par avance

[nomade333]

"Pas très compliqué, tu as juste à copier-coller... La FAQ dev.com est pleine de trésors ^^."

Bonjour,
Comment dois je procéder pour que cela fonctionne à partir d'un bouton clic!
Merci