Bouton sur formulaire
Résolu
CLEMPOL
Messages postés
3
Statut
Membre
-
Clempol -
Clempol -
Bonjour,
il me semble que mon programme ACCESS n'est pas complet !! pour ouvrir EXCEL depuis ACCESS je créer un bouton sur un formulaire, l'assistant bouton de commande démarre, dans la partie gauche "catégories" je clic sur "Applications" dans la partie droite "Actions" je n'ai que "Quitter une application" !! et non pas "ouvrir Excel ou Word ou autre" comme je le croyais ? Est-ce normal ?? En plus je voudrais ouvrir EXCEL plus un certain fichier intitulé "Compta 2013" comment procéder ?
Merci à tous
il me semble que mon programme ACCESS n'est pas complet !! pour ouvrir EXCEL depuis ACCESS je créer un bouton sur un formulaire, l'assistant bouton de commande démarre, dans la partie gauche "catégories" je clic sur "Applications" dans la partie droite "Actions" je n'ai que "Quitter une application" !! et non pas "ouvrir Excel ou Word ou autre" comme je le croyais ? Est-ce normal ?? En plus je voudrais ouvrir EXCEL plus un certain fichier intitulé "Compta 2013" comment procéder ?
Merci à tous
2 réponses
-
Bonjour Clempol,
marrant je l'ai fait ce matin pour un besoin similaire, voici la marche à suivre :
- appuie sur bouton, à ce moment là tu as une pop-up qui s'ouvre et tu fait "annuler" (oui ça paraît curieux, mais lis la suite),
- ensuite dans la partie propriété, dans l'onglet format tu indiques le lien hypertexte vers ton fichier excel et le tour est joué.
Solution de raccro certes mais solution efficace !
-
bonjour
voici le code d'un bouton ouvrant excel
Tu crees un bouton, puis en mode creation sur evenement click tu copie ce code entre private sub nonm de ton bouton et end sub.
j'ouvre excel 97
Private Sub Commande5_Click()
On Error GoTo Err_Commande5_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Commande5_Click:
Exit Sub
Err_Commande5_Click:
MsgBox Err.Description
Resume Exit_Commande5_Click
End Sub-
Voici un code trouvé sur CODESOURCES qui fonctionne bien
Private Sub Commande1107_Click()
' initialisation du nom du fichier de configuration
NomFichier = "Compta_2013.xls"
' ouvrir l'application excel
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Workbooks.Open ("C:\Book\Compta 2013")
' rendre visible la fenetre
AppExcel.Visible = True
On Error Resume Next
AppExcel.UserControl = True
AppExcel.Close
End Sub
-
