A voir également:
- Changepivotcache vba
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
7 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
le fichier source des données est-il dans le même dossier que le fichier contenant la macro?
si oui, peut-être:
le fichier source des données est-il dans le même dossier que le fichier contenant la macro?
si oui, peut-être:
ActiveSheet.PivotTables("Tableau croisé dynamique2").ChangePivotCache _ ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _ SourceData:= _ ThisWorkbook.Path + "\[" + cstr(cell.Value) + ".xlsx]Feuil1!C1:C27" _ , Version:=6)
bonjour
je suis désolée pour le temps de réponse...
cela fonctionne super je vous remercie
serait il possible au lieu de Feuil1!C1:C27" d'indiquer de sélectionner jusqu'à la dernière cellule non vide ?
Cordialement
Sandie
je suis désolée pour le temps de réponse...
cela fonctionne super je vous remercie
serait il possible au lieu de Feuil1!C1:C27" d'indiquer de sélectionner jusqu'à la dernière cellule non vide ?
Cordialement
Sandie
c1:c27 correspond à la colonne A à AA (27 colones). C:C ne va pas m'aider car je souhaite que la sélection soit faite de A1 jusqu'à AA avec dernière lignes non vides.
Est ce que cela est plus clair ? Quelqu'un peut il m'aider ?
Est ce que cela est plus clair ? Quelqu'un peut il m'aider ?
le fichier est trop volumineux
j'ai fais ceci mais cela me met erreur de compilation depuis la ligne Activesheet.pivottable. où est mon erreur ?
j'ai fais ceci mais cela me met erreur de compilation depuis la ligne Activesheet.pivottable. où est mon erreur ?
Workbooks(cell.Value & ".xlsx").Activate
Dim derniereLigne As Long,
derniereLigne = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
MsgBox derniereLigne
Workbooks(cell.Value & ".xlsx").Sheets("Montant par service").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:= _
ThisWorkbook.Path + "\[" + CStr(cell.Value) + ".xlsx]Feuil1("A1:AA" & derniereLigne)"
, Version:=6)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
A1:AA n'a pas l'air de convenir. j'ai donc essayé ceci
mais j'ai un code erreur la référence n'est pas valide
Workbooks(cell.Value & ".xlsx").Activate
Dim derniereLigne As Long, donnees As Worksheet
derniereLigne = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
MsgBox derniereLigne
Workbooks(cell.Value & ".xlsx").Sheets("Montant par service").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:= _
ThisWorkbook.Path + "\[" + CStr(cell.Value) + ".xlsx]Feuil1!R1C1:R & derniereLigne & C27" _
, Version:=6)
mais j'ai un code erreur la référence n'est pas valide
montre ton code, en utilisant les balises de code (https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code, et indique à quelle ligne se produit l'erreur.
voici mon code :
l'erreur se produit à partir de Activesheet.pivotTables
Je vous remercie
Workbooks(cell.Value & ".xlsx").Activate
Dim derniereLigne As Integer
derniereLigne = Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
Workbooks(cell.Value & ".xlsx").Sheets("Montant par service").Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:= _
ThisWorkbook.Path + "\[" + CStr(cell.Value) + ".xlsx]Feuil1!R1C1:R & derniereLigne & C27" _
, Version:=6)
l'erreur se produit à partir de Activesheet.pivotTables
Je vous remercie