Discussion :

[guibou69]

Bonjour,

Voici ma 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 Macro6()
Sheets("charge variable").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
range("A4:Y22").select
Sheets("X ch var").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
range("A4:Y22").sel
A = "charge variable"
b = "X ch var"r
Sheets(Array(A, b)).Select
Fname = Application.GetSaveAsFilename(chemin & "\PP Op France", "PDF Files (*.pdf), *.pdf")
Selection.ExportAsFixedFormat xlTypePDF, Fname, xlQualityStandard, , , , , False
End Sub

Mon souci est mon "selection" de ma dernière ligne, il ne prends en compte que mon premier range (range("A4:Y22").select) et répercute cette sélection dans mes 2 feuilles alors que dans l'autre feuille la selction est différente. Y aurait il quelque chose pour remplacer mon "selection" et qui ferait justement une double sélection qui prendrait en compte mes 2 range?
Pouvez vous m'aidez svp

[Daniel.C]

Bonjour,

D'après l'aide VBA, "GetSaveAsFilename" est une méthode s'appliquant à une seule feuille ou à un classeur. Si tu veux exporter les deux feuilles au format PDF, copie-les dans un classeur temporaire au préalable.

[guibou69]

Merci
Et comment on fais ça?

[GoFio]

Salut

Code :

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

1
2
3
4
5
6
Sheets("charge variable").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
range("A4:Y22").select
Sheets("X ch var").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
range("A4:Y22").sel

Je ne sais pas si tu as fais une erreur de retranscription, mais il manque ect à la fin de la 2ème sélection

et répercute cette sélection dans mes 2 feuilles alors que dans l'autre feuille la selction est différente.

Tu as écris 2 fois range("A4:Y22") (pour la feuille "charge variable" ainsi que pour la feuille "X ch var") , donc la sélection est la même, non?

[guibou69]

Oh le boulet désolé, voilà le code qui ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro6()
Sheets("charge variable").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
range("A4:Y22").select
Sheets("X ch var").Select
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
range("A4:Y16").select
A = "charge variable"
b = "X ch var"r
Sheets(Array(A, b)).Select
Fname = Application.GetSaveAsFilename(chemin & "\PP Op France", "PDF Files (*.pdf), *.pdf")
Selection.ExportAsFixedFormat xlTypePDF, Fname, xlQualityStandard, , , , , False
End Sub

Et comme dis au départ mon "selcetion" applique le range("A4:Y22").select aux 2 feuilles alors qu'il devrait y avoir 2 sélections différente

[Daniel.C]

Ça t'arrive de lire les réponses qu'on te fait ?