Microsoft 365 Affichage liens archives

Bonjour,

Voici votre macro qui ajoute le lien hypertexte dans la cellule , à la place du texte affiché dans la cellule : "voir le document " vous pouvez remettre le chemin entier : chemin_facture. A vous de voir

Cordialement

Hasco à dit:

Bonjour,

Voici votre macro qui ajoute le lien hypertexte dans la cellule , à la place du texte affiché dans la cellule : "voir le document " vous pouvez remettre le chemin entier : chemin_facture. A vous de voir

VB:

Sub CopieArchives(chemin_facture As String)

' copie dans les archives les lignes factures
    With Sheets("ARCHIVES")
        lignerecopie = .Range("B" & Rows.Count).End(xlUp).Row + 1
        .Range("B" & lignerecopie).Value = Sheets("Facture de service").Range("E3").Value
        .Range("C" & lignerecopie).Value = Sheets("Facture de service").Range("E4").Value
        .Range("D" & lignerecopie).Value = Sheets("Facture de service").Range("E5").Value
        .Range("E" & lignerecopie).Value = Sheets("Facture de service").Range("B13").Value
        .Range("F" & lignerecopie).Value = Sheets("Facture de service").Range("E28").Value
        Hyperlinks.Add .Range("G" & lignerecopie), chemin_facture, "cliquez pour ouvrir le document", "Voir le document"
    End With
End Sub

Cordialement

Cliquez pour agrandir...

Bonjour Hasco,
Merci pour le code, mais il ne veut pas fonctionner ou est ce que je fais une erreur ? Voici le code comme je l'ai mis
Sub CopieArchives(chemin_facture As String)

' copie dans les archives les lignes factures
With Sheets("ARCHIVES")
lignerecopie = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & lignerecopie).Value = Sheets("Facture de service").Range("E3").Value
.Range("C" & lignerecopie).Value = Sheets("Facture de service").Range("E4").Value
.Range("D" & lignerecopie).Value = Sheets("Facture de service").Range("E5").Value
.Range("E" & lignerecopie).Value = Sheets("Facture de service").Range("B13").Value
.Range("F" & lignerecopie).Value = Sheets("Facture de service").Range("E28").Value
Hyperlinks.Add .Range("G" & lignerecopie), chemin_facture, "cliquez pour ouvrir le document", "Voir le document"
End With
End Sub
Merci pour le coup de pouce
A+

Hasco à dit:

Re,

Je ne peux rien vous dire, la ligne qui rajoute le lien hypertext fonctionne chez moi.
La seule chose que je vois c'est qu'il manque un . (point) devant .HyperLinks.

Quand ça ne marche pas, le dire n'est pas suffisant. Message d'erreur ? Sur quelle ligne ?
Eventuellement voyez l'aide en ligne en plaçant le curseur sur le mot clefs Hyperlinks tout en appuyant sur F1
Cordialement

Cliquez pour agrandir...

Bonsoir Hasco,
C'est vrai le point fait tout Tout fonctionne, ! Quand on va trop vite et quand on fait pas attention. Je suis désolé de vous avoir embêter à ce point.
Merci encore pour votre aide.

Cdt Rubis