grisan29
XLDnaute Accro
bonjour a tous
j'essaie de créer un lien hypertexte où hyperlink dans une cellule en même temps que le classeur est sauvegarder
en fait je voudrais que la cellule "A2:E65000" où .End(xlUp).Row ce qui est mieux devienne active au clic et mêne vers le document portant le numéro
j'ai essayer plusieurs solution qui marche bien ou pas comme celle en place qui n'agit pas
j'ai essayer un code trouver sur le site de Boisgontier qui me parait bien mais je ne sais pas la mettre dans le contexte soit remplacer les rage par les offset
merci de votre compréhension
j'essaie de créer un lien hypertexte où hyperlink dans une cellule en même temps que le classeur est sauvegarder
Code:
With Sheets("Historique factures")
.Range("A2") = Sheets("Facture").Range("D22")
'For Each cel In Range("A1:A" & [A65000].End(xlUp).Row)
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1:A" & [A65000].End(xlUp).Row), Address:= _
"SAUVEGARDE%20FACTURE%202016"
.Range("B2") = Sheets("Facture").Range("D21")
.Range("C2") = Sheets("Facture").Range("L11")
.Range("D2") = Sheets("Facture").Range("L12")
.Range("E2") = Sheets("Facture").Range("J22")
.Range("F2") = Sheets("Facture").Range("M58")
.Range("G2") = Sheets("Facture").Range("M60")
.Range("H2") = Sheets("Facture").Range("M61")
.Range("I2") = Sheets("Facture").Range("M62")
.Range("J2") = Sheets("Facture").Range("M63")
.Range("K2") = Sheets("Facture").Range("P63")
.Range("L2") = Sheets("Facture").Range("M66")
.Range("A2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Facture").Select
End With
j'ai essayer plusieurs solution qui marche bien ou pas comme celle en place qui n'agit pas
j'ai essayer un code trouver sur le site de Boisgontier qui me parait bien mais je ne sais pas la mettre dans le contexte soit remplacer les rage par les offset
Code:
Sub HyperLiens()
Application.ScreenUpdating = False
Range("A2:E65000").ClearContents
ChDir ActiveWorkbook.Path
Range("A2").Select
nf = Dir("*.xls")
Do While nf <> ""
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=nf, TextToDisplay:=nf
ActiveCell.Offset(0, 1) = FileDateTime(nf)
ActiveCell.Offset(0, 2) = FileLen(nf)
ActiveCell.Offset(0, 3) = GetAttr(nf)
If GetAttr(nf) And vbReadOnly Then ActiveCell.Offset(0, 4) = ActiveCell.Offset(0, 4) & " Lect"
ActiveCell.Offset(1, 0).Select
nf = Dir
Loop
Range("A2").Select
End Sub
merci de votre compréhension
Dernière édition: