Excel : récupérer lien hypertexte

Bonjour,

Je possède un tableau excel de 10 colonnes.
La colonne 1 indique le nom d'un projet, et possède (dans 70% des cas) un lien hypertexte vers un dossier du disque dur.

Parcourir le fichier excel, et extraire les données textes ne me posent aucun problème.

Mais, comment puis-je savoir si la cellule sélectionnée (lors de ma boucle) possède un lien ? et si oui comment le récupérer.

Merci d'avance pour votre aide.

Hello,

Et bien la solution facile je pense serait de faire un test FileExsists si le lien pointe sur un fichier ou DirectoryExist si le lien pointe sur un dossier. Si le texte saisi n'est pas un lien ces deux fonctions te renverront False.

Cela te conviendrait il?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

J'ai du mal formuler ma question.

J'ai dans ma colonne1, les entrées suivantes :
- "projet 1". (sans lien hypertexte)
- "projet 2". (avec un lien hypertexte sur \\serveur\partage1)
- "projet 3" (avec un lien hypertexte sur \\serveur2\partage)

Quelle fonction puis-je utiliser pour savoir si une cellule possède un lien hypertexte? et quel lien celle-ci renvoie.

Si tu fais :

If DirectoryExists('\\Serveur1\Partage1') then
//ici c'est un lien hypertexte et le lien fonctionne
else
//Ce n'est pas lien hypertexte ou le lien ne fonctionne pas ou plus

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

voici un exemple :

tableau (les colonnessont séparées par des ';') :
le titre des colones :
Nom; demandeur; date; type

les données :
demande 1; X; 2004/12/01; objets x
extraction des chaines; Y; 2004/12/01; extraction

la cellule "demande 1", possède un lien hypertexte vers (\\serveur\extraction\mr_x)
la cellule "extraction des chaines" possède un lien hypertexte vers (\\serveur\extraction\chaine)


si je fais :

Procedure ExcelImportDemande;
var
classeur : _workbook;
feuille : _worksheet;
arrData : variant;
I : integer;
begin
excel.Connect;
classeur := excel.workbooks.open('liste.xls');
feuille := classeur.worksheets[1] as _Worksheet;

(* sélection de la plage des données *)
I:=12;
arrData := VarArrayCreate([0, (I-8-1), 0, 4], varOleStr]); //création d'une zone mémoire
arrData := Feuille.Range['A8', Feuille.Cells.Item[I,4]].Value2; // copie l'ensemble des données depuis la ligne 8

(**)
for I:=1 to I-8+1 do Begin
ShowMessage(arrData[I,1]);
End
end;

j'obtiens uniquement le titre des cellules de la colonne 1 :
demande 1, extraction des chaines

comment faire pour obtenir les valeurs : "\\serveur\extraction\mr_x", "\\serveur\extraction\chaine"

le lien hypertexte n'étant pas directement visible, (sauf lors du survol du curseur ou lors d'un click), comment fais tu pour extraire ces données?

je n'ai pas encore testé ce code...
mais je crains ceci :

- le 1er code, ne contient qu'une liste d'hyperliens, associés au Document, et non à une cellule...

- pour le 2e code, faut que je vois les autres propriétés...
il faudrait pouvoir sélectionner une zone, et en extraire les liens...

à voir.
merci quand même pour ton aide.

Je pense que tu peux le faire sur une plage et notamment une colonne.

car le debut de l'aide dit bien ceci :
Représente la collection de liens hypertexte d'une plage ou d'une feuille de calcul.


Une PLAGE ou une feuille de calcul.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

merci pour ton aide :)
ton code marche :)