Discussion :

[Alain777]

Bonsoir, j’ai créé une macro dans un fichier qui est en lecture seule. Lorsque j’enregistre une copie de ce fichier je change son nom. Mon Pb c’est que la macro contenue dans ce nouveau fichier ne fonctionne plus à cause du nom du fichier matrice qui est resté dans cette macro. Je souhaiterais savoir comment récupérer le nom du nouveau fichier que j’ai créé pour pouvoir ensuite l’intégrer à ma macro à la place de « Workbooks("RACINE.xlsm").Worksheets("Feuil1").Activate ».
Merci d’avance pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Macro_TRIER()
Workbooks("RACINE.xlsm").Worksheets("Feuil1").Activate
    Sheets("Feuil1").Select
…
…

[joe.levrai]

Bonjour,

Utilises ThisWorkbook, qui défini le classeur qui contient le code de la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro_TRIER()
ThisWorkbook.Worksheets("Feuil1").Activate
Sheets("Feuil1").Select

ceci étant, serait-il possible de voir la suite de ton code (la procédure Macro_TRIER complète) ? j'ai un petit "pressentiment"

[Alain777]

Bonjour Joe, merci pour ton aide. Biensûr que je peux te montrer la suite de la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Macro_TRIER()
    ThisWorkbook.Worksheets("Feuil1").Activate
    Sheets("Feuil1").Select
    ActiveSheet.Unprotect Password:=""
    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False _
        , AllowSorting:=True, AllowFiltering:=True
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort.SortFields.Add Key:=Range _
        ("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Feuil1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
    False
    ActiveSheet.Protect Password:=""
    Range("AA1").Select
End Sub

[kiki29]

Salut, petit intermède : Balise ton code

[Menhir]

Il suffit de remplacer tous tes ActiveWorkbook par des ThisWorkbook et le tour est joué.