Private Sub List1_Click() Dim ma_variable as string ma_variable = List1.List(List1.ListIndex) MsgBox List1.Path & "" & ma_variable End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim b1, variable as string dim fichier as workbook b1= page_3.textbox1.text fichier=workbooks.open(b1) variable=right$(b1,len(b1) - instrrev(b1,"\b1")) charts.add activechart.charttype=xlLine activechart.setsourcedata source:=worksheets(1).range("B1:B576"),plotby:=xlColumns activechart.seriescollection(1).XValues=" variable !R1C1:R576C1") ' le probleme vien de ce qu'il y a en gras, je ' ne sait pas quoi mettre ici activechart.location where: =xlLocation as newsheet