Bonjour,
J'ai un bouton de macro qui me permet d'archiver l'agenda présent dans la feuille "agenda of today" dans une nouvelle feuille qui va prendre la valeur contenue dans la cellule G2.
De plus, cette date vient se renseigner dans la première cellule vide de la colonne A dans la feuille "index" qui fait office de sommaire.
Ensuite, dans la première cellule vide de la colonne B de cette même feuille "index" j'essaye de faire un lien hypertexte vers la dernière feuille du classeur. Et là... ça ne marche pas.
Voici mon code ci-dessous et merci beaucoup par avance de votre aide!
Cdlt,
Adrien
J'ai un bouton de macro qui me permet d'archiver l'agenda présent dans la feuille "agenda of today" dans une nouvelle feuille qui va prendre la valeur contenue dans la cellule G2.
De plus, cette date vient se renseigner dans la première cellule vide de la colonne A dans la feuille "index" qui fait office de sommaire.
Ensuite, dans la première cellule vide de la colonne B de cette même feuille "index" j'essaye de faire un lien hypertexte vers la dernière feuille du classeur. Et là... ça ne marche pas.
Voici mon code ci-dessous et merci beaucoup par avance de votre aide!
Cdlt,
Adrien
Code:
Sub Macro1()
'
' Macro1 Macro
'
'
If Sheets("Agenda of today").Range("G2") = 0 Then MsgBox ("Specify a date in G2")
If Sheets("Agenda of today").Range("G2") = 0 Then Exit Sub
ActiveSheet.Range("A5:K50").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("A1").Select
ActiveSheet.Paste
Range("A1").Value = Sheets("Agenda of today").Range("G2").Value
Columns("A:K").Select
Columns("A:I").EntireColumn.AutoFit
Rows("1:50").Select
Rows("1:50").EntireRow.AutoFit
ActiveSheet.Name = Format((Sheets("Agenda of today").Range("G2")), "dd-mm-yyyy")
Sheets("index").Select
Cells(Range("A65536").End(xlUp).Row + 1, 1) = Sheets("Agenda of today").Range("G2").Value
Cells(Range("A65536").End(xlUp).Row + 0, 2).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
Sheets(Sheets.Count).Name & "!A1", TextToDisplay:="link to the agenda of that day"
Sheets("Agenda of today").Select
Range("G2").ClearContents
Range("B6:K50").ClearContents
End Sub