Workbooks.Add => Format .xlsx

Bonjour

J’ai une macro qui copie une feuille d’un fichier .xlsm vers un nouveau fichier sauvegardé en .xlsx.

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim ReportWB As Workbook Set ReportWB = Application.Workbooks.Add ReportWB.SaveAs Filename:=”C:\Users\Test.xlsx”, FileFormat:=51   'Suppression des onglets inutiles While ReportWB.Sheets.Count > 1 ReportWB.Sheets(1).Delete Wend   ThisWorkbook.Sheets("SheetToCopy").Copy After:=ReportWB.Sheets(1)

---

Or, ce code produit une erreur car même si ReportWB est sauvé au format .xlsx, il a été créé intialement au format .xls donc ne possède pas le même nombre de colonnes, il ne peut pas accueillir la feuille « SheetsToCopy ».

Comment faire que lors de la méthode Workbooks.Add, le classeur soit déjà en .xlsx ?

Merci d’avance.

bonjour,

a chaud, je dirais de d'abord vérifier dans les options de sauvegarde que le format par défaut est bien excel 2007 (*.xlsx") et aussi qu'il ne soit pas en mode compatibilité.

Ah merci beaucoup, en changeant le format dans les options Excel ça fonctionne. :)
Sinon il n’y aurait pas une autre solution via le code pour éviter que les utilisateurs n’aient à modifier leurs options ?

euh, si je ne m'abuse cela doit etre ceci

Code:

---

application.defaultsaveformat=xlworkbookdefault

---

Excellent, ça fonctionne très bien. :D
Donc j’aurai juste à changer le format de sauvegarde puis remettre le format de l’utilisateur avant la fin de la macro.

Merci beaucoup pour ton aide ! Bonne journée. :)