Macro qui travaille sur une feuille masquée

Bonjour,

Dans mon tableur j'effectue une importation et un filtrage via une macro cependant je souhaite masquer les feuilles où s'effectuent ces 2 opérations puisque l'utilisateur n'en a pas besoin. Ma macro fonctionne uniquement lorsque mes feuilles sont visibles.

La macro s’exécute via le bouton "Importation" dans la feuille "BC Laquage"

Un collage doit se faire dans la feuille "Imp. Logikal Laquage"

Un tri doit se faire dans la feuille "Tri Laquage"

Bonjour,

Commençons au début de ta macro.

Qu'est-ce que tu veux coller dans la cellule ("E5") de la feuille ("Imp. Logikal Laquage") ?

ric

Bonjour Ric,

Je copie manuellement les données à coller

Bonjour,

Masquer les deux feuilles en question ...

Un essai ...

Sub importation()

   Selection.Copy
   Sheets("Imp. Logikal Laquage").Range("E5").PasteSpecial xlPasteValues

   ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort.SortFields.Add Key:=Range _
                                    ("C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
End Sub

ric

J'ai juste supprimé la première ligne, car ma sélection est sur un autre tableur et ça marche !!

Merci beaucoup !

PS: ça donne ça au niveau du code

Attribute VB_Name = "Module1"
Sub importation()

   Sheets("Imp. Logikal Laquage").Range("E5").PasteSpecial xlPasteValues

   ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort.SortFields.Add Key:=Range _
                                    ("C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Tri Laquage").AutoFilter.Sort
      .Header = xlYes
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
End Sub