Discussion :

[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.

[Patrice740]

Bonjour,

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

Code :

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

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

[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

[Patrice740]

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

[JJ_67700]

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.