Macro excel

Fermé

Yomac76 - 18 nov. 2021 à 12:09
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 21 nov. 2021 à 06:40

Bonjour,

J'essaie de crée une macro sur excel et j'ai un petit soucis. En effet, âpres l'avoir enregistrer j'essaie de la faire fonctionner. Tout va bien au début jusqu'au moment ou il doit me faire un tableau croisée dynamique. J'obtiens un blocage au moment ou il ouvre une autre fenêtre pour me faire le tableau. Le blocage serait au niveau de cette ligne :
" ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"envoi_manuel_OTE_20211118!R1C1:R92C24", Version:=xlPivotTableVersion15). _
CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
"Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion15 "

Mais je ne comprends pas pourquoi ca ne marche pas.
Une petite aide ne serait pas de refus.

Cordialement,

A voir également:

Macro excel
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
21 nov. 2021 à 06:40

Bonjour,

Faute de fichier, difficile de répondre à coup sûr, mais comme visiblement vous avez utilisé l'enregistreur de macro, à chaque création d'un TCD, le code force le nom du TCD avec l'index 1 Il faut donc, avant de créer le TCD, supprimer le TCD existant de la feuille 1.
Comme ceci à titre d'exemple (bien sûr, on peut se passer des "Select" si on connaît le contenu de la macro entière)

    Sheets("Feuil1").Select
    Cells.Select
    Selection.ClearContents
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "envoi_manuel_OTE_20211118!R1C1:R92C24", Version:=xlPivotTableVersion15). _
    CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _
    "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion15

Cdlt

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters