Problème diffusion Macro

Question

Je travaille sur un projet Excel et je n'arrive pas à expliquer ce qu'il se passe. J'ai réalisé une macro enregsitrée permettant de créer un tableau croisé dynamique. Ce tableau est accessible via un bouton auquel j'ai copié le code de la macro. Ma macro fonctionne très bien sur ma machine mais bloque lors de l'envoie à mes collègues...Ils utilisent pourtant les mêmes versions Windows et Excel... Je recherche une âme charitable qui pourra m'aiguiller sur mon problème.....

Dan · Accepted Answer

Re, dans le code 1 remplace : TableDestination:="" par TableDestination:=.Range("K2") et dans le code 2 remplace : TableDestination:="" par TableDestination:=.Range("P2") Oui. Amicalement...

Dan · Answer

Sans savoir ce qui bloque ... c'est le code ? la dimension du TCD ? Si le bouton fait le TCD, as-tu pensé à effacer le TCD avant de réexécuter le code ? Mets plutôt ton fichier en ligne, ce sera plus facile de répondre Amicalement...

Dan · Answer

Re,

Merci de ton fichier mais tes boutons sont créés avec la barre d'outils "boite de controle" au lieu de "Formulaire". Boutons incompatibles avec excel MAC. Merci de supprimer les deux boutons sur ta feuille et de me renvoyer le fichier.

A te relire

edit Dan : non ok j'ai pu utiliser ton fichier mais essaie de me montrer ce que tu dois avoir comme TCD au final

Dan · Answer

Re,

essaie avec ces deux codes à placer dans un module (pas dans la feuille comme tu l'as fait dans ton fichier) et ensuite dessine les boutons par la barre d'outils "formulaire" et associent les à ces deux macros

Sub fiche_par_equipes()
'Macro dan pour Lacombine le 22/07/2010
    With Sheets("Stats Neocase")
        Set Plage = .Range("A1:F" & .Range("A65536").End(xlUp).Row)
        .PivotTableWizard SourceType:=xlDatabase, _
            SourceData:=Plage, TableDestination:="", TableName:="TCD1"
    With ActiveSheet.PivotTables("TCD1")
        .AddFields RowFields:="Équipe historique"
        With .PivotFields("Type de fiche")
            .Orientation = xlDataField
            .Name = "Nombre de Type de fiche"
            .Function = xlCount
        End With
    End With
    End With
End Sub

Sub fiche_par_cc()
'Macro dan pour Lacombine le 22/07/2010
    With Sheets("Stats Neocase")
        Set Plage = .Range("A1:F" & .Range("A65536").End(xlUp).Row)
        .PivotTableWizard SourceType:=xlDatabase, _
            SourceData:=Plage, TableDestination:="", TableName:="TCD2"
    With ActiveSheet.PivotTables("TCD2")
        .AddFields RowFields:=Array("Intervenant historique", "Type de fiche")
        With .PivotFields("Type de fiche")
            .Orientation = xlDataField
            .Name = "Nombre de Type de fiche"
            .Function = xlCount
        End With
    End With
    End With
End Sub

Si ok n'oublie pas de cloturer le fil en cliquant sur le V de couleur vert à coté du bouton Editer

Amicalement