Enregistrer sans la macro

Version imprimable

Bonjour à tous,

Je créé un fichier une fois par jour automatiquement avec une tache planifiée. Mais je voudrais enregistrer le fichier sans les macros.

Comment faire ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
ActiveWorkbook.RefreshAll
 
    ActiveWorkbook.Save
 
    jour = Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "_" & Hour(Now) & "_" & Minute(Now)
    monfichier = "C:\XLS_1\" & "Export" & " " & jour
 
    monfichier = monfichier & ".xls"
 
    ChDir "c:\XLS_1\"
    With Application
    .DisplayAlerts = False
    .EnableEvents = False
    ActiveWorkbook.SaveCopyAs Filename:=monfichier
    .EnableEvents = True
    .DisplayAlerts = True
 
    Set mailobj = CreateObject("Outlook.Application")
    Set mail = mailobj.CreateItem(olMailItem)
 
 
    With mail
    .SentOnBehalfOfName = SentOnName

26/05/2014, 10h40
Kimy_Ire

Salut Devilju69,

Que veux-tu dire par :

Citation:

Envoyé par Devilju69

Mais je voudrais enregistrer le fichier sans les macros.

Tu veux lancer l'enregistrement du fichier selon un événement ?

Cordialement,
Kimy
26/05/2014, 10h44
Devilju69

Je voudrais que lorsque le fichier s'enregistre, ce dernier ne possède pas de macro et soit enregistré en format xls.

Voici :ccool:

Code:

1
2
3
4
5
6
7
8
Sub test_save()
Dim chem As String
 
chem = "C:\Users\...\Desktop\VBA"
 
ActiveWorkbook.SaveAs chem & "\save.xlsx", FileFormat:=51
 
End Sub

Cordialement,
Kimy

26/05/2014, 11h01
Devilju69

Merci beaucoup ;)