[AC-2002] ouvrir un fichier XLS depuis un formulaire access [Résolu]

[nono2965]

Bonjour,
je dois ouvrir un fichier xls (exemple "toto. xls") depuis un bouton dans un formulaire access. Je suis novice et j'arrive uniquement à ouvrir XLS depuis l' assistant de bouton de commande. Comment compléter le code si dessous pour spécifier le fichier à ouvrir (toto.xls)?
j'ai cherché sur le forum mais je n'arrive (et ne comprends) pas les solutions proposées.

Merci de votre aide
Ci dessous les instructions avec les deux lignes que j'ai rajouté...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Commande_3045_Click()
On Error GoTo Err_Commande_3045_Click
 
    Dim oApp As Object
 
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
 
    Set xlApp = CreateObject("Excel.Application") 'ligne rajoutée
    Set xlBook = xlApp.Workbooks.Open("C:\toto.xls") 'ligne rajoutée
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Commande_3045_Click:
    Exit Sub
 
Err_Commande_3045_Click:
    MsgBox Err.Description
    Resume Exit_Commande_3045_Click
 
End Sub

[azertix]

Bonjour.
Voilà comment je procèderais :

Code :

1
2
3
4
5
6
7
8
9
10
Dim xlApp As Excel.Application 'Déclaration d'une variable de type Application
Dim xlBook As Excel.Workbook 'Déclaration d'une variable de type Workbook
 
Set xlApp = New Excel.Application 'Instanciation de la variable xlApp
Set xlBook = xlApp.Workbooks.Open("C:\toto.xls") 'Ouverture du fichier
xlApp.Visible = True 'Affichage du fichier
 
'Nettoyage des variables
Set xlApp = Nothing
Set xlBook = Nothing

[nono2965]

Bonjour,

Merci pour votre rapide réponse...j'ai essayé mais lorsque je click sur le bouton il ne ce passe rien.....
Avez vous une idée ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande_7654_Click()
Dim xlApp As Excel.Application 'Déclaration d'une variable de type Application
Dim xlBook As Excel.Workbook 'Déclaration d'une variable de type Workbook
 
Set xlApp = New Excel.Application 'Instanciation de la variable xlApp
Set xlBook = xlApp.Workbooks.Open("C:\toto.xls") 'Ouverture du fichier
xlApp.Visible = True 'Affichage du fichier
 
'Nettoyage des variables
Set xlApp = Nothing
Set xlBook = Nothing
End Sub

[jcdenton057]

Bonjour,

Est-ce que sous VBA, dans le menu Outils, puis référence, tu as un "Microsoft Excel xx.x object librairy" en haut avec une coche à droite ?
Sinon, tu dois le rajouter.

Quelle version d'Excel utilises-tu ?

[azertix]

Envoyé par jcdenton057

Est-ce que sous VBA, dans le menu Outils, puis référence, tu as un "Microsoft Excel xx.x object librairy" en haut avec une coche à droite ?
Sinon, tu dois le rajouter.

Au temps pour moi, j'aurais du préciser

nono2965 > Pense aux balises [code] qui permettent de rendre tes messages plus lisibles. Les règles du forum Access sont très claires à ce sujet.
Vu que tu es nouveau, les modos sont tolérants mais c'est une bonne habitude à prendre

[nono2965]

Merci à azertix et jcdenton057....
je n'avais pas "Microsoft Excel xx.x object librairy" coché...
maintenant ça marche à merveille...encore bravo...désolé, je penserai aux balises la prochaine fois !

Encore merci à vous !

[azertix]

Pas de soucis. Bonne continuation