M
mitchoum
Guest
Bonjour à tous,
Tout d'abord, je suis débutant en VBA et je m'excuse par avance de la question que je vais poser qui va surement vous sembler très simple. Mais après quelques heures de recherche sur le net, j'avoue avoir besoin d'un coup de main. C'est la première fois que je dois faire du VBA. Et je ne vois pas comment résoudre mon problème sans celui-ci.
Donc rentrons dans le vif du sujet.
J'ai un fichier excel dans lequel il y a une colonne ou chaque cellule contient un nom + un lien hypertexte. Pour exploiter mon fichier en PHP, je dois d'abord le convertir en CSV, et la convertion perds ces liens hypertextes... alors que j'en ai vraiment besoin.
Du coup, j'aimerais savoir comment faire pour recopier uniquement le lien dans une autre colonne. Admettons pour l'exemple que j'ai une colonne A qui contient mes noms avec liens, et une colonne B vierge pour le moment.
Comment puis-je faire?
J'avais écris la chose suivante, mais ca ne fonctionne pas :/ :
Sub createColonneLien()
Dim Cell As Range
For ind = 1 To 5000
Cells(ind, 2) = Cells(ind, 1).Hyperlinks(1).Address
Next ind
End Sub
Merci beaucoup par avance!
Mickael
Tout d'abord, je suis débutant en VBA et je m'excuse par avance de la question que je vais poser qui va surement vous sembler très simple. Mais après quelques heures de recherche sur le net, j'avoue avoir besoin d'un coup de main. C'est la première fois que je dois faire du VBA. Et je ne vois pas comment résoudre mon problème sans celui-ci.
Donc rentrons dans le vif du sujet.
J'ai un fichier excel dans lequel il y a une colonne ou chaque cellule contient un nom + un lien hypertexte. Pour exploiter mon fichier en PHP, je dois d'abord le convertir en CSV, et la convertion perds ces liens hypertextes... alors que j'en ai vraiment besoin.
Du coup, j'aimerais savoir comment faire pour recopier uniquement le lien dans une autre colonne. Admettons pour l'exemple que j'ai une colonne A qui contient mes noms avec liens, et une colonne B vierge pour le moment.
Comment puis-je faire?
J'avais écris la chose suivante, mais ca ne fonctionne pas :/ :
Sub createColonneLien()
Dim Cell As Range
For ind = 1 To 5000
Cells(ind, 2) = Cells(ind, 1).Hyperlinks(1).Address
Next ind
End Sub
Merci beaucoup par avance!
Mickael
