Inclure le date d'enregistrement
Résolu
BABAR07
-
BABAR07 -
BABAR07 -
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
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 mp3 gratuit - Télécharger - Streaming audio
- Telecharger studio d'enregistrement rap - Télécharger - Édition & Montage
- Enregistrement - Guide
- Erreur lors de l'enregistrement du contact - Forum Xiaomi
- Comment couper un enregistrement audio - Guide
2 réponses
Bonjour,
Si vous pensez à la date du système, une solution :
Si vous pensez à la date du système, une solution :
Sheets(1).Range("$H$12")=Format(Date, "dd-mmmm-yyyy")
Bonjour,
Dans se cas en supposant que :
Dans cellule [A2] dossier devis
Note: [dossier devis] doit correspondre au nom du classeur et si fermer il faut introduire le chemin du répertoire.
Salutations.
Le Pingou
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
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
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