Exporter fichier excel en fichier excel : Macro

Bonjour a tous,

Je voudrais savoir s'il est possible d exporter une partie d un fichier excel en un autre fichier excel. Je m explique:

J ai donc un gros fichier excel avec plusieurs onglets, et sur un des onglets, il y a une partie qui m interesse B5:N46

J ai donc reussi a exporter la partie que je voulais avec le code suivant:

Code:

---

1 2 3 4 5 6

Dim file_name As String file_name = "D\Data\MonFichier.pdf"   ActiveSheet.Range("B5:N46").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=file_name, Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=True, OpenAfterPublish:=False

---

Le probleme? C est un tableau assez grand donc en fichier PDF ca ne rend vraiment pas bien. Dans l ideal j aimerai creer un nouveau fichier excel avec que cette partie la B5:N46...

En vous remerciant par avance de votre aide

Le plus simple serait de copier ta zone dans un autre fichier et sauvegarder ce dernier sous format XLs (soit manuellement, soit en vba)

Salut, utilise l'enregistreur de macros pour faire la mise en page, cela va générer des marges, format, centrage, nombre de pages en vertical/horizontal, zoom etc que tu pourras ensuite optimiser/ajuster à la main.

Bonjour,

Tout d'abord merci pour vos reponses.

J'ai donc essaye de creer une macro qui: Creer un nouveau workbook, copy paste les infos que je souhaite, enregistre le nouveau workbook. Mais, quand je veux copier coller les valeurs, je souhaite donc prendre les valeurs du workbook "TP" pour les mettre dans le workbook"Infos"

Sauf que quand j execute le code: Workbooks("D:\Infos").Activate j ai une erreur "Subscript out of range" Run time error 9.

Mais si je mets : Workbooks.Open Filename:="D:\Infos" Cela ouvre mon workbook mais en read only.

Cela veut donc dire que je n ai pas d erreur de typographie, extension ou de nom... Je ne comprends pas l erreur

Merci d avance pour votre aide

Bonjour,

Code:

---

Workbooks("Infos.xlsx").Activate

---

Pour le activate: Pas de chemin + rajouter .xls(x)(m)

Ok merci je vais essayer!