identification d'un fichier

[PHILIP]

Bonjour à tous ,

j'ai un fichier que je dois expedier automatiquement tous les jours par email. Ce fichier est renommé à la date du jour de cette facon :

ActiveWorkbook.SaveAs Filename:=("c:\Documents and Settings\PC42\Bureau\ VK_Tagesbericht_ " & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & ".xls")

*
mais quand je le l'enregistre et le ferme soit ainsi:

ActiveWorbook("VK_Tagesbericht_ " & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & ".xls").Close

elle m'indique " erreur de compilation sub ou function non definie "
Le fichier existe bien ou est l'erreur ?
Et quand je veux l'expedier par cdo elle me dit qu'elle ne trouve pas le fichier à l'endroit indiqué (pourtant il s'y trouve vraiment sous la forme VK_Tagesbericht_2010_01_25 ) est-ce du à la forme d'ecriture ?

.AddAttachment ("c:\Documents and Settings\PC42\Bureau\ VK_Tagesbericht_ " & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & ".xls")

Merci pour votre aide

 

[Efgé]

Re : identification d'un fichier

Bonjour PHILIP,
Je ne suis pas sur mais peut être qu'avec Workbooks et SaveChanges:= True ...

Workbooks("VK_Tagesbericht_ " & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & ".xls").Close SaveChanges:= True

Cordialement

 

[Pierrot93]

Re : identification d'un fichier

Bonjour Philippe, Efge

tu n'aurais pas une espace en trop après le "_" ?

("VK_Tagesbericht_ " & Year(Date)

bon après midi
@+