Bonjour,

Actuellement j'ai une macro qui enregistre mon fichier Excel sous le nom suivant : AuditSxx.xlsm
Les deux "x" après AuditS représentent le n° de la semaine en cours.
Actuellement nous sommes en semaine 11 donc ça sera AuditS11.xlsm
Concernant les semaines 1 à 9, mes fichiers se nomment AuditS08.xlsm

Je voudrais savoir quel code mettre pour activer le fichier de la semaine en cours.
Actuellement je modifie chaque semaine ma macro dont le code est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Windows("AuditS11.xlsm").Activate
et voici mon code pour enregistrer avec le n° de semaine en cours :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
nomfichier = ThisWorkbook.Name
 
numSem = CInt(Right(Replace(nomfichier, ".xlsm", ""), 2))
 
numSem = numSem - 1
 
If numSem >= 10 Then
nomfichier = "AuditS" & CStr(numSem) & ".xlsm"
ElseIf numSem < 10 Then
nomfichier = "AuditS0" & CStr(numSem) & ".xlsm"
End If
Merci