Discussion :

[DonKnacki]

bonjour le forum,
j'ai un répertoire excel dans lequelle j'ai un fichier fichier1.xls
et un dossier sauvegarde

je souhaiterai faire un enregistrement de mon fichier1.xls sous le nom reporting du + la date du jour dans le dossier Sauvegarde

Serai t'il possible de ne mettre que le chemin relatif ?

pour le moment j'ai mis ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Enregistrer()
 
 Jour = Day(Now)
 Mois = Month(Now)
 Année = Year(Now)
 ActiveWorkbook.SaveAs Filename:="Sauvegarde/Reporting du " & Jour & -Mois & -Année & ".xls", FileFormat:= _
    xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
End Sub

pourtant il ne peut pas accéder au fichier

[Megaxel]

Salut!
Dans FileName, il faut mettre le chemin complet, met tu peux le récupérer facilement, avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Path

Regarde ce que te donne cette function.

[DonKnacki]

ok j'ai donc mis une varaible chemin pour avoir le chemin du fichier

mais apres comment ajouter des choses au chemin

je m'explique

j'ai fais ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Sub Enregistrer()
 
 Jour = Day(Now)
 Mois = Month(Now)
 Année = Year(Now)
 chemin = ActiveWorkbook.Path
 
 ActiveWorkbook.SaveAs Filename:= "chemin\Sauvegarde\Reporting du " & Jour & -Mois & -Année & ".xls", FileFormat:= _
   xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
    , CreateBackup:=False
End Sub

masi la il me prend pas chemin comme le chemin mais comme une variable

[ThierryAIM]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:= chemin & "\Sauvegarde\Reporting du ..."

[Megaxel]

T'es sympa de lui avoir répondu, Thierry.
Moi, je dois attendre 2 jours, maintenant...

[ThierryAIM]

T'es sympa de lui avoir répondu, Thierry.
Moi, je dois attendre 2 jours, maintenant...

[DonKnacki]

merci a tout les deux ca marche


Megaxel mon probleme étais peut etre beaucoup plus simple que le tiens

[Elstak]

2 jours pour moi, pas pour les autres !!
Ils n'ont pas à payer le résultat de mes remarques

[ThierryAIM]

2 jours pour moi, pas pour les autres !!
Ils n'ont pas à payer le résultat de mes remarques

pour les ceusses qui ont raté un épisode :
http://www.developpez.net/forums/viewtopic.php?t=481520

Suis de bonne humeur aujourd'hui