Remplacer des lignes dans un module par une macro.

Version imprimable

09/04/2023, 10h25
RDBAL41

Remplacer des lignes dans un module par une macro.

Bonjour à Tous et Toutes.

J’ai besoin de modifier 2 lignes dans 4 modules différents. (Je peux évidement mettre les 4 macros dans un seul et unique module).
Voici mon problème : Chaque an, je change l’année dans la cellule E3 pour les 18 feuilles du classeur avec une simple macro. Très simple (module1).
Dans les module 2, 3, 4 , je dois remplacer les 2 répertoires ainsi :

C:\trav\trav1\2023 par C:\trav\trav1\ (la nouvelle année ici 2024).
D:\trav\trav1\2023 par D:\trav\trav2\ (la nouvelle année ici 2024).

Rien compliqué, mais ce classeur est utilisé par 21 personnes différentes et les feuilles pour certains ne sont pas les mêmes, les données demandées divergent.

Donc, comme ils n’ont pas accès pour des raisons de sécurité aux codes Vba, je suis obligé 2 fois par an de modifier les codages soit : 21x4x2 = 168 manips.

Est-il possible par une simple macro de créer sur les partitions le nouveau sous répertoire (ici 2024 ), avoir la confirmation, ensuite de modifier ces lignes ( emplacements 6 &7)dans les modules et de confirmer. Cela avec une seule macro.

Je pourrais ainsi reprendre en insérant un seul module dans les 21 classeurs. Ensuite au moment venu, ils auraient la charge d’effectuer eux-mêmes la manip sans mon intervention.

Merci pour votre aide , si cela est possible.

RDBAL41
09/04/2023, 10h36
Thumb down

Bonjour,
Déjà pour l'année tu peux utiliser la fonction Year(Date) qui te donnera la date de l'année.

Pour le reste tu peux rajouter un onglet de configuration qui contiendra les informations pour chaque Environ("UserName"), et ainsi n'avoir besoin que d'une seule Macro.
09/04/2023, 12h31
RDBAL41

Citation:

Envoyé par Thumb down

Bonjour,
Déjà pour l'année tu peux utiliser la fonction Year(Date) qui te donnera la date de l'année.

Pour le reste tu peux rajouter un onglet de configuration qui contiendra les informations pour chaque Environ("UserName"), et ainsi n'avoir besoin que d'une seule Macro.

Merci mais j'avoue que je ne comprends pas comment faire.
RDBAL41

un début de piste.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
MsgBox Environ("UserName")
Dim Rep1 As String: Rep1 = "C:\trav\trav1\" & Year(Date) + 1
Dim Rep2 As String: Rep2 = "D:\trav\trav2\" & Year(Date) + 1
GererRep Rep1
GererRep Rep2
End Sub
Sub GererRep(Path As String)
Dim rp, nw As String, i As Integer
rp = Split(Path & "\", "\")
For i = 0 To UBound(rp) - 1
    If nw <> "" Then nw = nw & "/"
    nw = nw & rp(i)
    If Dir(nw, vbDirectory) = "" Then MkDir nw
Next
End Sub

09/04/2023, 14h35
Niagala

1 pièce(s) jointe(s)

Bonjour à tous.
Dans mon fichier Comptabilité , je change d'exercice donc d'année en faisant quelques manipulations.
Dans une feuille Config, faites un tableau récapitulatif des années et des répertoires.
Ensuite récupérez l'année en cours et les répertoires correspondants.

A l'aide des variables Repertoire_Cible1 et Repertoire_Cible2 vous pouvez écrire dans les répertoires en fonction de l'année en cours

Repertoire_Cible1 = Feuil1.Range("C2")
Repertoire_Cible2 = Feuil1.Range("D2")

L'année en cours est toujours récupérée en B2

J'espère que ceci pourra vous aider
09/04/2023, 15h38
RDBAL41

-Bonjour ,
Merci Thumb down & Niagala .

Les 2 idées sont intéressantes et elles marchent.
Mais ce n'est pas tout à fait ce que je recherche.
Je vais voir si je peux les utiliser.

En fait je cherche une macro qui modifie les 2 lignes "chemins" dans les macros modules existants en remplaçant l'année 2023 par 2024..
Le tout évitant que quelqu'un "bricole" les répertoires inscrits dans les modules. Les personnes n'ont pas accès aux codes.
Il me suffira de leur demander de créer un sous répertoire "2024" sur leur poste de travail, pendant que l'étiquette 2023 de leur classeur se change en 2024.
Mais si je peux le faire avec cette macro, c'est encore mieux. Mais cela ils peuvent le faire.
Merci encore
RDBAL41.
09/04/2023, 16h05
Thumb down

Je comprends bien que tu n'as pas compris l'idée.

Citation:

En fait je cherche une macro qui modifie les 2 lignes "chemins" dans les macros modules existants en remplaçant l'année 2023 par 2024

Ici l'idée est de créer le chemin au répertoire dynamiquement. Ça t'évitera de renommer tes module par programme Vu que ton code serra dynamique dans tes module !

Code:

Rep1 = "C:\trav\trav1\" & Year(Date) + 1 'Year(Date) + 1 donne 2024 pour cette année 2025 pour l'année prochaine etc.
09/04/2023, 17h35
RDBAL41

Citation:

Envoyé par Thumb down

Je comprends bien que tu n'as pas compris l'idée.

Ici l'idée est de créer le chemin au répertoire dynamiquement. Ça t'évitera de renommer tes module par programme Vu que ton code serra dynamique dans tes module !

Code:

Rep1 = "C:\trav\trav1\" & Year(Date) + 1 'Year(Date) + 1 donne 2024 pour cette année 2025 pour l'année prochaine etc.

Bonsoir,
Effectivement, je n'avais pas compris l'idée.
C'est parfait et cela marche Nikel.
Merci du coup de main.

RDBAL41