Ouvrir un fichier xls

Résolu
cs_Achi Messages postés 128 Date d'inscription lundi 27 février 2006 Statut Membre Dernière intervention 17 mai 2008 - 17 mai 2008 à 13:58
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 17 mai 2008 à 16:17
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

mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
17 mai 2008 à 16:17
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
3
Rejoignez-nous