Discussion :

[sarphiama31]

Bonjour,
Voila j'ai un fichier excel avec une feuille "accueil" une feuille "fiche de liaison".
Sur ma page d'accueil j'ai crée un bouton activant une macro qui me crée
une copie de ma feuille "fiche de liaison". Jusque la tout marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Creationliaison()
'
' Creationliaison Macro
' Macro enregistrée le 09/09/2008 par XXXXX
 
    Sheets("Fiche de liaisons").Select
    Sheets("Fiche de liaisons").Copy Before:=Sheets(4)
    Sheets("Fiche de liaisons").Select
    Sheets("Fiche de liaisons (2)").Name = _
        "Fiche de liaisons (2)"
    Sheets("Accueil").Select
    Range("E32").Select
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "Fiche de liaisons"
    Range("E32").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Fiche de liaisons (2)'!A16", TextToDisplay:= _
        "Fiche de liaisons"
    Sheets("Accueil").Select
 
End Sub

Maintenant je souhaite inclure dans ma macro la création d'un lien hypertexte "fiche de liaison n°1" me donnant accès directe à cette fiche nouvellement créer sur ma feuille "Accueil" ,dans la cellule donnée (E32), et si je crée une 2eme fiche, que la macro crée une nouveau lien hypertexte "fiche de liaison n°2" sur la feuille accueil dans la cellule E33 et ainsi de suite quelques soient le nombre de fiche que je crée.
ET LA JE SAIS PAS FAIRE

Bon je tiens à vous preciser que je ne connais rien au VBA.

J'ai bien cherché sur le forum mais je n'ai pas trouvé la réponse à ma question peut être m'a elle echappée, si c'est le cas veuillez m'en excuser.

Merci de votre réponse et de votre aide.

[youn1096]

salut

essayes de garder la liste des feuilles creer dans une feuille que tu peux nommer "Parametre" par exemple
a chaque creation d'une nouvelle fiche t'incremente le numéro de la fiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
Sub Creationliaison()
'
' Creationliaison Macro
' Macro enregistrée le 09/09/2008 par XXXXX
 
    Sheets("Fiche de liaisons").Select
    Sheets("Fiche de liaisons").Copy Before:=Sheets(4)
    Sheets("Fiche de liaisons").Select
    Sheets("parametre").Rows(1).Insert
    Sheets("parametre").Range("a1") = Sheets("parametre").Range("a2") + 1
    Sheets("Fiche de liaisons (2)").Name = _
        "Fiche de liaisons n°" & Sheets("parametre").Range("a1")
    Sheets("Accueil").Select
    Range("E" & Sheets("parametre").Range("a1") + 31).Select
 
    'ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "Fiche de liaisons"
    Range("E" & Sheets("parametre").Range("a1") + 31).Select
 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "'Fiche de liaisons n°" & Sheets("parametre").Range("a1") & "'!A16", TextToDisplay:= _
        "Fiche de liaisons" & Sheets("parametre").Range("a1")
    Sheets("Accueil").Select
 
End Sub

essayes ce code en ajoutant une feuille "parametre" à ton classeur et met 1 dans la cellule "A1"

[sarphiama31]

Je te remercie tu es un chef c'est exactement ce que je voulais faire.
Tu as résolu mon problème.

Merci encore de à toutes et à tous de votre devouement.
A bientôt