Discussion :

[gilou1301]

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 :

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

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,

[fring]

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 :

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

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

• au format xlsx (sans macros)
  

  Code :

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

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

• au format xlsm (avec macro)
  

  Code :

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

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

[kiki29]

Salut, sans oublier XLSB

Code :

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

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

Pour info voir Le format openXML

[gilou1301]

Bonjour,

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