Ouvrir un fichier xls [Résolu]

Signaler
Messages postés
128
Date d'inscription
lundi 27 février 2006
Statut
Membre
Dernière intervention
17 mai 2008
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Bonjour à tous,

alors voilà je souhaite ouvrir à partir d'un powerpoint un fichier excel.
j'ai donc dans le diaporama fais un lien hypertext qui fonctionne très bon.
j'utilise à plusieur reprise sur mes diapos le même fichier mais je voudrais que selon la diapo il me l'ouvre sur une feuille différente. (ex, liens n° 1 m'ouvrirai le fichier trucmuche.xls feuil1, et le liens n°2 toujours avec le fichier trucmuche.xls mais sur la feuil2)

bon j'ai essayé autre chose.
sur le visual basic de powerpoint j'ai crée des labels ou lorsque je dessus je fait le code suivant:

Public Sub Label1_Click()
Open "test.xls" For Input As #1


End Sub

mais il ne m'ouvre rien et en plus je ne gère pas la feuille voulue à l'ouverture.

si qlq'un a solution je lui en serais très reconnaissant.
merci






Achi

1 réponse

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
salut,

pas la bonne méthode pour ouvrir excel, voici comment procéder :

déjà, référence dans ton projet ppt (menu outils du vba) Microsoft excel objects library

Ensuite, quand t'as besoin d'ouvrir :

Dim xlApp as New Excel.Application
Dim xlBook as Excel.Workbook
Dim xlSheet as Excel.Worksheet

xlApp.Visible = true
set xlBook = xlApp.WorkBooks.Open "c:\chemin\nom fichier.xls"
set xlSheet = xlBook.Sheets("Nom feuille")
xlSheet.Select

et quand t'as plus besoin,

xlBook.Close True 'ou false
Set xlSheet = nothing
Set xlBook = nothing
Set xlApp = nothing

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA