Microsoft 365 problème date

pelerin65 · 9 Mai 2023

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.

Loc-Ng-23.xlsb

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

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 · 9 Mai 2023

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 ?

pelerin65 · 9 Mai 2023

bonjour sylvanu

le code est 1234

je suis entraine de modifie un fichier déjà utilisé d'où le code

Hasco · 9 Mai 2023

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 · 9 Mai 2023

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

pelerin65 · 9 Mai 2023

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

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

TooFatBoy · 9 Mai 2023

Bonjour,

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

C'est un numéro de ligne, donc il vaut mieux le définir en tant que nombre, comme par exemple un Double.

pelerin65 · 9 Mai 2023

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

Microsoft 365 problème date

pelerin65

XLDnaute Occasionnel

Loc-Ng-23.xlsb

sylvanu

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

pelerin65

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

Discussions similaires