Copie valeurs en fonction date variable
Bonjour
Je me permets de poster une demande d'aide, car je ne trouve pas la solution.
J'ai un tableau dont je me sert au taf, que je remplis chaque jour, qui se sauvegarde en format pdf avec envoie par mail lorsque je le ferme, mais voila, mon encadrement aimerait voir apparaitre dessus l'évolution du total fait depuis le début.
Voila ma question, j'aimerai que le nombre en G5 en feuil1 se mette dans la feuil3 colonne IVM en fonction de la date du jour mais qui n'efface pas lorsque j'ouvre le lendemain le fichier car il sera alors égale à 0 ou bien à un autre chiffre, et de même pour le nombre en H19de la feuil1 mais lui mis dans le colonne sst de la feuil3.
J'ai essayé avec fonction si, recherche mais à chaque fois que la date change le chiffre change sans être fixé.
Je vous mets le tableau en lien
Merci de votre aide
Bonjour didic974
J'adore
Sinon comme tu lances la procédure "PDFfermeture" voici le code
Sub PDFFermeture()
Dim Chemin As String, NomFichier As String
Dim CelDateJ As Range, MaDate As Date
' En cas d'erreur
On Error Resume Next
' Pour test
MaDate = DateValue("19/11/2021")
' Sinon (pas obligé de passer par une variable)
'MaDate = Date
' Sauvegarder les données à la bonne date
Set CelDateJ = Sheets("Feuil3").Range("A:A").Find(What:=MaDate, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows)
' Inscrire les données sur la bonne ligne et dans la bonne colonne
CelDateJ.Offset(0, 1).Value = Sheets("Feuil1").Range("G5").Value
CelDateJ.Offset(0, 2).Value = Sheets("Feuil1").Range("H19").Value
' Export ma feuille
NomFichier = "dosesjour" & "_" & "Findejournee" & "_" & Format(Now, "dd_mm_yyyy hh_mm") & ".pdf"
Chemin = "E:\sauv IVM\sauvdosejour"
Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & "\" & NomFichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=False
End Sub
A+