Bonjour,
je voudrais copier 2 onglets dans un nouveau classeur.
ThisWorkbook.Worksheets("Results").Copy 'Before:=WkbExport.Sheets(1) 'je crée le classeur cible par export d'un onglet
Set WkbExport = ActiveWorkbook 'ca ne sert probablement à rien
WkbSource.Sheets(AdditionalTab).Copy After:=WkbExport.Sheets(1) 'je copie le deuxième onglet dans le classeur cible.
(sans rire, je n'ai pas changé les noms pour vous )
(par contre, j'ai ajouté les commentaires)
Mon problème, c'est que je souhaiterais que les formules (et le tableau croisé dynamique) de l'onglet AdditionalTab soient copiés strictement, et plus exactement que les noms des références des formules (et la plage de donnée du TCD) soient recopiés lettre pour lettre, sans faire de changement pour pointer sur le classeur source.
Il y a une petite option dans la méthode copy pour faire ca ?
J'ai testé - sur les conseils de mon ami Google - d'ajouter un truc du genre :
With Sheets(AdditionalTab)
.Range("A1:S99").Formula = WkbSource.Sheets(AdditionalTab).Range("A1:S99").Formula
End With
Mais si cela semble bien fonctionner pour les formules, le tableau croisé dynamique fait de la résistance : il reste lié au classeur source. (le bougre)
Bon, j'ai essayé en écrivant directement le tableau croisé dynamique avec des formules, du coup, ca marche bien. Mais je crois qu'ils sont attachés à leurs tableaux croisés...