Signaler

Enregistrer un fichier avec le N° de la semaine [Résolu]

Posez votre question poupanano 18Messages postés mercredi 19 octobre 2016Date d'inscription 31 janvier 2017 Dernière intervention - Dernière réponse le 31 janv. 2017 à 14:10 par poupanano
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




Utile
+0
plus moins
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

Donnez votre avis
Utile
+0
plus moins
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.
Donnez votre avis
Utile
+0
plus moins
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)
Donnez votre avis
Utile
+0
plus moins
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
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !