creation de lien a la creation d une nouvelle feuille

Salut Le Surcitaire,

Avec ceci peut-être ( à adapter bien sûr !)

Sub Ajouter()
Sheets.Add After:=Sheets("Intro")
ActiveSheet.Name = "MaFeuille"
Sheets("Intro").Select
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="MaFeuille!A1"
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" <donzel-gargand.jacques-lesurcitaire@tiscali.fr> a écrit
dans le message de news: mn.a2867d515e14e4ec.13377@tiscali.fr...

Bonjour à tous,

J'ai une classeur avec une feuille qui me sert d'intro ou je souhaite
mettre un lien vers chaque feuille de mon claseur, jusque la je sais faire
mais ces feuilles sont cree a partir d'un modèle en cliquant sur un bouton
donc ce que j'aimerai c'est que lorsque je cree une nouvelle feuille un
lien se cree automatiquement sur ma feuille intro
est ce possible et comment

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre

Pounet95 a présenté l'énoncé suivant :

Sub Ajouter()
Sheets.Add After:=Sheets("Intro")
ActiveSheet.Name = "MaFeuille"
Sheets("Intro").Select
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="MaFeuille!A1"
End Sub

Votre macro pourrait me convenir mais j'ai oublie de donner quelques
elements
mes nouvelles feuilles sont creees avce la macro ci-dessous et etant
plus que debutant en vba je ne vois pas comment integrer la votre :/

Private Sub Nouveau()
msg = "Vous allez créer une nouvelle feuille à partir de ce modèle
" & vbCrLf & vbCrLf & "Comment voulez nommer cette feuille ? " & vbCrLf
& "Entrer le Nom"
Rep = InputBox(msg, "Saisie du Nom")
msg2 = "Vous allez créer une nouvelle feuille à partir de ce modèle
" & vbCrLf & vbCrLf & "Comment voulez nommer cette feuille ? " & vbCrLf
& "Entrer le Prénom"
Repb = InputBox(msg2, "Saisie du Prénom")
If Rep = "" Then Exit Sub
On Error GoTo SaisieInvalide
Application.ScreenUpdating = False
Sheets("Modèle").Copy Before:=Worksheets("XFin")
ActiveSheet.Name = Rep & Repb
Exit Sub
SaisieInvalide:
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveSheet.Delete
msg = "Le nom que vous avez tapé n'est pas valide !" & vbCrLf &
vbCrLf & "-Vérifier que le nom de la feuille ne dépasse " & "pas _31
caractères " & vbCrLf & "-Vérifier que le nom de la feuille ne contient
" & "aucun des caractères suivants :" & vbCrLf & " ,/ : ?* [ ou ]" &
vbCrLf & "-Vérifier qu'une feuille du classeur ne possède " & "pas déjà
un nom identique"
Reponse = MsgBox(msg, , "Saisie invalide")
Sheets("Modèle").Select
Exit Sub
End Sub

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre

Pounet95 vient de nous annoncer :

Re,
Ajouter dans la procédure l'appel à la sub créant le lien

....
On Error GoTo SaisieInvalide
Application.ScreenUpdating = False
Sheets("Modèle").Copy Before:=Worksheets("XFin")
ActiveSheet.Name = Rep & Repb

' ----------- ICI --------------------------
Ajouter_Lien (ActiveSheet.Name)
Exit Sub
.....


Et copier après la procédure celle-ci ( appelée par la précédente ):

Sub Ajouter_Lien(wNom As String)
Sheets("Intro").Select
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="" & wNom & "!A1"
End Sub

Bon courage pour la suite. N'hésite pas à faire appel (... mais là je crois
que c'est presque un conseil inutile ;o))) )

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Le Surcitaire" <donzel-gargand.jacques-lesurcitaire@tiscali.fr> a écrit dans
le message de news: mn.a29b7d51efb30355.13377@tiscali.fr...

Pounet95 a présenté l'énoncé suivant :

Sub Ajouter()
Sheets.Add After:=Sheets("Intro")
ActiveSheet.Name = "MaFeuille"
Sheets("Intro").Select
Range("B" & Range("B65536").End(xlUp).Row + 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="",
SubAddress:="MaFeuille!A1"
End Sub

Votre macro pourrait me convenir mais j'ai oublie de donner quelques
elements
mes nouvelles feuilles sont creees avce la macro ci-dessous et etant plus
que debutant en vba je ne vois pas comment integrer la votre :/

Private Sub Nouveau()
msg = "Vous allez créer une nouvelle feuille à partir de ce modèle " &
vbCrLf & vbCrLf & "Comment voulez nommer cette feuille ? " & vbCrLf &
"Entrer le Nom"
Rep = InputBox(msg, "Saisie du Nom")
msg2 = "Vous allez créer une nouvelle feuille à partir de ce modèle " &
vbCrLf & vbCrLf & "Comment voulez nommer cette feuille ? " & vbCrLf &
"Entrer le Prénom"
Repb = InputBox(msg2, "Saisie du Prénom")
If Rep = "" Then Exit Sub
On Error GoTo SaisieInvalide
Application.ScreenUpdating = False
Sheets("Modèle").Copy Before:=Worksheets("XFin")
ActiveSheet.Name = Rep & Repb

Exit Sub
SaisieInvalide:
Application.ScreenUpdating = True
Application.DisplayAlerts = False
ActiveSheet.Delete
msg = "Le nom que vous avez tapé n'est pas valide !" & vbCrLf & vbCrLf &
"-Vérifier que le nom de la feuille ne dépasse " & "pas _31 caractères " &
vbCrLf & "-Vérifier que le nom de la feuille ne contient " & "aucun des
caractères suivants :" & vbCrLf & " ,/ : ?* [ ou ]" & vbCrLf & "-Vérifier
qu'une feuille du classeur ne possède " & "pas déjà un nom identique"
Reponse = MsgBox(msg, , "Saisie invalide")
Sheets("Modèle").Select
Exit Sub
End Sub

-- enlever lesurcitaire
La Vie n'est rien sans la joie de vivre

Merci beaucoup cela fonctionne a merveille

--
enlever lesurcitaire
La Vie n'est rien sans la joie de vivre