Ole1insrtobjet et feuille excel et Access

Résolu
Messages postés
41
Date d'inscription
vendredi 27 octobre 2006
Statut
Membre
Dernière intervention
12 mai 2007
-
Messages postés
41
Date d'inscription
vendredi 27 octobre 2006
Statut
Membre
Dernière intervention
12 mai 2007
-
Bonjour,


Je désespère de trouver la solution ! Voil les faits :


J'essaye au départ d'un explorateur d'afficher dans un fenêtre ole un fichier excel que j'ai séléctionné.


jusque là pas de soucis..

Private Sub open_Click()
Dim fichier1 As String
Dim DevisExcel As Object


If fichier.ListIndex = -1 Then
MsgBox "vous n'avez selectionnié aucun fichier", vbCritical, "Erreur"
Else
fichier1 = fichier.Path & "" & fichier.FileName




' ouvrir le fichier excel selectionner
Set DevisExcel = CreateObject("excel.Application")
' DevisExcel.Visible = True
' Workbooks.open FileName:=fichier1, Editable:=True
OLE1.InsertObjDlg

au départ j'ouvrais le fichier excel mais je préfère l'affichier directement dans une fenêtre ole

Donc ma question est la suivante:

Comment faire en sorte que quand je clique sur mon fichier, la boite de dialogue de l'objet ole ne s'ouvre pas pour me demander
quel type d'objet je veux ouvrir, mais bien que mon fichier excel s'ouvre automatiquement dans cette espace ole.

voilà voilà...à votre bon coeur merci

1 réponse

Messages postés
41
Date d'inscription
vendredi 27 octobre 2006
Statut
Membre
Dernière intervention
12 mai 2007

Et bien j'ai trouvé, la fonction est la suivante : CreateLink

Ouverture d'un objet Ole à la sélection dans un Treeview :

Private Sub TreeViewFile_Click()
    Dim NodeX As Node
    Set NodeX = TreeViewFile.SelectedItem
    If Not (TreeViewFile.SelectedItem.Key = "root") Then
   
    OLE1.CreateLink (TreeViewFile.SelectedItem.Key)
 
     
    Else
        If NodeX.Expanded = False Then
            NodeX.Expanded = False
            NodeX.Selected = False
        Else
            NodeX.Expanded = True
            NodeX.Selected = True
        End If
    End If
End Sub