Discussion :

[mariobros2]

Bonjour,
je viens vers vous pour ce qui doit être un détail pour vous,
j'ai déjà fait quelques essai sans succès.... faut dire que je m'y connais pas trop
Je voudrais tout simplement que dans un formulaire Access
Par l'intermédiaire d'un bouton je puisse ouvrir un fichier Excel.

Merci pour la réponse

[Jean-Philippe André]

Salut,

en passant par la on trouve ceci :
https://access.developpez.com/faq/?p...n#shellexecute

Il suffira d'appliquer ce qui est dit et d'ouvrir ton classeur avec une syntaxe comme

Code :

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

ShellExecute 0, "open", "C:\temp\monfichierexcel.xlsx", "", CurrentProject.Path, 1

[Invité]

Bonjour,
je viens vers vous pour ce qui doit être un détail pour vous,
j'ai déjà fait quelques essai sans succès.... faut dire que je m'y connais pas trop
Je voudrais tout simplement que dans un formulaire Access
Par l'intermédiaire d'un bouton je puisse ouvrir un fichier Excel.

Merci pour la réponse

quelle est la finalité car tu peux requêter sur Excel via Access!

[mariobros2]

Hello,
J'ai pas compris le fonctionnement qui ma été indiqué par Jean-Philippe André
Moi, ce que je veux tout simplement (façon de parler) c'est consulter une feuille d'excel
bien défini et ce en cliquant sur un bouton que j'aurais crée sur un formulaire Access 2013.
Perso je verrais ça dans les propriétés du bouton - sur clic - soit ensuite en pouvant indiquer
le chemin à suivre pour accéder à cette feuille Excel éventuellement dans une procédure événementiel
ou dans une macro... (ou autre) mais je ne suis que débutant dans Access et j'ai fait quelques essai dans ce sens
qui n'ont rien donné.

[Invité]

Voila dans ACCESS!

Pièce jointe 248120

Code :

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

SELECT [Table1$].*FROM [Table1$] IN 'C:\Users\dysorthographie\Desktop\MdbBidon\Livres.xlsx'[Excel 12.0;HDR=YES;IMEX=1;];

[mariobros2]

Y a vraiment pas plus simple,
du style comme j'ai décrit un peu plus haut dans le message de 15h11

[Jean-Philippe André]

En fait tu utilises des termes trop vagues et peu precis :

qu'entends-tu par "consulter" ? que la feuille soit ouverte dans Excel ? des donnees s'affichent dans un formulaire Access ? autre chose ?

Parce que jusqu'a present les suggestions me semblent pertinentes

[mariobros2]

Oui, comme tu dis, par 'consulter' j'entends qu'en cliquant sur le bouton créer dans le formulaire Access j'accède à un tableau qui ce trouve sur une feuille Excel
donc forcément il faut que la procédure puisse ouvrir Excel et m'afficher cette feuille.
Comment dire, peut être un peu dans le style d'Excel justement, ou l'on peut créer un lien hypertexte assez simplement...
J'espère être plus compréhensible...

[Invité]

Y a vraiment pas plus simple,
du style comme j'ai décrit un peu plus haut dans le message de 15h11

Tu préfèrs instancier un objet Excel, ouvrir ton fichier et faire une recherche puis refermer le fichier quitter excel et désinencier

Non ça c'est le plus simple select * from [onglet$] in 'Fichier' [drlver execel;] where [champ] ='toto' puisque tu as juste a écrire cette requêtes comme source de ton formulaire!

Oui, comme tu dis, par 'consulter' j'entends qu'en cliquant sur le bouton créer dans le formulaire Access j'accède à un tableau qui ce trouve sur une feuille Excel

C'est exactement ce que je te propose!

Tu est dans access une requête dans un formulaire c'est inhabituel je le concède!

voilà dans un formulaire Access une seule requête! et en plus c'est l'assistant de formulaire d'access qui a fait le travail!




Mais je pense que je n'ai toujours pas compris! Sens doute que la finalité c'est de modifier ,d'ajouter ou supprimer des données (un peut comme dans Excel)!

[mariobros2]

Bonjour,
Dès que j'aurais un peu de temps je vais essayer avec une requête (pas dit que j'y arrive)
mais comme apparemment il n'y a pas plus simple !
Je pensais que les requêtes ne fonctionnait qu'en liaison avec les tables d'Access...
et je vois pas encore comment faire fonctionner la requête avec un bouton mais bon.

