Discussion :

[guismoman33]

J'aimerai créer un bouton qui a comme instruction : créer une page identique à la page nommé X
-Je veux que cette page soit nommé : page 2 (si le bouton etait sur la page 1)
-Quel soit identique à la page 1
-Que le lien qui va vers cette page s'inscrve automatiquement a la ligne b3 de la page 15!!!

J'ai un deuxieme probleme!!!Pouvons nous configurer excel des l'ouverture!
J'aimerai que lorsque j'execute excel, excel ce mette automatiquement en niveau de securité moyen comme sa j'aurai plus de probleme avec des impossiblité d'execution de macros a cause de la securité!!!Voila
Merci d eme repondre au plus vite

[cwain]

Salut guismoman,
Pour le paramétrage d'Excel, et bien tu le règles à niveau moyen et la fois d'après il s'ouvre à niveau moyen, non ?
Pour la création de page, quel est ton code ? Où rencontres-tu des problèmes en particulier ?

[guismoman33]

je n'est pas de code car je ne sais pas si cela est possible!!!Je ne veut peut etre pas le code en entier mais o moins le moyen!!!

[ouskel'n'or]

Dans la sub Auto_Open, essaie en mettant

Code :

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

Application.EnableEvents = True

A tout hasard, pas testé

[guismoman33]

c'est quoi la auto open

[cwain]

Tu peux utiliser :

Code :

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

Sheets("nomdelonglet").Copy before:=Sheets("nomduneautrefeuille")

Tu utilises le before ou after pour placer ta feuille par rapport aux autres
Pour le lien, utilise Hyperlinks . Voilà ce que te donne l'enregistreur de macros :

Code :

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

1
2
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
    "Feuil2!A1", TextToDisplay:="Feuil2!A1"

[ouskel'n'or]

Auto_Open est une sub que tu places dans un module standard et qui démarre à l'ouvervure de ton fichier
Selon la version, c'est

Code :

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

Sub Workbook_Open()

ou

Code :

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

Sub Auto_Open()

Un coup d'oeil dans l'aide à ces deux événements
A+

[cwain]

Pour ton problème à l'ouverture d'Excel, tu peux préciser ?
Si tu ouvres Excel, que tu règles le niveau de sécurité à "moyen", que tu le refermes, et que tu le rouvres, tu ne devrais plus avoir tes macros désactivées, juste l'écran te demandant si tu veux activer ou non les macros

Pour le déplacement de feuille, franchement essaie de faire tout ce que tu dis avec l'enregistreur de macros, tu auras le code complet . Tu l'adaptes si besoin, puis tu l'associes ensuite le code au bouton et c'est gagné !

[guismoman33]

comment je pourrai leur donnez une variable differente

pour pouvoir differencier les page

[ouskel'n'or]

Suis le conseil de cwain et montre ton code enregistré, on fera le nettoyage qui s'impose
A+

[guismoman33]

Code :

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

1
2
3
4
5
6
Private Sub CommandButton7_Click()
Dim var As Single
var = 1
Sheets("15)Perçage,Taraudage,Alésage").Copy after:=Sheets("Récapitulatif")
var = var + 1
End Sub

Voila enfaite il faut que je créer une variable qui est unique ala page créer

je pense savoir mais je nbe connait pas la syntaxe, par son numero de page ??? Je pense que cela peut etre une bonne idée

[cwain]

Essaie l'enregistreur de macros, ce sera beaucoup plus simple !

[ouskel'n'or]

Une autre chose : Dans ton code, la variable Var déclarée en local ne sert à rien... Pour qu'elle soit utile à quelque chose "ailleurs",
- soit tu la déclares en tête d'un module standard, en Public var as ...
- soit tu la déclares dans les "Déclarations" de l'userform si tu en as un, Dim var as ...
A toutes fins utiles

[guismoman33]

j'ai rien compris
je pense que le mieu serai de mettre comme variable le numero de la page mais je c'est plus comment on fait!!!

Code :

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

MsgBox Worksheets.Value

J'ai mis sa pour afficher le numero de la page dans un msgbox est ce bon??

une fois que j'

une fois que j'ai recuperer ce numero je voudrai mettre
numerorecuperer)percage,taraudage
comment faire poru donnez un nom a ma page créer

sa va aps car si je veut créer 6 feuill identique sa m'affichera pas le nom de la feuille et son lien pour chaque feuille c'est pour cela qu'il faut ke j'arrive a recuperer la numero de la feuille

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton7_Click()
Dim var2 As String
Dim var As String
Sheets("15)Perçage,Taraudage,Alésage").Copy after:=Sheets("Récapitulatif")
var2 = Sheets(10).Cells(23, 1).Value
var = ActiveSheet.Name
Workbooks(1).Sheets(16).Range("A23").Value = var2 ; var

Voila mon code il marche preesque mais je voudrai que dans ma case a la fin sa ecrive var2 ; var
mais je ne c'est pas comment faire car la il me dit que sa ne va pas sa doit etre dans la separation des deux variable

[cwain]

pour enregistrer une macro :
- Cliquer sur Outil>Macro>Nouvelle Macro

Si la barre d'outils Visual Basic est affichée (Affichage>Barres d'outils>Visual Basic) , tu peux aussi cliquer sur le bouton rouge, c'est plus rapide

Ensuite, tu fais la manipulation que tu souhaites :
- click droit sur le nom de la feuille que tu veux dupliquer, Déplacer ou copier, cocher "faire une copie"
- double click sur le nom de la nouvelle feuille, puis tu la renommes
- tu vas à la page 15, cellule B3, tu cliques sur "insérer un lien hypertexte", puis "emplacement dans ce document", tu sélectionnes ta nouvelle feuille et voilà

Ensuite, tu vas dans l'éditeur Visual Basic et tu regardes le code qui s'est créé

[cafeine]

Code :

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

var2 & ";" & var

?

[cwain]

Et si tu essayais l'enregistreur de macro...

sa marche pas

Qu'est-ce qui marche pas ?

[guismoman33]

ya des truc chelou quand meme... Car dans la case b23 il y a un nom de page. Ce nom de page me permet de le reprendre comme variable pour pouvoir l'imprimé grace a un autre script...Donc comment faire pour ajouter un autre nom de page dans la meme case