Discussion :

[babybell]

Bonjour le forum
dans un programme, la sauvegarde automatique ne fonctionne pas, même avec

Code :

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

Application.DisplayAlerts = False

Voici un bout de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Facturation\" & année & "\" & titre & "\" & zoneA & mois & année & ".csv" , FileFormat:=xlCSV, CreateBackup:=False
 
‘Défilement proframme
 
Application.DisplayAlerts = False
ActiveWorkbook.Close True
 
'LA EXCEL ME DEMANDE SI JE VEUX RE-ENREGISTRER MON FICHIER
 
ChDir "C:\Facturation\" & année & "\" & titre
Workbooks.Open Filename:="C:\ Facturation\" & année & "\" & titre & "\" & zoneA & mois & année & ".csv"

Cela est-il du au .csv ou à autre chose ?

Merci de vos lumières

[DeaD78]

Bonjour,

C'est bien bizarre tout ça

Perso, je viens de tester avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
 
Workbooks.Add
'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\andre.dorian\Bureau\test.csv", FileFormat:=xlCSV, CreateBackup:=False
 
'Application.DisplayAlerts = False
ActiveWorkbook.Close True
 
'ChDir "C:\Documents and Settings\andre.dorian\Bureau"
'Workbooks.Open Filename:="C:\Documents and Settings\andre.dorian\Bureau\test.csv"
 
End Sub

Et ça marche parfaitement.

Que je mette le DisplayAlerts à False ou qu'il reste en commentaire, le programme ne me demande pas si je veux sauvegarder ou quoi que ce soit. J'ai mis l'ouverture du fichier en commentaires aussi vu qu'on en a pas besoin mais ça marche très bien avec aussi.

Bref, je ne vois vraiment pas.

A tout hasard, sous quelle version d'Excel es-tu ?

[babybell]

Bonjour DeaD78

Je suis sous Excel 2000

[babybell]

Je viens de recommencer avec ce code, idem

Code :

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

1
2
3
4
5
6
7
8
9
 Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\test.csv", FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWorkbook.Close True
ChDir "D:\"
Workbooks.Open Filename:="D:\test.csv"
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\test.txt", FileFormat:=xlText, CreateBackup:=False

Je te met en PJ une copie d'écran

[babybell]

Bonjour LeForestier

Nos messages se sont croisés. cela fonctionne bien;

Merci à vous deux

bonne journée

[LeForestier]

Si ton problème est résolu, oublie pas le bouton ..

[DeaD78]

Ben dis donc, est-ce une particularité d'Excel 2000 ?

Je suis sous Excel 2003. Bon, tu ne m'avais pas dit que c'était pour un écrasement de fichier et non une simple sauvegarde. Du coup, sans le DisplayAlerts = False, j'avais aussi la fenêtre. Mais comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
Application.DisplayAlerts = False
 
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\andre.dorian\Bureau\test.csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close True
 
'ChDir "C:\Documents and Settings\andre.dorian\Bureau"
'Workbooks.Open Filename:="C:\Documents and Settings\andre.dorian\Bureau\test.csv"
 
Application.DisplayAlerts = True
 
End Sub

Cela marche parfaitement.

Bref, quelqu'un sait-il si c'est propre à Excel 2000 ?

EDIT : oubliez, j'ai rien dit... Le focus est par défaut sur "Non" lors de la demande d'écrasement. Du coup avec un DisplayAlerts à False....

[LeForestier]

Bonjour,
essaye en ajoutant..

Code :

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

1
2
    ActiveWorkbook.Saved = True
    ActiveWorkbook.Close

A+

[babybell]

encore moi, désolé.
Quand je lance, cela se plante tout de suite

Code :

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

ActiveWorkbook.Name = "test" & Num & ".csv"

sur .Name

Motif : Erreur de compilation:
Impossible d'affecter à une propriété en lecture seule

aurais-je oublié quelque chose ?

[babybell]

J'ai résolu mon problème en passant par une zone intermédiaire.

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
16
17
18
19
20
21
    Workbooks.Add
    nom = "Test"
    Application.DisplayAlerts = False
 
    ChDir "D:\"
    ActiveWorkbook.SaveAs Filename:="D:\Temp.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
 
    Windows("SAV_CSV.xls").Activate
    Range("A1").Select
    Selection.Copy
    Windows("Temp.xls").Activate
    Range("B2").Select
    ActiveSheet.Paste
 
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="D:\" & nom & ".csv", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
 
    Workbooks.Open Filename:="D:\" & nom & ".csv"
    ActiveWorkbook.SaveAs Filename:="D:\" & nom & ".txt", FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close

Merci encore de votre aide

[LeForestier]

Tu t'en est peut-être sortit avec ce système mais évite les activate et select successif..
Remplace..

Code :

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

1
2
3
4
5
6
   Windows("SAV_CSV.xls").Activate
    Range("A1").Select
    Selection.Copy
    Windows("Temp.xls").Activate
    Range("B2").Select
    ActiveSheet.Paste

par

Code :

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

   sheets("SAV_CSV.xls").Range("A1").Copy sheets("Temp.xls").Range("B2")

juste un petit conseil..
A+

[babybell]

Merci LeForestier du conseil.

Bonne soirée