Bonjour à tous !!!
Je vous écris car je deviens folle !
Cela va bientôt faire un mois que j'essaie de me débrouiller seul sur le ring avec VBA sur Excel !
Et je ne suis qu'une petit débutante dans le domaine ...
Je vous explique mon problème : j'ai une feuille de données mensuelles immeeeeense de mesure météo (une mesure par seconde !).
Je voudrais créer par macro un tableau croisé dynamique qui synthétise cette banque de données en ne mettant qu'une ligne par jour.
J'ai créé ma macro mais elle plante dès le début !
Voilà le début de mon code (en rouge les endroits où ça plante habituellement) :
Range("A1:O" & Range("O65536" ).End(xlUp).Row).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Données'!A1:O65536" ).CreatePivotTable TableDestination:= _
"'[Météo.xls]Tableau synthétique'!R1C1", TableName:= _
"Tableau croisé dynamique1"
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddFields RowFields:= _
Array("Date", "Données" )
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"Température" & Chr(10) & "extérieure (°C)" )
.Orientation = xlDataField
.Caption = "Moyenne de Température" & Chr(10) & "extérieure (°C)"
.Position = 1
.Function = xlAverage
End With
Avez-vous une idée de la source de mon problème ?
Merci d'avance à tous !
Mélie