Discussion :

[MyJero]

Bonjour,

J'ai un fichier xlsm dont une des macros doit créer un fichier .xls tout simple (qui ne contient que quelques lignes/colonnes sans aucune formule) et l'envoyer par email.

Voilà la partie de code concernée par la création du fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim tempWb As Workbook
    Dim tempFilePath As String
    Dim fileName As String
 
    [.........]
Set newWb = Workbooks.Add
    tempFilePath = Environ$("temp") & "\"
    With newWb 
        oneSheet.Cells.Copy
        .Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
         .Worksheets(1).Range("A1").Select
        .Title = "un nom"
        .SaveAs tempFilePath & .Title & ".xls"
    End With

Malheureusement l'extension que j'ai rajouté ".xls" ne change visiblement pas le format car je reçois le message suivant

"Le format et l'extension du fichier de "........xls" ne correspodent pas. Le fichier peut présenter un risque ou avoir été endommagé. Ne 'louvrez pas, à moins que la source soit fiable. Voulez-vous quand même l'ouvrir ?"

or l'équipe devant recevoir ce mail/fichier m'a expliqué qu'il lui faut un .xls impérativement (pas de .xlsm) sinon son process ne fonctionne pas bien...

Comment faire ?

Merci pour votre aide

[issoram]

Bonjour,

Il faut spécifier le format:

Code :

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

1
2
3
.SaveAs tempFilePath & .Title & ".xls", fileformat:=xlExcel8
'ou 
.SaveAs tempFilePath & .Title & ".xls", fileformat:=56

[MyJero]

Parfait. Merci pour ton aide et ta réactivité !