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
2 réponses
-
Bonjour,
Si vous pensez à la date du système, une solution :Sheets(1).Range("$H$12")=Format(Date, "dd-mmmm-yyyy")-
-
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
-
-
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
