penthorklior
XLDnaute Nouveau
Bonjour
dans une macro j'utilise le code suivant:
Dim der_ligne As Long
Dim myRange As Rang
(nomcompte, nom_sheet sont des variables pour caractériser le nom d'une feuille)
.......
der_ligne = Range("A" & Rows.Count).End(xlUp).Row
........
Worksheets(nomcompte).Select
Range(Cells(2, 1), Cells(der_ligne, 32)).Select
Set myRange = Selection
Worksheets(nom_sheet).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
myRange, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:=ActiveSheet.Range("A7"), TableName:=table_name, _
DefaultVersion:=xlPivotTableVersion14
Cette partie de code fonctionne tres bien sauf quand le nombre de ligne de la plage de donnée qui se trouve sur la feuille nomcompte est supérieur à 65000 (si der_ligne >65000)
ou j'obtiens un message d'erreur "Type de donnée incompatible"
Est ce dû à un blocage de capacité lié à EXCEL ou un problème de dimensionnement de la variable der_ligne
ou autre
Merci de votre réponse
Bon réveillon à tus
dans une macro j'utilise le code suivant:
Dim der_ligne As Long
Dim myRange As Rang
(nomcompte, nom_sheet sont des variables pour caractériser le nom d'une feuille)
.......
der_ligne = Range("A" & Rows.Count).End(xlUp).Row
........
Worksheets(nomcompte).Select
Range(Cells(2, 1), Cells(der_ligne, 32)).Select
Set myRange = Selection
Worksheets(nom_sheet).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
myRange, Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:=ActiveSheet.Range("A7"), TableName:=table_name, _
DefaultVersion:=xlPivotTableVersion14
Cette partie de code fonctionne tres bien sauf quand le nombre de ligne de la plage de donnée qui se trouve sur la feuille nomcompte est supérieur à 65000 (si der_ligne >65000)
ou j'obtiens un message d'erreur "Type de donnée incompatible"
Est ce dû à un blocage de capacité lié à EXCEL ou un problème de dimensionnement de la variable der_ligne
ou autre
Merci de votre réponse
Bon réveillon à tus