Exporter en xls une seule feuille de mon classeur

Bonjour,

Malgré une lecture, que je pense attentive, du forum, je n'arrive toujours pas à exporter en xls une feuille qui s'appelle "Proposition" de mon classeur "Produits.xlm".
Il s'agit d'un classeur banal avec quelques macros VBA.
L'exportation en PDF se fait sans problème.
Merci.

Bonjour,

Je suppose que le fichier est un xlsm (xlm ????) et tu veux enregistrer au format xls (Excel 2003)
Exemple :

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim NomCompletDuFichier As String NomCompletDuFichier = "C:\Proposition.xls" Workbooks("Produits.xlsm").Worksheets("Proposition").Copy ActiveWorkbook.SaveAs Filename:=NomCompletDuFichier, FileFormat:=xlExcel8 ActiveWorkbook.Close False End Sub

---

Citation:

---

Envoyé par JJ_67700

Bonjour,

Malgré une lecture, que je pense attentive, du forum, je n'arrive toujours pas à exporter en xls une feuille qui s'appelle "Proposition" de mon classeur "Produits.xlm".
Il s'agit d'un classeur banal avec quelques macros VBA.
L'exportation en PDF se fait sans problème.
Merci.

---

Merci pour votre réponse qui est claire, nette et précise.
Que dois-je mettre comme fileformat pour Excel 365 (ce n'est pas précisé dans la doc Microsoft) ?

jjs

Citation:

---

Envoyé par JJ_67700

Que dois-je mettre comme fileformat pour Excel 365 (ce n'est pas précisé dans la doc Microsoft) ?

---

Excel 365 accepte plusieurs formats, mais les plus courants sont :

• NomCompletDuFichier = "C:\Proposition.xlsx"
  [...]
  [...].FileFormat:= xlOpenXMLWorkbook
  
  
• NomCompletDuFichier = "C:\Proposition.xlsm"
  [...]
  [...].FileFormat:= xlOpenXMLWorkbookMacroEnabled

xlsx: sans macro
xlsm : avec macro

Citation:

---

Envoyé par Patrice740

Excel 365 accepte plusieurs formats, mais les plus courants sont :

• NomCompletDuFichier = "C:\Proposition.xlsx"
  [...]
  [...].FileFormat:= xlOpenXMLWorkbook
  
  
• NomCompletDuFichier = "C:\Proposition.xlsm"
  [...]
  [...].FileFormat:= xlOpenXMLWorkbookMacroEnabled

xlsx: sans macro
xlsm : avec macro

---

Réponse aussi claire, nette et précise que la précédente.
Un énorme merci.