macro

Question

Dans une macro, j'ai imposer un enregistrement sous une valeur de cellule et puis quitter, mais lorsque je r?ouvre ce dossier, son enregistrement est bon mais garde l'ancien dans le dossier que j'avais ouvert, comment puis-je faire éliminer l'ancien qui avais une l'ancienne dénomination ..

La macro que j'ai créé enregistre chaque fois sous un nouveau nom, et le but est d'éliminer le premier qui a été ouvert et  de garder le nouvel enregistrement qui a été réactualisé.

 

Je te remercie beaucoup, Vicou@swing.be 
 8-)

BasicInstinct · Answer

kill MonFichier

cs_vicou · Answer

beatrice

cs_vicou · Answer

------------------------
 Réponse au message :		  
-------------------------------

kill MonFichier, merci pour la réponse, mais avec la fonction kill, je n'arrive pas supprimer le fichier car il change de noms a chaque fois que je l'enregistre, pourrais tu m'aider dans l'élaboration de la formule complete car en vba je débute et dans ma macro, je ne comprends pas comment lui donner le nom du fichier qui est a supprimer

cs_florian42 · Answer

Vicou, 

Si j'ais bien compris le nom du fichier est fonction de la valeur d'une cellule particulière...

en tout debut de ta macro:

monfichier= LeCheminDuDossier & "" & Worksheets(en question).Cells(en question)

....code
....code
....code

Kill MonFichier

monfichier= LeCheminDuDossier & "" & Worksheets(en question).Cells(en question)

Enregistrement.

A qq détail près ca doit marcher en VBA ( CE code est en VB...

Repond a ce post si tu bloque encore

Florian

cs_vicou · Answer

-----------------------------
 Réponse au message :		  
-------------------------------

Vicou, 

merci de m'aider, mais je ne vois pas comment imposer le nom du fichier dans ma macro car a chaque ouverture, donc ancien enregistrement son nom change, alors comment lui imposer un nom? ac ce fichierr qui doit disparaitre

cs_Danzas · Answer

j'espere avoir compris ta question et etre clair :

sub enre_eff ()

Range("B2").Select 'Cellule qui acceuil le nom du fichier actuel
ActiveCell.Value = ActiveWorkbook.Name 'fichier actuel
Range("B3").Select  'Sélectionne la cellule contenant le nom de ton nouveau fichier
ActiveWorkbook.SaveAs Filename:= _
        "C:\Compte\Compte" & ActiveCell.Value, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False ' enregistre le nouveau fichier
Range("B2").Select  'Reselectionne ta cellule contenant le nom de l'ancien fichier
Kill "c:\compte\compte" & ActiveCell.Value 'Efface l'ancien fichier

end sub

il ne te reste plus qu'a mettre un if pour tester si la cellule n'est pas vide et dans ce cas la fait apparaitre un message box signifiant que le fichier de destination n'est pas mentionné

bon courage

cs_Danzas · Answer

j'espere avoir compris ta question et etre clair :

sub enre_eff ()

Range("B2").Select 'Cellule qui acceuil le nom du fichier actuel
ActiveCell.Value = ActiveWorkbook.Name 'fichier actuel
Range("B3").Select 'Sélectionne la cellule contenant le nom de ton nouveau fichier
ActiveWorkbook.SaveAs Filename:= _
"C:\Compte\Compte" & ActiveCell.Value, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False ' enregistre le nouveau fichier
Range("B2").Select 'Reselectionne ta cellule contenant le nom de l'ancien fichier
Kill "c:\compte\compte" & ActiveCell.Value 'Efface l'ancien fichier

end sub

il ne te reste plus qu'a mettre un if pour tester si la cellule n'est pas vide et dans ce cas la fait apparaitre un message box signifiant que le fichier de destination n'est pas mentionné

bon courage

cs_jmluc · Answer

Je pense que si tu gardais toujours le même nom pour ton fichier tu écraserais l'ancien et donc il serait toujours à jour...
Sinon si tu es obligé de changer le nom tu en registres ton nom de fichier dans un fichier text ou ini et quand tu ouvres ta macro tu vas lire le nom du fichier.
Maintenant si c'est le fichier qui contient ta macro que tu dois ouvrir sans en connaître le nom...alors il faut que tu crées un excel de lancement qui te sers uniquement à gérer l'ouverture...
jean-marc.lucien@acoss.fr

cs_florian42 · Answer

Vicou,

MonFichier= ActiveWorkbook.Path & "" & ActiveWorkbook.Name

enregistrement 

Kill MonFichier

Te permettra de récuperer le chemin du fichier AVANT le nouvel enregistrement.

Macro

9 réponses

Discussions similaires