Microsoft 365 problème date

pelerin65

XLDnaute Occasionnel
bonjour le forum,

voila, j'ai un fichier "Loc Ng 2023" pour noter des journées de travail.
la feuille "tableau de bord" comporte le numéro de semaine en E6 et la date en F6 afin de filtrer la journée
sur la feuille "Notes Loc Ng" copie le N° de semaine en A12 avec la formule suivante='Tableau de Bord'!$E$6
copie la date en B12 avec la formule suivante "='Tableau de Bord'!$F$6"
ça fonctionne parfaitement.

mon problème est:
j'aimerais créer une sauvegarde avant d'effacer la journée sur la feuille "Tournées" afin de garder une notes du parcours pour une future journée avec le même parcours

j'ai trouvé une macro sur un forum afin de créer la sauvegarde
Sub Archive()
Dim DrLigne

'copie la journée dans la feuille tournées
DrLigne = Sheets("Tournées").Range("B" & Rows.Count).End(xlUp).Row + 1
With Sheets("Tournées")
DrLigne = .Range("A" & Rows.Count).End(xlUp).Row
Range("A12").CurrentRegion.Copy Sheets("Tournées").Range("A" & DrLigne)
End With
End Sub
ca crée bien une sauvegarde.
Lorsque que je veux créer une autre sauvegarde avec une date différente lors de la deuxième sauvegarde ça modifie la date de la première sauvegarde.

je joins le fichier.

je ne suis pas un spécialiste du vba d'où la macro ne doit pas être la bonne ou mal adapté.

j'espère avoir été assez clair
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pelerin,
1- Votre VBA a un mot de passe
2- Il n'est pas utile d'avoir 9000 lignes dans Source, une centaine suffise.
Il passe ainsi sous la barre des 1Mo et peut être déposé tel quel.
( Dans Cjoint les fichiers sont volatiles donc plus accessibles dans quelque temps )
NB: A quoi ça sert de mettre un mot de passe quand vous êtes en phase de développement ?
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Encore un fil pour lequel on aura plus le fichier exemple original qui aura disparu d'ici quelques jours ! Bravo l'esprit de partage avec les visiteurs et les futurs demandeurs.
Je vois que ce bel esprit est encouragé
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
J'ai de gros soucis d'ouverture de votre fichier, comme s'il avait un problème.
Donc en PjJ un fichier simple. deux feuilles Sources et Destination.
On copie les données de l'un vers l'autre avec une datation de l'archivage, avec :
VB:
Sub Archive()
Sheets("Source").[A1].CurrentRegion.Copy        ' Copie de la zone source
With Sheets("Destination")
    DL = 1 + .Range("A65500").End(xlUp).Row     ' Ligne à écrire
    .Cells(DL, "A") = "Sauvegarde du " & Now    ' Datation de la sauvegarde
    .Cells(DL + 1, "A").PasteSpecial            ' Collage des données
End With
End Sub
 

Pièces jointes

  • Pelerin.xlsm
    15.5 KB · Affichages: 1

pelerin65

XLDnaute Occasionnel
Bonjour Sylvanu,
J ai adapté ta macro
elle donne un erreur "erreur de compilation

Sub Archive()
Sheets("Notes Loc NG").[A1].CurrentRegion.Copy ' Copie de la zone source
With Sheets("Tournées")
DL = 1 + .Range("A65500").End(xlUp).Row ' Ligne à écrire
.Cells(DL, "A") = "Sauvegarde du " & Now ' Datation de la sauvegarde
.Cells(DL + 1, "A").PasteSpecial ' Collage des données
End With
End Sub
1683651431263.png


je pense que je dois définir la variable de type
"Dim DL as string"
 

pelerin65

XLDnaute Occasionnel
Bonsoir TooFatBoy, Sylvanu,
c'était exactement ça.

petite question
.Cells(DL, "A") = "Sauvegarde du " & Now ' Datation de la sauvegarde
j'aimerais qu'il soit en gras et plus grand par rapport aux lignes sauvegardées
et top serait en rouge avec un fond rouge ou orange, et fusionner.
merci d'avance
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
313 205
Messages
2 096 209
Membres
106 530
dernier inscrit
miomi98