Ouverture de fichier
arystoc
Messages postés
41
Date d'inscription
mercredi 2 juillet 2003
Statut
Membre
Dernière intervention
16 juillet 2006
-
20 sept. 2005 à 20:25
P__ROMEO Messages postés 294 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 9 mars 2006 - 20 sept. 2005 à 22:12
P__ROMEO Messages postés 294 Date d'inscription vendredi 25 février 2005 Statut Membre Dernière intervention 9 mars 2006 - 20 sept. 2005 à 22:12
6 réponses
violent_ken
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
2
20 sept. 2005 à 20:46
20 sept. 2005 à 20:46
Violent Ken
Question mal posée. Tu veux ouvrir avec Excel ou dans un richtextbox ?
En supposant que tu veux ouvrir avec Excel,
'déclarations
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
Const SW_SHOWNORMAL = 1
'commande
ShellExecute Me.hwnd, "open", "c:\exemples\fichier.xls", vbNullString, App.Path, SW_SHOWNORMAL
@+
Question mal posée. Tu veux ouvrir avec Excel ou dans un richtextbox ?
En supposant que tu veux ouvrir avec Excel,
'déclarations
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
Const SW_SHOWNORMAL = 1
'commande
ShellExecute Me.hwnd, "open", "c:\exemples\fichier.xls", vbNullString, App.Path, SW_SHOWNORMAL
@+
P__ROMEO
Messages postés
294
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
9 mars 2006
1
20 sept. 2005 à 20:49
20 sept. 2005 à 20:49
Bonjours.
Tu sais, si tu avais cherché un peu, tu aurais touvé.
http://www.vbfrance.com/forum.v2.aspx?id=479750
http://www.vbfrance.com/forum.v2.aspx?id=5899
voici 2 liens qui pouraient t'aider. si non, repose ton problème.
Bonne continuation.
Tu sais, si tu avais cherché un peu, tu aurais touvé.
http://www.vbfrance.com/forum.v2.aspx?id=479750
http://www.vbfrance.com/forum.v2.aspx?id=5899
voici 2 liens qui pouraient t'aider. si non, repose ton problème.
Bonne continuation.
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
20 sept. 2005 à 20:52
20 sept. 2005 à 20:52
Bonsoir,
Placer la référence à Excel (Projet / Références, cocher Microsoft Excel x.0 Object Library)
Private Sub Command1_Click()
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
If Not IsObject(objXL) Then
MsgBox "Vous Avez Besoin de Microsoft Excel pour cette Fonction", vbExclamation, "Excel"
Exit Sub
End If
' Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add("c:\exemples\fichier.xls")
Set wsXL = objXL.ActiveSheet
End Sub
jpleroisse
Si une réponse vous conviens, cliquer Réponse Acceptée
Placer la référence à Excel (Projet / Références, cocher Microsoft Excel x.0 Object Library)
Private Sub Command1_Click()
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
If Not IsObject(objXL) Then
MsgBox "Vous Avez Besoin de Microsoft Excel pour cette Fonction", vbExclamation, "Excel"
Exit Sub
End If
' Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add("c:\exemples\fichier.xls")
Set wsXL = objXL.ActiveSheet
End Sub
jpleroisse
Si une réponse vous conviens, cliquer Réponse Acceptée
P__ROMEO
Messages postés
294
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
9 mars 2006
1
20 sept. 2005 à 21:19
20 sept. 2005 à 21:19
Salut jpleroise.
je ne sais pas pour celui qui a posé la question, mais, chez moi ca passe pas.
j'aime bien ta méthode. beaucoup plus simple que le miène. mais, un message
d'erreur me dit qu'il n'arrive pas a ouvrir mon fichier, cause : fichier en lecture seul
ou crypté. j'ai vérifié, il n'est n'y en lecture seul, ni crypté.
d'ou vient le blème?
je ne sais pas pour celui qui a posé la question, mais, chez moi ca passe pas.
j'aime bien ta méthode. beaucoup plus simple que le miène. mais, un message
d'erreur me dit qu'il n'arrive pas a ouvrir mon fichier, cause : fichier en lecture seul
ou crypté. j'ai vérifié, il n'est n'y en lecture seul, ni crypté.
d'ou vient le blème?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
20 sept. 2005 à 21:45
20 sept. 2005 à 21:45
Bonsoir, P_ROMEO
Je viens de refaire des essais sur plusieurs fichiers.xls et celà fonctionne à chaque fois. Mais je vais chercher quand même, quitte à mettre un fichier en lecture seule pour voir.
jpleroisse
Je viens de refaire des essais sur plusieurs fichiers.xls et celà fonctionne à chaque fois. Mais je vais chercher quand même, quitte à mettre un fichier en lecture seule pour voir.
jpleroisse
P__ROMEO
Messages postés
294
Date d'inscription
vendredi 25 février 2005
Statut
Membre
Dernière intervention
9 mars 2006
1
20 sept. 2005 à 22:12
20 sept. 2005 à 22:12
OK, merci.