Discussion :

[Marine38500]

Bonjour,

j’aimerais appliquer une macro à un autre fichier Excel, cependant un message d’erreur apparait quand je veux l’exécuter : « »
J’ai activer le solveur, comme c’était indiqué dans les autres forum, mais rien n’y fait …
Pouvez-vous m’aider s’il vous plait ?

Voici la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro_PG1bis()
'
' Macro_PG1bis Macro
'
 
'
    With Work
    Sheet ("Feuil3")
    .PivotTables("Tableau croisé dynamique2").PivotFields ( _
        "Prod. Hier. PG1")
        .Orientation = xlPageField
        .Position = 1
    End

Merci d’avance,

Marine.

[XLRATOR]

Bonsoir Marine,
Je suppose que c'est une macro que vous auriez enregistré, mais peut être par inadvertance vous auriez modifié le code de façon incorrecte éssayez plutôt avec ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Macro_PG1bis()
'
' Macro_PG1bis Macro
'
 
'
With WorkSheet ("Feuil3")
.PivotTables("Tableau croisé dynamique2").PivotFields ("Prod. Hier. PG1")
.Orientation = xlPageField
.Position = 1
End With
 
End Sub

[Marine38500]

Bonjour,

merci de votre réponse si rapide, j'ai changé la syntaxe comme vous me l'avez indiqué mais le même message apparait, et le mot Worksheet et surligné en bleu.... Savez vous ce que cela signifie ?

Merci d'avance,

Marine.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Sub Macro_PG1bis()
 
' Macro_PG1bis Macro
'
 
'
    With Worksheet("Feuil1")
    .PivotTables("Tableau croisé dynamique1").PivotFields ("Prod. Hier. PG1")
    .Orientation = xlPageField
    .Position = 1
    End With

[electrons]

Bonjour,

Le code devrait être du style

Code :

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

1
2
3
4
5
With Worksheets("Feuil1").PivotTables("Tableau croisé dynamique2")
    .PivotFields("Prod. Hier. PG1")
    .Orientation = xlPageField
    .Position = 1
End With

A+

[Marine38500]

Merci beaucoup, tout fonctionne parfaitement maintenant