[RESOLU] Enregistrement d'un onglet dont le nom se trouve dans une cellule

[Sybille]

Bonjour (ou re-bonjour) 😳,

Dans une de mes macros que je suis en train de préparer, j'ai besoin d'enregistrer un onglet.

j'utilise donc : Set copie = ActiveSheet (ça enregistre bien l'onglet actif)

Sauf que ça n'est pas l'onglet actif que je souhaite enregistrer mais un onglet dont le nom est dans l'onglet liste en A5.

J'ai donc écrit : Set copie = Worksheets([Liste!A5].Value)... ça ne fonctionne pas! 😵

Pourtant depuis ce matin je mets en application la solution que Dranreb m'a donné ce matin et ça fonctionne bien!!! sauf là!

Qu'est ce que j'ai encore écrit de travers??? 😕

A l'avance merci,

Sybille

 

[Dranreb]

Vous auriez peut être intérêt à charger au début votre liste dans un tableau VBA 2D

Dim T() As Variant, L As Long
T = [Liste!A4].CurrentRegion.Value
For L = 2 To UBound(T, 1)
   ThisWorkBook.Worksheets(T(L, 1)).Copy
   With ActiveSheet.UsedRange: .Value = .Value: End With
   ActiveWorkBook.SaveAs T(L, 5)
   ActiveWorkBook.Close
   Next L