Discussion :

[rvcam]

Bonjour, j’ai un répertoire avec deux fichiers .xlsm, j’aimerais à partir d’une macro de copier et renommer le dernier.
Ex : semaine 3.xlsm
semaine 4.xlsm


Le but est de copier la dernière semaine, de renommer cette copie.

Dans cet exemple: A partir d’une macro, la semaine 4 est copiée, et renommer en semaine 5, puis suppression de la semaine 3. Au final on ne retrouve que les 2 dernières semaines. J’ai réussi à créer une macro qui copie et renomme la copie en semaine x, le problème est que je dois aller modifier la macro pour y mettre le nom du fichier à copier et le nom de la nouvelle semaine. Il faudrait au lancement de la macro, demander à saisir le nom pour la nouvelle semaine ex: "Indiquez votre nouvelle semaine" une fois la saisie faite, valider par entrée, la macro se lance.
Merci.

[Philippe Tulliez]

Bonjour,

J’ai réussi à créer une macro qui copie et renomme la copie en semaine x, le problème est que je dois aller modifier la macro pour y mettre le nom du fichier à copier et le nom de la nouvelle semaine

Si vous avez écrit une procédure (macro) qui vous satisfait et que finalement vous devez simplement modifier quelques constantes (n° de semaine par exemple), il vous suffit de modifier cette procédure en prévoyant des arguments.
Ainsi vous en ferez une procédure générique.
Si vous souhaitez un coup de main, je vous invite à publier cette procédure afin que l'on vous indique ce qu'il y a à modifier.

[rvcam]

Bonjour et merci de votre réponse, veuillez trouver la petite macro qui copie et renomme.

Code :

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

1
2
3
4
5
Sub Macro1()
'
FileCopy "C:\Users\rv\Desktop\test\semaine5.xlsm", "C:\Users\rv\Desktop\test\semaine6.xlsm"
'
End Sub

Que mettre pour demander au gestionnaire la "semaine6" avant le lancement de cette macro. je pense mettre un bouton de commande pour le lancement de la macro.
merci.
Cordialement

[Philippe Tulliez]

Bonjour,
Donc à la lecture de la ligne de code de votre procédure, je constate que le répertoire source et cible ainsi que le préfixe du nom des classeurs sont identiques soit "C:\Users\rv\Desktop\test\semaine"
Seul sont variable le numéro de la semaine présent dans les classeurs "source" et "cible" et je suppose que la source représente la semaine précédente et l'autre la semaine en cours
La fonction Format permet de renvoyer une chaîne de caractères représentant une semaine (entres autres) en fonction des arguments remplis

Code non testé (j'ai juste vérifié l'exactitude des chaînes de caractères servant à la source et à la cible

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub tt()
 Const Path As String = "C:\Users\rv\Desktop\test\semaine"
 Dim ThisWeek As String
 Dim PrevWeek As String
 ThisWeek = Format(Date, Format:="ww", FirstDayOfweek:=vbMonday, FirstWeekOfYear:=vbFirstFourDays)
 PrevWeek = Format(Date - 7, Format:="ww", FirstDayOfweek:=vbMonday, FirstWeekOfYear:=vbFirstFourDays)
 ' Copie 
 FileCopy Path & PrevWeek & ".xlsm", Path & ThisWeek & ".xlsm"
 
End Sub

[rvcam]

Bonjour et merci de votre réponse, la procédure que vous m'avez envoyé n'est pas ce que je recherche. Ce que je recherche est un code simple car il ne faut pas incrémenter le n° de semaine par automatisme, c'est le gestionnaire qui choisi le n° de semaine. Les semaines ne se suivent pas forcement. Ex: au lancement de la macro on demande au gestionnaire de saisir le n° de la semaine, puis la macro se lance, copie de la semaine en cours, renommage de la semaine copiée. Au final dans la repertoire on retrouve la nouvelle semaine et l'ancienne.
Cordialement.

[Philippe Tulliez]

Bonjour,

Ce que je recherche est un code simple car il ne faut pas incrémenter le n° de semaine par automatisme, c'est le gestionnaire qui choisi le n° de semaine

Je ne vois pas où est la complexité de ce que je vous ai envoyé mais si vous aviez dit plus tôt que vous souhaitiez, que l'on encode le n° de semaine, cela aurait certainement été plus simple.

Avec ce que je vous ai envoyé, vous avez tout pour construire vous même la ligne de code.
Cependant malgré ce que vous écrivez et d'après ce que vous avez publié il y aura tout de même une incrémentation à faire par rapport au n° encodé sauf si évidemment les deux n° de semaines doivent être encodés.

[Patrice740]

Bonjour,

Pour demander au gestionnaire, utilises InputBox :
Fonction InputBox (Visual Basic pour Applications) | Microsoft Docs

[rvcam]

Tout compte fait, avec quelques clics j'ai le résultat voulu.
Merci
Cordialement.