sauvegarde le premier du mois vba excel Résolu

Question

Bonjour,

   Je cherche a effectuer une sauvegarde d'un fichier excel dans un nouveau repertoire et aves un nouveau nom tous les prmiers du mois.J'ai pu faire ceci mais il ya une erreur sur la sauvegarde je ne vois pas (je debute de puis 3 semaines). Merci
la case Q1: = aujourdhui()  'il y a surement mieux
 Code: 

Function sauve()



Dim dFirst As Date
Dim message As String 'fabrication du nom dela copie du fichier





  dFirst  = CDate("1/" & Format(DateAdd("m", 0, Date), "mm/yyyy"))
'si c'est le premier du mois
    If dFirst = Sheets("CRJ-COD").Range("Q1").Value Then
        message = CDate(Format(DateAdd("m", 0, Date), "mm/yyyy"))
        'je fais une copie dans un repertoire en changeant le nom du fichier
        ActiveWorkbook.SaveCopyAs ("D:\ici\cla\copie\CR-" & message)


    End If
    
End Function

Merci pour votre aide.
Ben

jmfmarques · Accepted Answer

Bonjour,

Un nom de fichier ne saurait comporter le caractère /

or, ton message (01/11/2007)en contient 2 !!!!

jmfmarques · Answer

Change tes / par des -

Message = Format(Date - Day(Date) + 1, "dd-mm-yyyy")

cs_casy · Answer

Essaye ceci :

Public Function sauve()
  
    If Day(Date) =   1 Then
      ActiveWorkbook.SaveCopyAs ("D:\CR-" & Format(Date, "mm-yyyy") & ".xls")
    End If

End Function

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

bakalai · Answer

Merci beaucoup j'suis un boulet buter sur un truc comme ça...........

@+

Merci
Ben

Sauvegarde le premier du mois vba excel

4 réponses

Votre réponse

Discussions similaires