Explorateur Excel qui se ferme complètement

Question

Help, je cherche un explorateur Excel ouvrable depuis VB6, qui puisse se fermer complètement. J'en utilise un actuellement, trouvé sur VB France, mais impossible à utiliser 2 fois de suite, car instances restant en fonction...
Merci d'avance pour votre aide...

Renfield · Answer

ouvrable depuis VB6
Thèmes / VB.NET et VB 2005 /

.....

un explorateur Excel ? 
qu'est-ce donc ?

mortalino · Answer

Quel est ton code ??

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

mephisto25 · Answer

Voici mon code source. Merci de ta patience.

Private Sub open_Click()
Dim fichier1 As String
Dim DevisExcel As Object


'test d'existence si un fichier excel a été sélectionné
If fichier.ListIndex = -1 Then
MsgBox "vous n'avez sélectionné aucun fichier !", vbCritical, "Erreur"
Else
fichier1 = fichier.Path & "" & fichier.FileName




'ouvrir le fichier excel sélectionné
Set DevisExcel = New Excel.Application
DevisExcel.Visible = True
Workbooks.open FileName:=fichier1, Editable:=True


Set DevisExcel = Nothing


End If


End Sub


Private Sub quit_Click()


Private Sub help_Click()
'message d'aide
MsgBox "On ne recherche que les fichiers excel (.xls), cliquez ensuite sur le fichier désiré puis sur ouvrir", vbInformation, aide
End Sub


Private Sub dossier_Change()
'Pour que les fichier excel s'affichent en fonction du dossier
fichier.Path = dossier.Path
fichier.Refresh
End Sub


Private Sub lecteur_Change()
'Pour que les dossier s'affichent en fonction du lecteur
On Error Resume Next
dossier.Path = lecteur.Drive
End Sub

Explorateur Excel qui se ferme complètement

3 réponses

Votre réponse

Discussions similaires