Discussion :

[eleve36]

BOnjour, j'essaie de dupliquer une feuille excel faite en modèle via une macro. Le hic c'est que çà ne marche pas.
POur le titre de l'onglet, je voulais récupérer les données inscrites en cellule B2.

Il y a un souci d'exécution.

POuvez-vous m'aider?

Merci

Code :

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

1
2
3
4
5
 
Sub duplic()
Worksheets('modele').Copy After:=Sheets(Worksheets.Count)
.Name = ActiveSheet.Range("B2").Value
End Sub

[cafeine]

Hello,

1- les noms des feuilles ne sont pas délimités par des quotes (') mais par des double quotes (") ...

2- ce type d'écriture s'utilise dans un bloc With

Code :

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

1
2
3
4
5
Worksheets("feuil1").Copy After:=Sheets(Worksheets.Count)
Set MySheet = ActiveSheet
With MySheet
   .Name = Worksheets("feuil1").Range("B2")
End With

[eleve36]

si je mets cela

Code :

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

1
2
3
4
5
6
7
8
 
Sub duplic()
Worksheets("feuil1").Copy After:=Sheets(Worksheets.Count)
Set MySheet = ActiveSheet
With MySheet
   .Name = Worksheets("feuil1").Range("B3")
End With
End Sub

çà ne marche pas

erreur d'exécution
l'indice n'appartient pas à la sélection

Si je mets le code tel qu'écrit plus haut : çà me met erreur de compilation instruction incorrecte à l'intérieur d'une procédure.

J'ai du louper une étape.

Merci d'avance

[SfJ5Rpw8]

sur qu'elle ligne l'erreur ...? la feuil1 est bien présente dans ton classeur...?

[AlainTech]

Le code donné par cafeine est un exemple.

Le but n'était pas de le copier tel quel.

Il me semble que ta feuille modèle s'appelle "modele" et pas "feuil1".