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

Sybille

XLDnaute Junior
Bonjour (ou re-bonjour) :oops:,

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! o_O

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??? :confused:

A l'avance merci,

Sybille
 

Dranreb

XLDnaute Barbatruc
Vous auriez peut être intérêt à charger au début votre liste dans un tableau VBA 2D
VB:
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
 
Dernière édition:

Discussions similaires