Discussion :

[phal2ip]

Bonjour à tous
Voilà j'ai une petite question, je voudrais simplement savoir si c'est faisable ou non et si oui comment.
Voici ma question :
J'ai plusieurs fichiers contenant les données de plusieurs commandes (1 commande par onglet avec entre 50 à 200 commandes/onglet par fichier).
J'y ai intégré un onglet caché où je mets toutes mes données...
Je voulais savoir s'il était possible de changer le nom du fichier juste avant de le quitter en lui ajoutant un mot dans son nom.
exemple : fichier original "test.xls"
Quand toutes les commandes ont été passées, il devient "test clos.xls".
Puis dès que l'on rajoute une commande à faire il redevient "test.xls"
Je pensais ajouter dans mon onglet caché un nombre de commande à faire et un nombre de commande faites puis comparer les 2 nombres. S'ils sont égaux ont mets clos sinon on laisse le nom tel quel.
J'espère m'avoir fait comprendre dans mon explication un peu biscornue.

Merci d'avance

[Access Newbie]

Bonjour,

Avec quelque chose dans cet esprit cela devrait être possible.
(a mettre dans workbook)

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
If MettreIciLaConditionQuiVaBien Then
    ActiveWorkbook.Close SaveChanges:=True, Filename:="c:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_clos.xls"
End If
 
End Sub

[phal2ip]

Merci pour cette réponse rapide qui marche à merveille mais qui me créé un 2ème fichier avec le nom + clos et il y a donc 2 fichiers dans mon répertoire.
Moi je voudrais qu'il n'en reste qu'un à chaque fois.
Soit il s'appelle "test clos.xls" si tout est commandé soit "test.xls".
Merci encore

[phal2ip]

Je viens aussi de remarquer que si on le rouvre sans rien y modifié et qu'on le referme il créé un 3ème fichier avec "clos clos.xls"...

[Krovax]

Ben oui c'est normal il prend le nom et rajoute _clos a la fin du nom
Tu peux faire un test avec instr savoir si il y a deja un _clos

Code :

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

1
2
3
if instr((ActiveWorkbook.Name,_clos)<>0 then
 ActiveWorkbook.Close SaveChanges:=True, Filename:="c:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_clos.xls"
End If

Et même a la main tu ne peux pas modifier le nom d'un fichier excel en étant sous excel (en tout cas je ne sais pas faire).
Par contre une fois la sauvegarde faites tu peu supprimer le fichier sans le clos
(je n'ai pas testé alors lance le en mode as a pas et dans un fichier indépendant )
Et vérifie qu'il n'y a pas d'erreur de frappe

Code :

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

1
2
3
4
if instr((ActiveWorkbook.Name,_clos)<>0 then
 ActiveWorkbook.Close SaveChanges:=True, Filename:="c:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_clos.xls"
kill ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, instr(ActiveWorkbook.Name,"_clos") - 1) & ".xls"
End If

a ta place je ferais un
msgbox ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, instr(ActiveWorkbook.Name,"_clos") - 1) & ".xls"
Pour voir si tu va bien supprimer le bon