Selection multiple de mes Range.select

Bonjour,

Voici ma macro

Code:

---

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 :lol:

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.

Merci
Et comment on fais ça? :weird::)

Salut

Code:

---

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

Citation:

---

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?

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

Code:

---

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

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

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

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

Code:

---

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 ?

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

Code:

---

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

---

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

Bonjour

Mets en pièce jointe un classeur exemple.