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

Sybille · 11 Juillet 2018

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 · 11 Juillet 2018

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

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

Sybille

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

Discussions similaires