Modifier ma macro

[nenex]

slt
Je vais essayer d'etre clair dans mon explication 🙂

J'ai cette macro :

ub formulefeuille()

Dim nombre As Integer
Dim nom As String

nombre = 10 ' nombre de feuilles à créer

For b = 1 To nombre
Sheets("feuille 01").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "feuille 0" & (b + 1)
nom = "'feuille 0" & b & "'" ' les 2 lignes sont décomposées pour plus de clarté
Cells(1, 8).Formula = "=" & nom & "!H1+1"
Next b
End Sub

Je voudrais l'utiliser pour plusieur fichier, mais chaque fichier aura un nom diferent et des noms d'onglet different :
- dans le fichier nommé fichier 01 les onglets sont nommés onglet 01, onglet 02,... jusqu'a onglet 10
- dans le fichier nommé fichier 02 les onglets sont nommés onglet 11, onglet 12,... jusqu'a onglet 20
- dans le fichier nommé fichier 03 les onglets sont nommés onglet 21, onglet 22,... jusqu'a onglet 30
- etc...

J'arrive pas a voir comment faire pour utiliser la meme macro pour chaque fichier de maniere a pouvoir changer les noms des onglets.
Merci d'avance pour votre aide.
(j'espere avoir ete clair dans mes explications🙄 🙂

 

[JCGL]

Re : Modifier ma macro

Bonsoir,
Salut Spit 🙂 ,

N'amène rien au fil

Spit : tu es taquin aujourd'hui 😀

Au plaisir de te croiser 🙂

 

[nenex]

Re : Modifier ma macro

Bonsoir Nenex,

Je pense que tu n'as pas du bien regarder car c'est exactement ce qui se passe... En tout cas chez moi!

Cordialement

Ben ca marche. Je comprend pas la derniere fois ca fesait pas comme ca. J'ai, effectivement pas bien regarde. 😛
Pourquoi dans chaque fichier la 1 feuille est numerote 1 ? autre chose qui est important pour moi, c'est le numero de la cellule H1 qui doit correspondre a celui de la feuille. J'ai vu que le code est bien dedans mais ca ne marche pas. J'ai regarder 2 fois pour etre certain que ca ne marche pas 😀
Si je veux creer d'autre fichier je modifie uniquement ca : For i = 1 To 3 ?

Bonsoir Nenex,

Attention : Le résultat s'affiche en français et pas en basque 😛[/I]

ouai bon ca va.... ! 😀

 

[Spitnolan08]

Re : Modifier ma macro

Re,

Ben ca marche. Je comprend pas la derniere fois ca fesait pas comme ca

Ben si mais il faut poser la bouteille...😛 A ce propos c'est quoi la boisson du pays basque ?

le numero de la cellule H1 qui doit correspondre a celui de la feuille. J'ai regarder 2 fois pour etre certain que ca ne marche pas 😀

Normal, j'avais désactivé cette ligne car je ne savais pas ce que tu voulais faire. Il suffit de la remplacer par :

Cells(1, "H").Value = 10 * (i - 1) + b

Si je veux creer d'autre fichier je modifie uniquement ca : For i = 1 To 3 ?

Oui, c'est cela.

Pourquoi dans chaque fichier la 1 feuille est numerote 1 ?

Pour que ça fonctionne... Et surtout parce que je n'ai pas bien compris comment tu comptais utiliser cette macro et quelle était la configuration du classeur d'origine. Sinon, il faut modifier le code pour que la première feuille soit recopiée seulement 9 fois qu'elle soit renommée à la fin :soit feuille 10*b + 01 soit feuille 10*b + 10

Salut JCGL, 🙂je me suis invité dans ton fil fétiche...
Cordialement

 

[Spitnolan08]

Re : Modifier ma macro

Re,

Sinon, il faut modifier le code pour que la première feuille soit recopiée seulement 9 fois qu'elle soit renommée à la fin :soit feuille 10*b + 01 soit feuille 10*b + 10

Comme j'étais dessus, j'ai modifié le code pour que tes Fichiers 01, 02... ne contiennent plus que 10 feuilles chacun sans feuille parasite.

Le Fichier 001 joint remplace le fichier 000. Tu peux l'utiliser en test avec les fichiers 01, 02 et 03 que je t'ai envoyés précedemment (à condition qu'ils ne contiennent que la feuille1).
Nota : les macros de ces 3 derniers fichiers peuvent être supprimées.

Et n'oublie pas : branche le traducteur😉😀
Cordialement

 

[nenex]

Re : Modifier ma macro

trop coooollllllll !!!! merci beuacoup pour ton aide ! c'est exactement se que e voulais. J'avais pas pense au fichier avec le bouton mais c'est bien aussi. Pour changer le nom des feuille c'est ca : Name = "feuille 0" ?
Pour changer le nom des fichier je supose qu'il faut modifier Classeur = "Fichier 0" & i pour eviter des soucis 🙂
Je pense que j'ai pas d'autre question 😀

 

[Spitnolan08]

Re : Modifier ma macro

Re,

J'avais pas pense au fichier avec le bouton mais c'est bien aussi.

Je ne sais pas comment tu voulais procéder mais cette méthode te permet de disposer d'un classeur unique pour toutes les créations de foichiers sur le même modèle.

Pour changer le nom des feuille c'est ca : Name = "feuille 0" ?
Pour changer le nom des fichier je supose qu'il faut modifier Classeur = "Fichier 0" & i pour eviter des soucis

Là par contre je n'ai pas tout compris... Euskadiz ? Euh excuse moi : C'est à dire ?

Cordialement

Oui je sais Euskadiz ne veut pas dire....😛

 

[nenex]

Re : Modifier ma macro

Re,
Là par contre je n'ai pas tout compris... Euskadiz ? Euh excuse moi : C'est à dire ?

Cordialement

Oui je sais Euskadiz ne veut pas dire....😛

euskadiz ???? j'ai pas tout saisi la.

Pour la macro. Je viens de realiser un truc : chaque fichier n'aura pas le meme nombre de feuille et ca je ne peux pas le savoir a l'avance.