Fileformat en Excel 2010

Bonjour à tous,

J'ai un formulaire qui via code vb s'enregistre automatiquement dans un répertoire avec un nom défini dans le formulaire.
En version 2000, cela fonctionnait parfaitement, mais depuis Excel 2010, il enregistre mais sans extension :?

Voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub firstsave() Dim NF As String NF = Range("Q10").Text If NF = "." Then MsgBox ("ATTENTION, vous n'avez pas tapé un N° de SC !") End Else ActiveWorkbook.SaveAs FileName:="G:\Rdi\Commun\Bd_rda\Sc\SC_Off\SC" & NF, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _ False, CreateBackup:=False MsgBox ("Le fichier XLSX a été sauvé !") End If End Sub

---

Je pense que cela vient de fileformat = xlNormal, mais je n'en suis pa sûr.
quelqu'un a-t-il une idée?

Merci d'avance,

Bonjour,

Depuis la version 2007 il y a plusieurs possibilités d'extension, il faut donc préciser sous quelle forme tu veux sauvegarder ton fichier

• au format xls (compatible avec les anciennes versions d'Excel)
  
  Code:

  ---

  ActiveWorkbook.SaveAs Filename:="G:\Rdi\Commun\Bd_rda\Sc\SC_Off\SC" & NF & ".xls", FileFormat:=xlExcel8

  ---

• au format xlsx (sans macros)
  
  Code:

  ---

  ActiveWorkbook.SaveAs Filename:="G:\Rdi\Commun\Bd_rda\Sc\SC_Off\SC" & NF & ".xlsx", FileFormat:=xlOpenXMLWorkbook

  ---

• au format xlsm (avec macro)
  
  Code:

  ---

  ActiveWorkbook.SaveAs Filename:="G:\Rdi\Commun\Bd_rda\Sc\SC_Off\SC" & NF & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

  ---

Salut, sans oublier XLSB

Code:

---

1 2	ActiveWorkbook.SaveAs Filename:="C:\Transfert\Test.xlsb", _ FileFormat:=xlExcel12

---

Pour info voir Le format openXML

Bonjour,

J'ai testé et ça marche :D :ccool:
Merci pour votre aide.