Enregistrer un fichier avec le N° de la semaine
Résolu/Fermé
poupanano
Messages postés
19
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
-
30 janv. 2017 à 15:19
poupanano Messages postés 19 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 6 juillet 2023 - 31 janv. 2017 à 14:10
poupanano Messages postés 19 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 6 juillet 2023 - 31 janv. 2017 à 14:10
A voir également:
- Enregistrer un fichier avec le N° de la semaine
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Audacity enregistrer son pc - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 30/01/2017 à 15:41
Modifié par michel_m le 30/01/2017 à 15:41
BONJOUR
ta macro modifiée avec le numéro de la semaine
Michel
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
Messages postés
19
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
1
30 janv. 2017 à 16:26
30 janv. 2017 à 16:26
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.
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
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
31 janv. 2017 à 09:09
31 janv. 2017 à 09:09
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)
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
Messages postés
19
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
6 juillet 2023
1
31 janv. 2017 à 14:10
31 janv. 2017 à 14:10
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
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
