Enregistrer un fichier avec le N° de la semaine

Résolu
poupanano Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -  
poupanano Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Une macro me crée un fichier que je voudrai enregistrer sous un nom fixe "Bon de Cde" augmenté du N° de la semaine en cours: exemple "Bon de Cde S05" pour cette semaine.
J'ai également besoin qu'il soit enregistré en .xls car les utilisateur sont équipé de la version 2003.
L'enregistrement doit se faire dans le même dossier que le fichier de la macro sans indiquer le chemin du répertoire.
Voici le code que j'ai actuellement généré par "enregistrer une macro":
ActiveSheet.EnableSelection = xlNoRestrictions
ChDir "E:\Grâdhü"
ActiveWorkbook.SaveAs Filename:="E:\Grâdhü\Bon de Cde.xls", FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Merci d'avance pour votre aide




A voir également:

4 réponses

Réponse 1 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
BONJOUR

ta macro modifiée avec le numéro de la semaine 
'ActiveSheet.EnableSelection = xlNoRestrictions 'INUTILE
 'ChDir "E:\Grâdhü" 'INUTILE
 sem = DatePart("ww", Date, vbMonday, vbFirstFourDays)
 ActiveWorkbook.SaveAs Filename:="E:\Grâdhü\Bon de Cde_S" & sem & ".xls"
'INUTILE:FileFormat:= _
 xlExcel8 , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 , CreateBackup:=False

 Michel
0
Réponse 2 / 4
poupanano Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   1
 
Super Michel Merci
La réponse est rapide et ça fonctionne parfaitement

Si ce n'est pas abuser, j'ai 2 requêtes:
1_Le fichier de base peut être rangé ailleurs et j'ai besoin que le nouveau fichier soit dans le même dossier que lui quelque soit le chemin.
2_Le N° de semaine peut-il s'afficher sur 2 caractères (05 pour la semaine 5) afin de pouvoir les classer dans l'ordre par la suite.
0
Réponse 3 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

Pas compris le 1

pour le 2
Dim sem as String
sem = Format(DatePart("ww", Date, vbMonday, vbFirstFourDays), "00")
attention, format renvoie un string (texte)
0
Réponse 4 / 4
poupanano Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   1
 
Merci Michel
Le format est OK

Je ne comprend pas la mise en garde "attention, format renvoie un string (texte) "

Pour préciser le point 1_:
je voudrait l'enregistrer sous un classeur excel .xls dans le même dossier que le fichier d'origine, sans spécifier de chemin dans la macro; peut-être la commande suivante:
ThisWorkbook.SaveAs myfile
mais je ne sait pas où la placer
0