macro et nom de feuille

[ozzii]

Bonjour le forum,

j'ai cette macro qui se lance à chaque ouverture du fichier:

Sub TriAuto()
'
' TriAuto Macro
'

'
    Sheets("Donnees").Select
    Columns("B:B").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("D:D").Select
    Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets("Feuil1").Select
End Sub

Cependant à la place de "Sheets("Feuil1").Select" j'aimerais avoir le nom de la dernière feuille utilisée.

Pas trop compliqué (je pense), mais je suis un pur débutant dans ce domaine 😱

Merci par avance.

 

[wilfried_42]

Re : macro et nom de feuille

Bonjour le forum,

j'ai cette macro qui se lance à chaque ouverture du fichier:

Sub TriAuto()
'
' TriAuto Macro
'

'
[COLOR="red"]dim mafeuille as string
mafeuille = activesheet.name[/COLOR]    
Sheets("Donnees").Select
    Columns("B:B").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("D:D").Select
    Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Sheets([COLOR="Red"]mafeuille[/COLOR]).Select
End Sub

Cependant à la place de "Sheets("feuil1").Select" j'aimerais avoir le nom de la dernière feuille utilisée.

Pas trop compliqué (je pense), mais je suis un pur débutant dans ce domaine 😱

Merci par avance.

Bonjour ozzii

je ne sais pas si j'ai compris, mais tu fais les correction en rouge

 

[ozzii]

Re : macro et nom de feuille

C'est ça, tu as bien compris.
Merci wilfried_42