Inclure le date d'enregistrement

Résolu/Fermé

BABAR07 - 11 mars 2011 à 20:20
BABAR07 - 13 mars 2011 à 18:03

Bonjour, j'ai encore besoin de vos lumières ce qui n'est pas mon cas,
je voudrais inclure dans la macro ci-jointe, la dâte de l'enregistrement, je travaille avec excel 2007

Dim NomFich As String, WkbC As Workbook, Wkb As Workbook
Application.DisplayAlerts = False
Set Wkb = ActiveWorkbook
With Sheets("DEVIS-FACTURE")
NomFich = "D" & .Range("B11") & " " & .Range("C13")
End With
Set WkbC = Workbooks.Add(xlWBATWorksheet)
Wkb.Sheets("DEVIS-FACTURE").Copy Before:=WkbC.Sheets(1)
WkbC.Sheets(2).Delete
WkbC.SaveAs "C:\Documents and Settings\User\Bureau\FACTURE\" & NomFich & ".xls", xlExcel8
WkbC.Close
Application.DisplayAlerts = True
Dim Numfacture As Long
Numfacture = Sheets(1).Range("A11").Value
Numfacture = Numfacture + 1: [B11] = [B11] + 1
Sheets(1).Range("A11").Value = Numfacture
Sheets("DEVIS-FACTURE").Select
Range("A17").Select
End Sub

D = devis B11 = N° DEVIS C13 = NOM DU CLIENT en H12, j'ai la dâte
Merci d'avance à tous ceux qui me répondront

A voir également:

Inclure le date d'enregistrement
Enregistrement vidéo écran - Guide
Youtube enregistrement vidéo - Guide
Passé cette date - Forum Logiciels
Alignez la date à droite. alignez "monsieur le directeur” à gauche. alignez des deux côtés le texte du courrier. ✓ - Forum Word
Enregistrer le son du pc - Guide

2 réponses

Réponse 1 / 2

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
11 mars 2011 à 22:47

Bonjour,
Si vous pensez à la date du système, une solution :

Sheets(1).Range("$H$12")=Format(Date, "dd-mmmm-yyyy")

BABAR07
12 mars 2011 à 15:43

Bonjour,
grand merci à toi pour ta macro que j'ai un peu modifier, j'ai maintenant en enregistrement le n° du devis, le nom du client et la dâte d'enregistrement,
Cordialement

BABAR07
12 mars 2011 à 19:29

bonjour, c'est encore moi
fausse joie pour moi
N° DEVIS en B11
NOM DU CLIENT en C13
je voudrais inclure la dâte qui se trouve en H12, ce qui donnerais enregistré dans mon dossier DEVIS
D130 NOM DU CLIENT 12/03/2011 ou autre dâte et dans le format ci-devant
j'ai du mal m'expliquer et m'en excuse auprès de tous:
D'avance merci

Réponse 2 / 2

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié par Le Pingou le 12/03/2011 à 23:22

Bonjour,
Dans se cas en supposant que :
Dans cellule [A2] dossier devis

temp = Range("$B$11") & " ; " & Range("C13")  
Workbooks(dossier devis).Sheets(1).range("A2") = temp & " ; " & Format(Range("H12"), "dd/mm/yy")

Note: [dossier devis] doit correspondre au nom du classeur et si fermer il faut introduire le chemin du répertoire.
Salutations.
Le Pingou

BABAR07
13 mars 2011 à 18:03

Bonjour,
merci beaucoup pour ton coup de main, cela fonctionne très bien
cordialement

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Pix

Publipostage date en anglais : comment l'inverser ?

Problème publipostage date de naissance

Discussions similaires

Newsletters