Discussion :

[graphikris]

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

[Nicolas JACQUIN]

Bonjour l'ami

peut-être avec une chose comme celle-ci

Code :

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

1
2
nsemaine = DatePart("ww", Date, vbMonday, vbFirstFourDays)
Windows("AuditS & "" & nsemaine.xlsm").Activate

A essayer

[anasecu]

Bonjour à tous,

Sans doute plutôt écrit ainsi

Code :

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

1
2
nsemaine = DatePart("ww", Date, vbMonday, vbFirstFourDays)
Windows("AuditS" & nsemaine & ".xlsm").Activate

[graphikris]

bjr et merci pour ton aide mais ça ne marche pas

[Nicolas JACQUIN]

Montre nous le code que tu utilise si possible

Code :

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

1
2
nsemaine = DatePart("ww", Date, vbMonday, vbFirstFourDays)
Workbooks("AuditS" & nsemaine & ".xlsm").Activate

[78chris]

Bonjour

Imbriquer Nsemaine dans une fonction format afin d'avoir toujours 2 digits et enlever1 pour la semaine précédente

Code :

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

nsemaine = Format(DatePart("ww", Date, vbMonday, vbFirstFourDays) - 1, "00")

Activate ne marche que si le fichier est ouvert...

[Pierre Fauconnier]

Salut.

Je me demande quel est l'intérêt de travailler avec un classeur par semaine alors qu'une feuille XL2010 peut contenir 1048576 lignes de données...

Ce serait tellement plus simple de tout regrouper dans un classeur.

[graphikris]

Mais bien sûr sauf que la vie n'est pas si simple, tout comme les idees des grands chefs qui ont toujours raison.
D'où un classeur par semaine.

[Pierre Fauconnier]

Ce n'est pas une question d'avoir raison ou d'être un grand chef.

Si tu veux travailler efficacement avec un outil, il faut apprendre à le connaître et peut-être, petit à petit, infléchir le travail de celles et ceux qui t'imposent de mal travailler avec l'outil.

Et perso, indépendamment de l'obligation d'un classeur par semaine pour la saisie, je les regrouperais en un seul classeur pour l'analyse en m'aidant de VBA pour consolider mes feuilles. Ca permettrait bien plus de souplesse, notamment dans l'analyse des données. Parce que j'imagine que si on encode des données dans 52 classeurs, c'est pour les analyser à un moment donné, et j'entrevois déjà trop bien l'usine à gaz que ça va donner, avec des discussions à 50 messages pour créer un château de cartes qui s'écroulera tôt ou tard.

Tiens, je paries que tu vas t'amuser à copier ta macro dans chaque nouveau classeur que tu créeras chaque semaine. Ca va être rigolo côté maintenance.

Cela dit, tu passes ton temps à le prendre de haut et à te casser le c** pour réaliser tes bricolages si tu en as envie, bien entendu

[graphikris]

je suis tout a fait d'accord avec toi mais quand on te dit c'est comme ça et c'est pas autrement tu te plis tant que tu es payé a la fin du mois.
Ici l'analyse se fait par semaine et non pas par mois ni annee donc nous avons 52 copies du fichier original avec 52 noms différents S01, S02,......, S52

[unparia]

Bonjour
Un employeur a les collaborateurs qu'il mérite et vice-versa.

Après, c'est une question de caractère personnel et d'auto-estime de chacun, mais également de la renommée que l'on fait de soi-même, notamment en vue d'un changement d'entreprise (le nouvel employeur aura tendance - et il aura raison - à juger de l'opportunité de recruter en fonction des performances montrées antérieurement ).
Ceci est vrai quel que soit le domaine d'activité.

[Philippe Tulliez]

Bonjour,
Je ne peux que renchérir aux réponses de Pierre que je salue au passage.

@graphikris

Ici l'analyse se fait par semaine et non pas par mois ni annee donc nous avons 52 copies du fichier original avec 52 noms différents S01, S02,......, S52

Si les données sont encodées dans une seule feuille, tu peux les synthétiser par jour, semaine, mois, trimestres et/ou années avec les tableaux croisés dynamiques ou à l'aide notamment de la fonction SOMMEPROD
Avoir 52 feuilles pour une année est une aberration totale et en dehors des règles d'or de la manière dont doivent être encodées des données dans Excel

[unparia]

Un s'impose, Philippe Tulliez. Je signe le mien.