Re : création fichier à partir de la saisie dans une boite de dialogue
re pierrejean
ça le fait
Il me reste à gérer la récupération des éléments concernant la bonne date pour la recopie, plus la gestion des differents fichiers ouverts pour la procedure (sauvegarde ou pas et application.quit au bon moment pour rendre tout ça le plus transparent possible
voila où j'en suis avec encore des petits bugs mais ça avance grace à ton aide
Private Sub Workbook_Open()
question = InputBox( _
"Merci de saisir la date souhaitée au format jj/mm/aaaa", "Saisie de la date", , 1000, 3000)
question = CDate(question)
question = Format(question, "dd_mm_yyyy")
Range("A1") = question
Workbooks.Add
ActiveWorkbook.SaveAs FileName:="C:\" & question, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
MonNom = ActiveWorkbook.Name
ChDir "c:\"
Workbooks.Open FileName:= _
"c:\testrecopie.xls"
'virer les 0
'Range("A1:c15").Select
'Cells.Replace What:="", Replacement:=" ", LookAt:=xlPart, SearchOrder:= _
'xlByRows, MatchCase:=False
'selection à recopier
Range("b3:b16").Select
Selection.Copy
Workbooks(MonNom).Activate
'Windows("C:\" question).Activate
Range("B3:B16").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Range("A1").Select
ActiveSheet.Paste Link:=True
'fermer le fichier d'origine
ChDir "c:\"
Workbooks.Open FileName:= _
"c:\testrecopie.xls"
ActiveWorkbook.Close
'Application.DisplayAlerts = False
'Application.Quit
End Sub
Si tu peux jeter un oeil dans le detail pour voir s'il est possible d'ameliorer l'ecriture ou le fonctionnement
Merci encore