[Invité]

Bonjour,
L'exemple que je donne montre qu'il est possible de faire une jointure externe vers un autre format de base de données qu' Access dans une requête!

Je ne suis pas un charlatan il s'agit bien d'un fichier Excel dans mon exemple!

https://www.developpez.net/forums/d1...ss-sql-via-vb/

[mariobros2]

Bonsoir,
je vous crois tout à fait,
seul hic, c'est que vous, vous maîtriser,
et moi, nettement moins.
C'est pour ça que je cherche des solutions simple quand cela est possible...
Mais merci pour vos indications et votre aide que de toute façon je vais essayer.
On verra bien.
A+

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Compare Database
Private Sub Commande6_Click()
OuvrirXls
Me.Liste4.ColumnCount = 1
Me.Liste4.RowSource = ""
End Sub
Private Sub OuvrirXls()
 
   Dim fDialog As Office.FileDialog, varFile As Variant
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
   With fDialog
      .AllowMultiSelect = True
      .Title = "Selectionnez un fichier Excel!"
      .Filters.Clear
      .Filters.Add "Excel Databases", "*.XLS*"
      If .Show = True Then
        Me.Tag = .SelectedItems(1)
        Étiquette10.Caption = Me.Tag
        ChargerlistOnglets
      End If
   End With
   ListsOnglets_Change
End Sub
Sub ChargerlistOnglets()
With CreateObject("ADODB.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Me.Tag & ";Extended Properties=""Excel 12.0;HDR=Yes;"";"
Set rs = .OpenSchema(20)
For i = ListsOnglets.ListCount - 1 To 0 Step -1
ListsOnglets.RemoveItem (i)
Next
While rs.EOF = False
    Me.ListsOnglets.AddItem "[" & rs("TABLE_NAME") & "]", Me.ListsOnglets.ListCount
    rs.MoveNext
Wend
.Close
End With
ListsOnglets.Selected(0) = True
DoEvents
End Sub
Private Sub Détail_Click()
End Sub
Private Sub Form_Current()
For i = ListsOnglets.ListCount - 1 To 0 Step -1
ListsOnglets.RemoveItem (i)
Next
End Sub
Private Sub ListsOnglets_Change()
If Me.ListsOnglets.ListIndex > -1 Then
Set rs = CurrentDb.OpenRecordset("SELECT * FROM " & Me.ListsOnglets.Text & " IN '" & Me.Tag & "'[Excel 12.0;HDR=No;IMEX=1;];")
Me.Liste4.ColumnCount = rs.Fields.Count
rs.Close
Me.Liste4.RowSource = "SELECT * FROM " & Me.ListsOnglets.Text & " IN '" & Me.Tag & "'[Excel 12.0;HDR=No;IMEX=1;];"
End If
End Sub

[mariobros2]

Merci beaucoup pour vos explication...
Quand à votre exemple j'obtient le message suivant



Vu le travail que cela représente pour afficher une feuille Excel je laisse tomber
( trop compliqué pour moi, pas assez de connaissance dans ce domaine )
Merci tout de même pour vos explications.

[Invité]

Bonjour,
Quelle Version Access et/ou Windows!

j'ai fait ce formulaire sur Access 2007 et Windows 2010! je viens de télécharger sut Access 2007 et Windows 2007 et ça marche sens problème!

le message dit qu'i manque des dll il faut l'écouter et aller dans le référence du projet et activer le bonne problème de version vraisemblablement!

Vu le travail que cela représente pour afficher une feuille Excel je laisse tomber
( trop compliqué pour moi, pas assez de connaissance dans ce domaine )
Merci tout de même pour vos explications.

on peux pas faire du VBA sans mettre les mans dans le cambouis!

[mariobros2]

Je travaille avec Access 2013 et Windows 10

[Invité]

je ne dispose pas de la même configuration que toi, mais je suis certain qu'un internaute de ce forum arrivera pour te sauver, mai rien ne t'emperche de googleliser le message d'erreur!

soit le problème provient de la référence soit des contrôle (64 Bits)! dans le premier cas aller dans le références, dans le deuxième supprimer les contrôles et le réinsérer!



dèjà décoche le librairies manquante!