probleme pour enregistrer un fichier portant le nom de la date

[boudu]

bonjour au forum
Je reviens sur un travail pour lequel j'ai déjà été pas mal aidé mais j'ai un dernier souci:
je souhaite enregistrer un fichier automatiquement suite à la saisie d'une date dans une inputbox
le souci est que si j'impose un format sans / (non accepté dans les noms de fichiers) alors je ne peux pas utiliser la date saisie pour lancer une recherche dans plusieurs fichiers et recopier le contenu dépendant de la date
J'ai tenté de nombreuses possibilités proposées par Epaf mais je n'arrive pas à obtenir d'avoir le ficihier sauvegardé au nom de la date et le fait de trouver la date dans les fichiers (je joins mon code actuel qui fonctionne pour la recherche de la date (qui est au format personnalisé "jj/mm/aaaa" dans les fichiers) mais me propse à la fin d'enregistrer un fichier qui s'appelle par defaut classeur1.xls
J'ai essayé d'imposer un format pour le nom du fichier à sauvegarder mais à ce moment-là excel ne reconnait plus la date pour la recherche
sub test
Dim Plage As Range
Dim Cellule As Range
Do While Not IsDate(question)
1 On Error Resume Next
question = InputBox("Merci de saisir la date souhaitée au format jj/mm/aaaa", "", , 1000, 3000)
If question = "" Then
Application.DisplayAlerts = False
Application.Quit
Exit Sub
End If
question = CDate(question)
If Year(question) < 2006 Or Year(question) > 2020 Then GoTo 1
Loop
'sauvegarde du fichier
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="c:\" & question, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
MonNom = ActiveWorkbook.Name

ChDir "c:\"
Workbooks.Open Filename:= _
"c:\bureau1.xls"
Workbooks.Open Filename:="c:\bureau1.xls"
Set Plage = Workbooks("bureau1.xls").Sheets("Feuil1").Range(Cells(2, 2), Cells(2, 256))
For Each Cellule In Plage
If Cellule.Value = question Then
Cellule.Activate
ActiveCell.Offset(1, n).Range("A1:A18").Select
Selection.Copy
Workbooks(MonNom).Activate
Range("b3").Select
Selection.PasteSpecial Paste:=xlAll
End If
Next
end sub


Merci

 

[wilfried_42]

Re : probleme pour enregistrer un fichier portant le nom de la date

Bonjour

je ne sais pas si j'ai compris mais voici une idee

question = CDate(question)
If Year(question) < 2006 Or Year(question) > 2020 Then GoTo 1
Loop
fichier = day(question) & "-" & month(question) & "-" & year(question)

pour la sauvegarde, utiliser fichier au lieu de question

 

[matthieu33]

Re : probleme pour enregistrer un fichier portant le nom de la date

Bonjour boudu et le forum,

Pourrais-tu remplacer tes lignes par celles-ci ?

ActiveWorkbook.SaveAs Filename:="c:\" & Format(question, "dd.mm.yyyy"), FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
MonNom = ActiveWorkbook.Name

J'ai formaté la date en remplaçant le "/" par un "."

@+

 

[wilfried_42]

Re : probleme pour enregistrer un fichier portant le nom de la date

Bonjour matthieu

Dans le format, pour un nom de fichier, il ne faut pas mettre des points, saveas va chercher une arborescence qui n'existe pas

 

[matthieu33]

Re : probleme pour enregistrer un fichier portant le nom de la date

Bonjour Wilfried,

C'est étrange car je viens d'exécuter le code et le fichier s'est bien enregistré à l'emplacement voulu avec un nom de fichier avec des points.

@+

 

[wilfried_42]

Re : probleme pour enregistrer un fichier portant le nom de la date

re:

J'ai surement été trop rapide dans ma reflexion, oui pas arborescence, mais extension lol, trop fatigué ce matin.......................

C'est vrai ca marche m'enfin personnellement, je prefere eviter les caracteres propres à la syntaxe des fichiers

Excuses moi encore

 

[boudu]

Re : probleme pour enregistrer un fichier portant le nom de la date

bonjour wielfried, Matthieu
merci pour vos reponses
Matthieu a raison, on peut forcer la main à windows et ecrire un fichier avec plusieurs points mais ça ne convient pas pour moi car on a un antivirus qui voit les fichiers avec plusieurs points comme des virus potentiels et les elimine lorsqu'on veut transmettre le fichier par mail

La solution de Wielfried est ok en changeant le nom de la variable

Merci encore et bonne continuation

 

[matthieu33]

Re : probleme pour enregistrer un fichier portant le nom de la date

Ok, pour info, tu peux faire également comme cela :
Format(question, "dd-mm-yyyy") ou Format(question, "dd mm yyyy")

@+

 

[boudu]

Re : probleme pour enregistrer un fichier portant le nom de la date

Re
Matthieu
j'avais essayé cela mais ça ne fonctionne pas parce qu'apres dans la macro je fais un find sur la date et le format ne colle plus (ça sauvegarde avec le nom du fichier mais je ne recupere pas les données dans les fichiers car le format date ne colle plus

Bonne continuation