Discussion :

[majudis]

Bonjour,

J'aimerais que sur mon formulaire, lorsque je clique sur un bouton, cela m'ouvre un fichier excel.

Comment dois-je faire ceci ?

Merci d'avance

[loufab]

Bonjour,

Utilise la commande/fonction Shell en vba.

Cordialement,

[majudis]

Bonjour,

J'ai essayé ceci, mais mon fichier excel ne s'ouvre pas :

Code :

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

Shell("C:\prises.xls", vbNormalFocus)

[bruno28]

Bonjour.

Essaie ceci

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
 
Option Compare Database
 
'utilise la fonction pour ouvrir un fichier (word, pdf, excel, html...) dans son application
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
 
Private Sub Report_Activate()
 
'Récupère le chemin de la base et y ajoute le dossier dans lequel on place les CCPU et le n° CCPU
Dim chem
chem = CurrentProject.Path & "\ccpu\" & Me.txtN°_CCPU.Value & ".PDF"
 
'Affiche le fichier dans son appli source (utilise la fonction en en-tête)
ShellExecute Me.hwnd, "open", chem, "", CurrentProject.Path, 1'
End Sub

reste plus qu'à modifier. Je l'ai fait pour un pdf et j'ai un sous dossier ccpu. De plus, je l'ai fait à l'ouverture d'un état, donc à placer dans le bon évènement.

Cela dit, une petite recherche sur le site te l'aurait donné.

Cordialement

bruno

[majudis]

Bonjour,

Merci pour ta réponse, mais je ne vais pas l'utiliser pour le moment, car je n'aime pas recopier un code bêtement sans comprendre ce que je fais.

J'ai compris la moitié de ton code

Il n'y a pas plus simple où bien est-ce vraiment le minimum pour ouvrir un simple fichier ?

Je sais qu'en langage C on fait un bête system() et terminé

N'y a t-il pas aussi simple en vba ?

Merci beaucoup

[bruno28]

Re bonjour.

Je ne trouve pas que deux lignes de commandes ce soit compliqué.

Plus simple, si, il y a : Il te suffit d'inventer l'ordinateur qui lit dans les pensées.

C'est bien de vouloir comprendre, c'est comme cela que l'on progresse.

Cordialement

bruno

[loufab]

Bonjour,

J'ai essayé ceci, mais mon fichier excel ne s'ouvre pas :

Code :

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

Shell("C:\prises.xls", vbNormalFocus)

C'est normal il faut spécifier également le chemin et l'exécutable Excel.

Code :

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

Shell("C:\Program files\Ms Office\...\Excel.exe C:\prises.xls", vbNormalFocus)

[majudis]

[majudis]

Merci beaucoup ça marche yeah !

Re bonjour.

Je ne trouve pas que deux lignes de commandes ce soit compliqué.

bruno

Ce que je voulais dire c'est que je demandais une manière plus simple de faire cela. Et en faisant :

Code :

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

1
2
3
Dim RetVal
 
RetVal = Shell("C:\Program Files\Microsoft Office\Office\Excel.exe C:\Prises.xls", vb...)

Et bien ça fonctionne parfaitement