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 ?

[guibou69]

Tu me parle de ta réponse d'ouvrir un classeur temporaire pour y coller mes tableau dans une feuille pour que mon enregistrement en pdf marche?

Eh bah oui et je l'ai lu et j'ai demandé comment on faisait ça. Sinon j'ai corrigé mon code pour les incompréhensions

[Daniel.C]

Excuses, je n'avais pas compris que la réponse m'était destinée. Il y a encore une ligne en erreur :

Code :

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

b = "X ch var"r

A part ça, est-ce que tu veux une page par plage sélectionnée ou une page en tout, et dans ce cas, comment les disposer ?

[guibou69]

Il me faut les tableaux sur 2 pages différentes ouai
pas de disposition particulière

[Daniel.C]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro6()
    Dim Wbk As Workbook
    Set Wbk = Workbooks.Add(1)
    ThisWorkbook.Sheets("charge variable").Range("A4:Y22").Copy Wbk.Sheets(1).[A1]
    Wbk.Sheets.Add after:=Wbk.Sheets(1)
    ThisWorkbook.Sheets("X ch var").Range("A4:Y16").Copy Wbk.Sheets(2).[A1]
    Fname = Application.GetSaveAsFilename(chemin & "\PP Op France", "PDF Files (*.pdf), *.pdf")
    Wbk.ExportAsFixedFormat xlTypePDF, Fname, xlQualityStandard, , , , , False
    Wbk.Close False
End Sub

[guibou69]

Bonjour,

Le code ne marche pas. Il ne prends prends en compte qu'un seul tableau dans sa sélection, donc dans mon pdf j'ai 1 tableau au lieu de 2.
Et par contre je n'arrive pas à ce qu'il garde ses largeur de colonne.
Si je ne suis pas assez claire n'hésitez pas à me demander de reformuler

Merci d'avance

Cordialement

[Daniel.C]

Bonjour

Mets en pièce jointe un classeur exemple.