Discussion :

[Svart26]

Bonjour,

J'ai presque honte de ma question...comment faire pour lancer l'ouverture d'un fichier excel depuis VB, enfin quel est la ligne de code nécessaire?

Jusqu'à maintenant je faisais cela via un objet OLE...et la commande Shell ne fonctionne pas pour les .XLS


Merci d'avance!

[avigeilpro]

Il me semble qu'il faut faire passer le fichier a ouvrir en paramètre de l'adresse du programme et entre guillemets ( Chr(34) ):

Code :

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

1
2
3
4
Dim Commande As String
 
Commande = "C:\Office\Excel.exe " & Chr(34) & "C:\MyFile.Xls" & Chr(34)
Shell Commande

[Theocourant]

Il me semble qu'il faut faire passer le fichier a ouvrir en paramètre de l'adresse du programme et entre guillemets ( Chr(34) ):

Code :

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

1
2
3
4
Dim Commande As String
 
Commande = "C:\Office\Excel.exe " & Chr(34) & "C:\MyFile.Xls" & Chr(34)
Shell Commande

Salut,

Franchement, il y a nettement mieux pour piloter Excel depuis VB ...

Svart26 va voir dans les tutoriels VB, c'est ici

+

Théo

[calimero91]

celui ci te va mieu theo?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command2_Click()
Dim oAppExcel As Excel.Application
Dim oClasseur As Excel.Workbook
Dim oFeuille As Excel.Worksheet
 
  'Ouvre le fichier excel
  Set oAppExcel = CreateObject("Excel.Application")
  Set oClasseur = oAppExcel.Workbooks.Open("C:\ton_fichier.xls")
  'Sélectionne la première feuille
  Set oFeuille = oClasseur.Worksheets(1)
 
End Sub

[Theocourant]

celui ci te va mieu theo?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command2_Click()
Dim oAppExcel As Excel.Application
Dim oClasseur As Excel.Workbook
Dim oFeuille As Excel.Worksheet
 
  'Ouvre le fichier excel
  Set oAppExcel = CreateObject("Excel.Application")
  Set oClasseur = oAppExcel.Workbooks.Open("C:\ton_fichier.xls")
  'Sélectionne la première feuille
  Set oFeuille = oClasseur.Worksheets(1)
 
End Sub

Je vois surtout un intérêt à la solution que tu présentes ici, c'est qu'il est possible de piloter Excel facilement. La solution de l'utilisation du Shell est bonne mais le travail dans Excel (transmission de données entre VB et Excel par ex) est loin d'être aisée... car c'est ce qu'il semble faire en utilisant un objet OLE...

Loin de moi de vouloir imposer cette solution, chacun est libre mais elle me semble plus aisée à mettre en oeuvre et à utiliser.

+

Théo

[calimero91]

je suis tout a fait d'accord avec toi, mais pour avoir deja vu bcp de conversation ou tu ete present je me suis douté que c'est la solution que tu attender. c'est donc pour ça que je l'ai donner. et il est vrai que de cette maniere Excel ce pilote tres bien.