XL 2021 Problème de copier coller lors de l'archivage

[fenec]

Bonjour le forum,

Dans le fichier joint, j'archive ma feuille à l'aide d'une macro, jusque la tout va bien sauf que je voudrais que dans mon fichier archivé la date soit en valeur et non pas avec la formule.
Le but étant que lors de la lecture de l'archive ce ne soit pas la date du jour renseigner par la formule mais bien la date de création de la sauvegarde.

J'espère que vous comprenais ma problématique
Cordialement,
Fenec

 

[Eric_49]

Bonjour

Il suffit de :
- Sauvegarder la formule présente en cellule W1
- La remplacer par sa valeur
- Faire la copie de la feuille
- Remettre la formule ensuite

Dim Save_Formule as String
' Sauve la formule date en cell W1 et remplace par valeur fixe
 With Range("W1")
        .Select
        Save_Formule = .Formula
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
 End With

' ... Copier la feuille et l'enregistrer ...

' Revenir sur le classeur de départ et replacer la formule
Range("W1").Formula=Save_Formule

A adapter à ton projet

Bonne journée

 

[sylvanu]

Bonjour Fenec, Eric,
Dans le même esprit, avec votre macro :
Après Set wsActive = ActiveSheet, met W1 en valeur plutôt qu'en formule :

[W1]=[W1].value

Avant le msgbox à la fin, remet la formule en place :

[W1].FormulaLocal = "=AUJOURDHUI()-(Z1=""nuit"")"

 

[Eric_49]

Bonjour Fenec, Eric,
Dans le même esprit, avec votre macro :
Après Set wsActive = ActiveSheet, met W1 en valeur plutôt qu'en formule :

[W1]=[W1].value

Avant le msgbox à la fin, remet la formule en place :

[W1].FormulaLocal = "=AUJOURDHUI()-(Z1=""nuit"")"

C'est plus simple en effet. Mais je pensais que la formule était différente selon la feuille (Matin, Soir ou Nuit), d'où ma proposition.
Je n'ai pas regardé dans le détail.