Récupérer l'adresse URL placer sur une cellule EXCEL !
lebuzz
Messages postés
16
Date d'inscription
mercredi 4 août 2004
Statut
Membre
Dernière intervention
6 février 2006
-
30 août 2005 à 15:57
lebuzz Messages postés 16 Date d'inscription mercredi 4 août 2004 Statut Membre Dernière intervention 6 février 2006 - 31 août 2005 à 12:16
lebuzz Messages postés 16 Date d'inscription mercredi 4 août 2004 Statut Membre Dernière intervention 6 février 2006 - 31 août 2005 à 12:16
2 réponses
michelxld
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
12 octobre 2008
32
30 août 2005 à 18:04
30 août 2005 à 18:04
bonjour
tu peux tester
Set xlapp = CreateObject("excel.application")
xlapp.application.Workbooks.Open FileName:="c:\develop\test.xls"
With xlapp.application
'premiere feuille
.sheets("debut").Select
nom = .cells(1, 2) 'nom
Adresse= .cells(1, 2).Hyperlinks(1).Address
End With
bonne soiree
michel
tu peux tester
Set xlapp = CreateObject("excel.application")
xlapp.application.Workbooks.Open FileName:="c:\develop\test.xls"
With xlapp.application
'premiere feuille
.sheets("debut").Select
nom = .cells(1, 2) 'nom
Adresse= .cells(1, 2).Hyperlinks(1).Address
End With
bonne soiree
michel
lebuzz
Messages postés
16
Date d'inscription
mercredi 4 août 2004
Statut
Membre
Dernière intervention
6 février 2006
31 août 2005 à 12:16
31 août 2005 à 12:16
ok ca marche merci beaucoup !!
LeBuzz...
LeBuzz...
