Sélectionner nouvelle feuille après copie dans nouveau classeur

Bonjour,

Je bloque complètement sur ce problème, et ne comprend pas la logique derrière.

J'ai fait une macro qui copie la feuille active dans un nouveau classeur, que je sauvegarde. Jusque là, aucun problème.

Je voudrais maintenant faire des modifications sur cette nouvelle feuille.

Le problème, c'est que je n'arrive pas à la sélectionner.

Lorsque je regarde, le classeur actif est bien le nouveau classeur, mais la feuille active est l'ancienne. Ce qui fait que les modifications se font sur l'ancienne.

Je vous mets le code (j'ai juste enlevé le chemin d'accés).

Si quelqu'un pouvait me débloquer, ce serait top !

Sub testSelect()

    ActiveSheet.Select
    ActiveSheet.Name = "page1"

    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:= _
        "\\chemin\copieTest.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Workbooks("copieTest.xlsx").Activate
    MsgBox (ActiveWorkbook.Name)
    ActiveWorkbook.Sheets("page1").Select
    ActiveSheet.Name = "copie page1"

End Sub

Bonjour Llacoste,

J'ai testé le bout de code que tu as fourni et je ne rencontre pas d'anomalie, l'écriture se fait bien dans le nouveau classeur et sur la nouvelle feuille renommée. J'ai juste modifié le chemin et rajouté à la fin un test d'écriture.

Le pbm vient d'ailleurs, il faudrait que tu joignes le classeur (anonymisé) pour pouvoir investiguer plus.

Sub testSelect2()

    ActiveSheet.Select
    ActiveSheet.Name = "page1"

    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\copieTest.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

    Workbooks("copieTest.xlsx").Activate
    MsgBox (ActiveWorkbook.Name)
    ActiveWorkbook.Sheets("page1").Select
    ActiveSheet.Name = "copie page1"
   ActiveSheet.Range("B4").Value = "taratata !"
End Sub

Cdlt,

Cylfo

Bonjour !

Je ne comprend pas pourquoi, mais ton code marche et pas le mien...

Hormis le chemin, je ne vois pourtant pas de différence.

Je vais donc ne pas mettre le chemin en entier, mais faire comme toi.

Merci beaucoup !