Discussion :

[freyliss]

Bonjour,

Voilà, lorsque je lance ma macro, cela doit créer un PivotTable.
Jusque là ça va, afin de le paramétrer au mieux pour le nom de mon fichier je le stock dans une variable ici Nom, mon problème se pose lorsque mon fichier comporte plussieur avec des espaces par exemple "Resultat des ventes.xls" cela me marque l'erreur suivante :
runtime error'5':
Invalid procedure call or argument

Par contre si je l'appelle Resultatdesventes.xls en attaché cela passe tout seul.

voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Nom = ActiveWorkbook.Name
 
''''''''''''''CREATION DE LA PIVOT TABLE'''''''''''''''''''
    Workbooks(Nom).Worksheets("PivotTable").Activate
    Workbooks(Nom).Worksheets("PivotTable").Cells.Select
    Selection.Delete Shift:=xlUp
 
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'GR55'!R1C1:R65000C22").CreatePivotTable TableDestination:= _
        "[" & Nom & "]PivotTable!R4C1", TableName:="PivotTable1", DefaultVersion:= _
        xlPivotTableVersion10

Merc d'avance pour vos réponses

[zazaraignée]

Sur quelle ligne s'arrête le programme quand tu as cette erreur ?

[freyliss]

Sur ce bloc en entier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "'GR55'!R1C1:R65000C22").CreatePivotTable TableDestination:= _
        "[" & Nom & "]PivotTable!R4C1", TableName:="PivotTable1", DefaultVersion:= _
        xlPivotTableVersion10

[mordrhim]

Tu as oublié des simples quote ^^
Pour le cas où ton classeur a des espaces il faut mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TableDestination:= _
        "'[" & Nom & "]PivotTable'!R4C1"

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TableDestination:= _
        "[" & Nom & "]PivotTable!R4C1"

Normalement ça devrait résoudre ton problème.

[freyliss]

Oui tu as raison,je suis un peu étourdie parfois
Et le problème et que plus on regarde le code et moins on arrive à trouver l'erreur qui est desfois toute bête merci de votre aide