Enigme Worksheet_SelectionChange(ByVal Target As Range)

Bonjour à tous, je voulais vous faire part d’une énigme qui m’est apparus ce matin en voulant créer un nouveau classeur, grâce à un document déjà existant, qui contiendra une copie de la feuil1 déjà créée.

J’ai donc piqué plein de bout de code de partout, avant de me rendre compte que mon classeur faisait une création d’un nouveau fichier excel tout seul. Alors que j’ai supprimé la quasi totalité des codes copiés…

J’ai une bouton d’userform qui va commander le lancement de la création du document, ainsi que la copie de la feuil1.

J’ai découvert le truc que je ne comprends pas en faisant du étape par étape…

Voici donc comment ça se passe :

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click()   Cells.Locked = False Range("A1:IV1").Locked = True ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Range("A1").Select

---

Ensuite le pas à pas va dans un autre Sub alors que je ne lui ai jamais demandé !

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   End Sub

---

Pour finalement revenir à celui d’avant qui continue ainsi :

Code:

---

1 2 3 4 5 6 7

Sheets("Feuil1").Copy 'C’est à ce niveau là que l’autre classeur est créé…   Unload Me   End Sub

---

Avez-vous une idée du pourquoi du comment le nouveau classeur est créé ?

Car après tout c’est ce que je voulais, mais je sais pas comment j’ai fais :D ni comment changer le nom du classeur qui s’appelle classeur1, puis 2 etc …

Merci ;)

Bonjour,
Dans ce que tu montre il n'y a rien qui crée un nouveau classeur, ça doit être ailleur.
A+

Bonjour

Code:

---

1 2 3 4

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   End Sub

---

La procédure ci dessus est lancée quand la cellule sélectionnée change dans la feuille de calcul, ce qui est le cas du fait de l'instruction

Code:

---

Range("A1").Select

---

Concernant la création du classeur l'aide de VBA apporte la réponse

Code:

---

Sheets("Feuil1").Copy

---

Si vous ne spécifiez ni l'argument Before ni l'argument After, Microsoft Excel crée un nouveau classeur contenant la feuille copiée.

Le code ci dessous permet de renommer le classeur créé

Code:

---

1 2 3

ActiveWorkbook.SaveAs Filename:="toto.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False

---

JP014

Salut clecle69000 et Bonne et heureuse année
Pas sûr de comprendre :
Cells.Locked = False Libère les cellules
Range("A1:IV1").Locked = True verrouille les cellules
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True active la protection de la feuille
Range("A1").Select Sélectionne la cellule A1 et donc lance Worksheet_SelectionChange de la feuille, même si tu ne l'as pas voulue puis une fois cette macro finie, elle continue celle qu'elle était en train de faire à la ligne suivant la sélection.
Sheets("Feuil1").Copy Crée une nouvelle feuille, copie de Feuil1 dans un nouveau classeur (Excel V2003)
A+

Citation:

---

Si vous ne spécifiez ni l'argument Before ni l'argument After, Microsoft Excel crée un nouveau classeur contenant la feuille copiée.

---

Ouppss...:oops:

Merci beaucoup pour ces réponses, grace à vous et à un peu de débrouillardise, j'arrive à créer un nouveau fichier excel basé sur deux feuilles déjà existante avec :

Code:

---

1 2 3 4 5 6

Sheets(Array("Feuil1", "Informations")).Copy     ActiveWorkbook.SaveAs Filename:="toto.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False

---

Bon bah vivement que j'aide plus de monde que l'inverse :D

Merci encore