VBA - comment recopier hyperlien ?

Oui jai corrigé ma bétise !

en recopiant d'un fichier à l'autre j'ai perdu un bout de code...

J"ai plus de lignes dans ma BDD du coup j'ai du faire une petite modification dans la partie avec le C et il ne me recopie plus l'hyperlien comme prevu

Est ce qu'il est possible de mettre plusieurs liens hypertexte dans une cellule ? J'aurai parfois plusieurs documents pour la même fiche.

Je pense que ce n'est pas faisable mais je pourrai donner accès au fichier où il se trouve

Certaines fiches n'auront pas de documents pour info

Je continue de tâtonner de mon côté

Bonsoir NoursChoup,

Tu as modifié la colonne de présence du document. Maintenant reporté en colonne AF et non en AE. Donc on ne cible plus la bonne colonne.

RLien = .Range("AH3").Value
    RDoc = .Range("AF3").Value
    txtTotal.Value = .Range("R7").Value
    TextBox2.Value = .Range("AK3").Value
'Copie du lien ou des liens en colonne AE
For C = 3 To .Range("AF1")
Dièse = Asc(Right(.Range("AF" & C), 5))
If Dièse = 35 Then Lig = CInt(Right(.Range("AF" & C), 4)): .Range("L" & Lig).Copy .Range("AF" & C)
Next C
  End With

Et le nombre de lignes n'a pas été changé, or il est passé de 3 chiffres à 4 chiffres.

C'est corrigé ci-dessus

Ensuite,

Avec l'appui de Ric, tu as pu réparé ton oubli sur la boucle For C.

Mais ta colonne M ne dispose plus de la formule Hypertexte. =Lien_Hypertexte(... avec le numéro de ligne précédé du signe #

Et en ne comportant qu'un simple texte, cela reste donc un simple texte en colonne AF.

Il est bien sur possible d'opérer autrement mais cela demande de modifier le code.

Merci pour votre aide

Je regarde ça dès demain et je vous tiens au courant