Incrementer liens hypertexte
gwen
-
gilou -
gilou -
Bonjour,
Je dispose d'un répertoire avec 1000 fichiers excel (1 fichier par client). J'ai crée un autre fichier excel dans ce même répertoir reprenant la liste de ces clients dans la 1ère colonne, le numéro de fichier excel correspondant à ce client dans la 2ème colonne, le résultats d'une cellule du fichier client dans la 3ème colonne et enfin un lien hypertexte dans la 4 ème colonne me permettant d’accéder directement au fichier client par 1 clic.
Est il possible d'incrémenter toute cette colonne par une macro afin que les n° fichiers xls se suivent de 1.xls à 1000.xls car avec un glissé les liens restent identiques.
lien hypertexte :
file:///\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\1.xls - STAT!A1
Merci d'avance,
Je dispose d'un répertoire avec 1000 fichiers excel (1 fichier par client). J'ai crée un autre fichier excel dans ce même répertoir reprenant la liste de ces clients dans la 1ère colonne, le numéro de fichier excel correspondant à ce client dans la 2ème colonne, le résultats d'une cellule du fichier client dans la 3ème colonne et enfin un lien hypertexte dans la 4 ème colonne me permettant d’accéder directement au fichier client par 1 clic.
Est il possible d'incrémenter toute cette colonne par une macro afin que les n° fichiers xls se suivent de 1.xls à 1000.xls car avec un glissé les liens restent identiques.
lien hypertexte :
file:///\\Serveur3\dserveur\ANALYSES CLIENTS\Clients\1.xls - STAT!A1
Merci d'avance,
A voir également:
- Incrementer liens hypertexte
- Vérificateur de liens - Guide
- Comment renommer un lien hypertexte ✓ - Forum Bureautique
- Incrémenter une série excel ne fonctionne pas ✓ - Forum Excel
- Telecharger liens direct - Accueil - Outils
- Lien hypertexte linkedin - Forum Réseaux sociaux
1 réponse
bonjour
ton cas est soluble par un code evenementiel qui ira chercher la feuille par un clic sur la cellule de ta colonne mais il faudra supprimer touts les liens créés
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Intersect(Range("--,--"), Target) Is Nothing Then Exit Sub
If Intersect(Range("--,--"), Target) = "" Then Exit Sub
Sheets(Target.Value).Select
End Sub
si & seulement si tes feuilles portent le meme nom que les cel de la plage ("--,--) ça marche
a+
ton cas est soluble par un code evenementiel qui ira chercher la feuille par un clic sur la cellule de ta colonne mais il faudra supprimer touts les liens créés
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
If Intersect(Range("--,--"), Target) Is Nothing Then Exit Sub
If Intersect(Range("--,--"), Target) = "" Then Exit Sub
Sheets(Target.Value).Select
End Sub
si & seulement si tes feuilles portent le meme nom que les cel de la plage ("--,--) ça marche
a+
