Sauvegarde non automatique

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

Code:

---

Application.DisplayAlerts = False

---

Voici un bout de mon code :

Code:

---

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

Bonjour,

C'est bien bizarre tout ça 8O

Perso, je viens de tester avec :

Code:

---

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 ?

Bonjour DeaD78

Je suis sous Excel 2000

Bonjour,
essaye en ajoutant..

Code:

---

1 2	ActiveWorkbook.Saved = True ActiveWorkbook.Close

---

A+

Je viens de recommencer avec ce code, idem

Code:

---

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

Bonjour LeForestier

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

Merci à vous deux

bonne journée

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

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

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:

---

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....

désolé LeForestier, mais après quelques tests, cela ne fonctionne pas comme il faut.

En effet, entre

Code:

---

1 2 3

Workbooks.Add Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\test.csv", FileFormat:=xlCSV, CreateBackup:=False

---

et

Code:

---

1 2 3 4 5 6

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 fais des modifs sur le fichier .csv.
avec ton code

Code:

---

1 2	ActiveWorkbook.Saved = True ActiveWorkbook.Close

---

le fichier se ferme bien, sans enregistrer les modifs

Re,

Je suis en train d'halluciner là 8O

Oubliez mon "EDIT" précédent. Le problème du DisplayAlerts à False c'est qu'il prend la réponse par défaut de la boîte de dialogue, la réponse ayant le focus dans notre cas étant "Non pas touche, écrase pas !".

Bref, c'est vraiment louche vu que je viens de faire :

Code:

---

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

Sub test()   Application.DisplayAlerts = False   Workbooks.Add Range("A1").value = "Test" 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

---

Et là, pas de fenêtre de "reproches" grâce au DisplayAlerts et en plus mon fichier vierge en A1 a bien été écrasé avec un où "Test" est présent en A1.

Bref, teste ce bout de code juste en changeant les chemins. Laisse un seul et même DisplayAlerts comme je l'ai mis et dis voir si ça marche. Dans le cas contraire, c'est vraiment un problème Excel 2000...

Euh, babybell, tu dois faire les modifs avant de sauvegarder et pas après sinon ça ne risque pas de marcher :mouarf:

Bref, c'est avant

Code:

---

ActiveWorkbook.SaveAs Filename:="D:\test.csv", FileFormat:=xlCSV, CreateBackup:=False

---

que tu dois faire tes modifs.

En tout cas, j'aimerais bien qu'on m'explique pourquoi lors de mon test je n'ai pas besoin de mettre un Saved à True. Je veux bien virer la fenêtre d'écrasement avec mon DisplayAlerts mais pourquoi le programme prend "Oui" comme réponse par défaut ?

babybell
Y a quelque chose que je comprend pas...
entre..

Code:

---

Workbooks.Add

---

et...

Code:

---

1 2	Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="D:\test.csv", FileFormat:=xlCSV, CreateBackup:=False

---

Qu'y a t-il comme modif ???? tu ouvre un nouveau classeur et tu l'enrégistre directement sous un autre nom et type, que voudrais-tu qu'il y ai dedans ??:calim2:

Effectivement, comme me l'a suggéré DeaD78, j'ouvre mon nouveau fichier, j'inscrit mes données et je ne sauvegarde qu'à la fin.
J'avais fait ce code dans cet ordre car je pensais ouvrir plusieurs fichiers en même temps (comme je l'ai fait une fiois dans Word, et les sauvegarder avec le bon nom au fur et à mesure.
Mais comme je n'en crée qu'un seul, il n'y a pas de problème.


merci encore à vous deux

Je viens de me replonger dans mon programme, et contrairement à ce que j'ai dit avant, j'ai besoin d'enregistrer mon nouveau fichier sous un autre que celui qui se fait lorsque je fais

Code:

---

Workbooks.Add

---

Effectivement, je n'arrête pas de faire des appels au programme source pour copier des données et aux . csv pour les coller.

Comme je fais cela plusieurs fois, le nom des classeurs ouverts n'étant pas toujours les mêmes, je suis bien embêté pour copier comme il faut mes données.

Peux-tu développer un peu plus clairement ce que tu veux faire ?

Pour l'instant, tu as un Workbook "principal" où ta macro est présente. Que veux-tu faire après exactement ? Veux-tu avoir un seul fichier .csv où tu veux coller des données de ton classeur "principal" ou veux-tu avoir plusieurs fichiers .csv différents ?

Je n'ai pas très bien compris en fait, il faudrait plus de précisions sur ce que tu souhaites.

Comme ça, au pifomètre, vu que je n'ai rien compris, je dirais qu'il faudrait faire une boucle pour ouvrir les fichiers un par un puis les sauvegarder. Ensuite, tu passes au second etc.

Bref, dans l'attente d'une réponse, il se fait faim donc je vais aller déjeuner :mouarf:

Pas besoin de les sauver, tu doit savoir sous quel nom tu les sauveras quand les modif seront faite.. Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim Num As Integer Num = 1 Workbooks.Add ActiveWorkbook.Name = "test" & Num & ".csv" Num = Num + 1 Workbooks.Add ActiveWorkbook.Name = "test" & Num & ".csv" 'Faire toutes les modif/ajout etc.. dans tout les classeurs. 'Ensuite tous les sauver. '........

---

A+
Edit, ça rejoint plus ou moins ce que dit Dead, je n'avais pas vu sont poste.

Merci LeForestier, c'est exactement ce qu'il me fallait.
Merci aussi à DeaD78(j' espère que tu as bien déjeuné).

Bon après-midi à tous

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

Code:

---

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 ?

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

Code:

---

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

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

Code:

---

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:

---

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

---

juste un petit conseil..
A+