Explication d'une erreur !

[infogeo]

Salut!

Alors voila je dois reprendre le code de quelqu'un et il y a une erreur .... ca marche pas -_-

C'est à ce niveau la:

Set Maplage = Sheets("default").Range("A1").CurrentRegion

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Maplage).CreatePivotTable _
        TableDestination:="", TableName:="TCD4", _
        DefaultVersion:=xlPivotTableVersion12

Auriez vous une idée de a quoi ca pourrait etre du ?
Je pense que c peut etre possible que c parce que l'adresse du fichier à changer de son endroit de départ .... mais bon j en suis pas sur.
Je me dis que peut etre que c'est une erreur que vous connaissez ...

voila la fenetre d'erreur:
d9733830a680f35d3a5e219086796f68.png

 

[MJ13]

Re : Explication d'une erreur !

Bonjour Infogeo

Tu peux essayer ce code:

Sub test()
 Maplage = ActiveSheet.Range("A1").CurrentRegion.Address
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Maplage).CreatePivotTable _
        TableDestination:="", TableName:="TCD4", _
        DefaultVersion:=xlPivotTableVersion12
End Sub

 

[infogeo]

Re : Explication d'une erreur !

cool il m'a pas mis de message d'erreur, merci !