bonjour,
j'ai un classeur reference que je dois remplir tout les jours
pour ne pas faire fichier/ enregistrer sous / ect.... j'ai crée un module pour l'enresitrer automatiquement en cliquant sur une image dans son repertoire archive mais je l'ai crée que pour le mois de mars j'aimerai pouvoir ne plus me préocupé de changé mon code pour le mois d'avril, mai juin etc ...
voici mon code
Private Sub archive()
Dim adderng As String
Range("E9").Value = Date
adderng = "C:\Documents and Settings\7306939a\Bureau\archive rapport\03 Mars\" & Range("H9").Text & ".xls"
ActiveWorkbook.SaveAs Filename:=adderng
End Sub
E9 = la date du jour
en range H10 j'ai la formule = E9 tout comme pour mon range H9
H10 format cellule mm.mmm ce qui donne 03.mars
serais t'il possible d'integrer le range H10 dans mon code pour qu'il puisse au change ment de mois passer dans le dossier 04 avril puis 05 mai etc...
merci pour vos reponse
j'ai un classeur reference que je dois remplir tout les jours
pour ne pas faire fichier/ enregistrer sous / ect.... j'ai crée un module pour l'enresitrer automatiquement en cliquant sur une image dans son repertoire archive mais je l'ai crée que pour le mois de mars j'aimerai pouvoir ne plus me préocupé de changé mon code pour le mois d'avril, mai juin etc ...
voici mon code
Private Sub archive()
Dim adderng As String
Range("E9").Value = Date
adderng = "C:\Documents and Settings\7306939a\Bureau\archive rapport\03 Mars\" & Range("H9").Text & ".xls"
ActiveWorkbook.SaveAs Filename:=adderng
End Sub
E9 = la date du jour
en range H10 j'ai la formule = E9 tout comme pour mon range H9
H10 format cellule mm.mmm ce qui donne 03.mars
serais t'il possible d'integrer le range H10 dans mon code pour qu'il puisse au change ment de mois passer dans le dossier 04 avril puis 05 mai etc...
merci pour vos reponse