Feuille créée par variable

Bonjour
Je renseigne une Inputbox (Juillet)

Code:

---

1 2 3

Dim Mytext As String 'renseigner la variable mois et année Mytext = InputBox("Saisir le mois")

---

je crée une nouvelle feuille avec le nom Juillet

Code:

---

1 2 3

With ThisWorkbook .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = Mytext End With

---

Je vais dans une autre feuille, copier un tableau. puis je veux revenir à ma feuille (Juillet). je code

Code:

---

Worksheets(" " & Mytext & " ").Select

---

J'ai une erreur d'exécution '9'
Je ne comprends pas pourquoi.0

Pouvez-vous m'aider ???
Cordialement

Bonjour,

Plutôt que

Code:

---

Worksheets(" " & Mytext & " ").Select

---

, essaye

Code:

---

Worksheets(" " & Mytext & " ").Activate

---

Bàt,

C'est la même chose.
J'avais déjà essayé.
Cordialement

Tu avais ouvert un sujet sur la même problématique dans lequel quelqu'un t'avait répondu avec ce code :

Code:

---

1 2 3 4 5 6 7 8 9

Sub CreateSheet() Dim mytext as String   mytext = InputBox("Saisir le mois")   With ThisWorkbook .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = mytext End With End Sub

---

Il fait le travail, il créera toujours en dernière position une feuille portant le nom que tu renseigneras dans l'inputbox.

Bàt,

Merci Guy,

Pour ce positionner sur une feuille dont le nom est dans une variable

Code:

---

1 2	ThisWorkbook.Worksheets(Mytext) .Select

---

Ps, le fait de sélectionner une feuille pour y coller qq chose est rarement une bonne idée, et à répétition cause des flash écran et un ralentissement certain du code.

La bonne pratique de codage voudrait que tu passes directement ton copier-coller sans selectionner/passer sur l'onglet de destination, par exemple

On copie la plage A1 à D4 de l'onglet nommé Sheet1 vers E5 de la feuille Sheet2

Code:

---

1 2 3

Worksheets("Sheet1").Range("A1:D4").Copy _ destination:=Worksheets("Sheet2").Range("E5")

---