enregistrer un fichier avec le N° de la semaine Résolu/Fermé

Question

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
Configuration: Windows / Firefox 51.0

michel_m · Answer

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

poupanano · Answer

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.

michel_m · Answer

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)

poupanano · Answer

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

Enregistrer un fichier avec le N° de la semaine

4 réponses

Discussions similaires