Ouverture de fichier

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

@+

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.

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

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?

OK, merci.