Sauvegarde de fichier excel

Bonjour à tous,

J'ai une petite question sur la sauvegarde d'un fichier excel sur lequel je travaille.
Ce que je souhaite faire:
- je souhaite sauvegarde mon Fichier 1.xlsm en l'état sous un nom qui sera appelé "Extraction litiges - 24/07/2012.xlsm" (la date évoluant en fonction du jour).
- je souhaite, une fois que la sauvegarde a été effectuée avec ce nouveau nom de fichier, pouvoir retravailler sur Fichier 1.xlsm.
- enfin, je souhaite fermer Fichier 1.xlsm".

J'ai donc fait le code suivant:

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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Sub Supprimer_Donnees() Dim a As Variant, Nom As String Dim NomFichier, w As String, NomDefaut As String Dim chemin As String Dim fichier As Variant Dim Ligne As Long Dim Ligne_Total As Long Dim Rw As Range Dim i As Long 'Sauvegarde du fichier Nom = ActiveWorkbook.Name w = " " & Format(Date, "dd mm yyyy") NomDefaut = "Extraction litiges -" & w NomFichier = Application.GetSaveAsFilename(NomDefaut, fileFilter:="Excel Files (*.xlsm), *.xlsm") If NomFichier = False Then MsgBox "Enregistrement annulé." ActiveWorkbook.Close Else On Error Resume Next ActiveWorkbook.SaveAs NomFichier, FileFormat:=52 If (Err.Number > 0) Then MsgBox "Impossible d'ouvrir le fichier" ActiveWorkbook.Close Else Windows(Nom).Open Windows(NomFichier).Close Windows(Nom).Activate 'Reste du code me permettant de travailler sur Fichier1.xlsm 'XXX 'Fin du code me permettant de travailler sur Fichier1.xlsm Windows(Nom).Save Windows(Nom).Close

---

Cependant, comme vous pouvez vous en douter, cela ne fonctionne pas!
Je pense que mon erreur vient des lignes en rouge car il ne ferme pas le fichier "Extraction litiges - 24/07/2012.xlsm" et effectue le reste du code sur celui-ci au lieu de le faire sur Fichier1.xlsm (qui est d'ailleurs fermé).

Je suis donc preneur de toute aide. Merci par avance pour le temps accordé à ma demande. Et je reste bien entendu à votre disposition pour tout complément d'information.

Bonne journée à tous.

PY

Bonjour,

et tu arrives à le sauvegarder ? étonnant vu que le slash "/" et impossible dans les noms de fichier.

si l"erreur vient de la tu ne peux pas la voir directement tu à un

Code:

---

On Error Resume Next

---

devant.

Non, tu as complètement raison, je pensais qu'il s'était sauvegardé mais c'était en fait une version précédente!
Donc, j'ai l'impression qu'il n'y a pas grand chose qui fonctionne dans cette partie de code. En revanche, je n'ai pas bien compris pourquoi tu me parles des slash. Y aurait-il une autre erreur que je n'aurais pas vu?

Dans tous les cas, si vous pouvez m'aider, je suis preneur car un peu coincé malgré mes recherches sur forum.

Merci.

Salut, déjà pour la sauvegarde [F1] SaveCopyAs cela simplifiera le bazar.

Ok, merci pour vos réponses.
Effectivement, le savecopyas paraît plus judicieux, à condition qu'il me laisse bien le fichier d'origine ouvert.
Je vais tester ça de suite.
Merci encore.

tu as dit :

Citation:

---

- je souhaite sauvegarde mon Fichier 1.xlsm en l'état sous un nom qui sera appelé "Extraction litiges - 24/07/2012.xlsm" (la date évoluant en fonction du jour).

---

Or, on ne peut pas save les fichiers avec des slash, si c'est ce que tu as fait. Si non, c'est juste un rappel :p.

- Pour LimsWolf: effectivement, 2 secondes après avoir posté ma réponse, je me suis rendu compte de ce que tu voulais dire. Mais en fait, c'est bon, il ne me met pas de slash dans le format spécifié. Merci en tout cas pour ta réponse.

- Pour kiki29: effectivement, le savecopyas est très pratique. Mais mon problème est qu'il limite trop les possibilités de sauvegarde. En effet, je souhaiterais que l'utilisateur puisse modifier comme il le veut le nom du fichier et le dossier dans lequel il souhaite le sauvegarder.

Ma question reste donc ouverte.
De ce que j'en comprends, il me faudrait simplement la réponse à: comment puis-je ouvrir le fichier original avant de fermer la copie (ou comment puis-je effectuer la copie sans fermer l'original) mais sans utiliser le savecopyas qui est trop restrictif dans mon cas.

Merci à tous.