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