thyphonfalcon
Messages postés41Date d'inscriptionvendredi 27 octobre 2006StatutMembreDernière intervention12 mai 2007
-
8 mai 2007 à 22:25
thyphonfalcon
Messages postés41Date d'inscriptionvendredi 27 octobre 2006StatutMembreDernière intervention12 mai 2007
-
11 mai 2007 à 20:39
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
' 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.
thyphonfalcon
Messages postés41Date d'inscriptionvendredi 27 octobre 2006StatutMembreDernière intervention12 mai 2007 11 mai 2007 à 20:39
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