Copie & Sauvegarde automatique

  • Initiateur de la discussion Initiateur de la discussion toune21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

toune21

XLDnaute Impliqué
Bonjour, le forum

Après plusieurs recherches j'ai trouvé une macro qui fait à peu près ce que je souhaite, voir le fichier joint.

Je souhaiterais qu'il enregistre comme ça Copie Essai 05-02-12 à 12h22mn40 n° Enregistrement
J'ai aussi une MsgBbox
("Votre base de données est sauvegardée sous le nom : " & nom, vbYes + vbInformation, "Copie sauvegarde classeur") évidement il ne met pas le nom du fichier sauvegarder

J'ai activé la macro il à bien enregistré dans le dossier Marie, "05-02-12 à 11h22mn40"

Il active bien la date d'enregistrement (Param A4)
Il n'active pas le compteur (Param A5)

Ma feuille "param" sera Masquée est ce que les macros vont fonctionner ?
Merci de votre aide
Et bon appétit à tous.
 

Pièces jointes

Re : Copie & Sauvegarde automatique

Bonjour Toune,
Il active bien la date d'enregistrement (Param A4)
Non, ça prend uniquement la date et heure avec Format(Now, ...........


essaie avec ceci pour récupérer la cellule A5 de la feuilles "Param"

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" & Format(Now, " dd-mm-yy ""à"" hh""h""mm""mn""ss""") & Sheets("Param").[A5] & ".xls"

(sur une seule ligne)

à+
Philippe
 
Dernière édition:
Re : Copie & Sauvegarde automatique

Re,
Bonjour,
Personnes
J'attendrai demain
Bonne Journée.
Quelle impatience !



voilà comme il me l'inscrit :
05-02-12 à 13h11m,374
et tu as une idée pourquoi mon compteur ne s'incrémente pas.
es-tu certain ?.............je ne vois pas les secondes

essaie avec ce code pour l'incrémentation du compteur
Code:
Sub Sauv()
If Dir(ThisWorkbook.Path & "\", vbDirectory) = "" Then MkDir ThisWorkbook.Path & "\"
    ThisWorkbook.SaveCopyAs ThisWorkbook.Path & .....................
    MsgBox("Votre base de données est sauvegardée sous le nom : .............
    Sheets("Param").[A5] = Sheets("Param").[A5] +1
End Sub

ATTENTION, il y a une erreur ici:
(Now, " dd-mm-yy ""à"" hh""h""mm""mn""ss""")

à modifier cemme ceci
(Now, " dd-mm-yy ""à"" hh""h""mm""mm""ss""")

à+
Philippe
 
Dernière édition:
Re : Copie & Sauvegarde automatique

Bonsoir,
Désolée, je n'étais pas impatiente, j'allais passer l'après midi chez la personne qui en avait besoin.
Ok pour le compteur.
Je n'ai pas trouver comment mettre le nom du fichier devant, parce qu'il enregistre toujours :05-02-12 à 19-30-24
Merci encore.
 
Re : Copie & Sauvegarde automatique

Re,

pour enlever ".xls" à ton nom de fichier utilise ceci:

ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "\" &Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & Format(Now, " dd-mm-yy ""à"" hh""h""mm""mm""ss""") & Sheets("Param").[A5] & ".xls"

à+
Philipe
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
750
Réponses
2
Affichages
905
Retour