Discussion :

[Almeyric]

Bonjour,

Je dois modifier le code vba de pas moins de 160 fichiers .xlsm.

Pour pas tout me coltiner à la main, je désire le faire à l'aide d'une macro.

Hors je bloque sur le comment atteindre la ligne de code 2244 du module pour y insérer la nouvel ligne de code.

.CountofLines me donne bien le nombre de lignes mais je ne vois pas si on peut le faire avec cette fonction ou non.

[joe.levrai]

Bonjour,

avec un visu sur ta procédure déjà réalisée on y verrait plus clair

en attendant, voici deux sujets pas tout à fait identiques au tient, mais traitant de la manipulation du VBE :

- chercher une ligne de code dans un projet : http://www.developpez.net/forums/d15...claree-module/


- supprimer une ligne de macro (remplacer ou inserer n'est pas bien compliqué en termes de modification) : http://www.developpez.net/forums/d15...er-code-macro/

[Almeyric]

En effet, j'ai déjà mon code adapter à mes besoins venant de http://silkyroad.developpez.com/VBA/...cEditor/#LIV-C

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub Modifier_Fichier_xlsm()
 
Dim Rep_Racine As String, Rep_Annee As String, File_ext As String, LeRep As String
Dim Debut As Integer, Lignes As Integer, X As Integer
Dim Fichier As String, Direction As String
Dim Doc As Document
 
Application.ScreenUpdating = False
 
'boucle sur tous les fichiers .xlsm du repertoire
Rep_Racine = "Z:\Bulletins de salaires\"
Rep_Annee = Year(DateValue(Now))
File_ext = ".xlsm"
Fichier = Dir(Rep_Racine & Rep_Annee & "\" & File_ext)
Do While Fichier <> ""
 
Set ThisWorkbook = Documents.Open(Rep_Racine & Rep_Annee & "\" & Fichier)
 
    'suppression de la ligne 2244 de "BULLETIN_ACCUEIL" dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("BULLETIN_ACCUEIL", 0)
    Lignes = .ProcCountLines("BULLETIN_ACCUEIL", 0)
    '.DeleteLines Debut, Lignes
    .DeleteLines 2244
    End With
 
    'ajoute le nouveau code à la ligne 2244 et 2245 dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Call ENVELOPPE_ACCUEILLI"
    .InsertLines X + 2, "'Call IMPRESSION_BULLETIN"""
    End With
 
    'suppression de la ligne 4745 de "BULLETIN_ACCUEIL" dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("BULLETIN_ACCUEIL", 0)
    Lignes = .ProcCountLines("BULLETIN_ACCUEIL", 0)
    '.DeleteLines Debut, Lignes
    .DeleteLines 4745
    End With
 
    'ajoute le nouveau code à la ligne 4745 dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    X = .CountOfLines
    Dim PrintArea As String
    PrintArea = "$A$1:$L$65"
    .InsertLines X + 1, "ActiveSheet.PageSetup.PrintArea = " & PrintArea
    End With
 
    'suppression de la ligne 4757 de "BULLETIN_ACCUEIL" dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("BULLETIN_ACCUEIL", 0)
    Lignes = .ProcCountLines("BULLETIN_ACCUEIL", 0)
    '.DeleteLines Debut, Lignes
    .DeleteLines 4757
    End With
 
    'ajoute le nouveau code à la ligne 4757 dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    X = .CountOfLines
    Dim PrintArea As String
    PrintArea = "$A$1:$L$65"
    .InsertLines X + 1, "ActiveSheet.PageSetup.PrintArea = " & PrintArea
    End With
 
DoEvents
Doc.Close True
Set Doc = Nothing
 
Fichier = Dir
Loop
Application.ScreenUpdating = True
 
End Sub

Le problème, c'est d'être certain de ne travailler que sur les lignes concernées.

[Almeyric]

Plusieurs erreurs dans le code du poste précédent, que j'ai corrigé ci-dessous. Mais il ne rentre pas dans la boucle car pour lui aucun fichier xlsm dans le dossier....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Dim Rep_Racine As String, Rep_Annee As String, File_ext As String, LeRep As String
Dim Debut As Integer, Lignes As Integer, X As Integer
Dim Fichier As String, Direction As String
Dim ThisWorkbook As Workbook
 
Application.ScreenUpdating = False
 
'boucle sur tous les fichiers .xlsm du repertoire
Rep_Racine = "C:\"
Rep_Annee = Year(DateValue(Now))
Direction = Rep_Racine & Rep_Annee
File_ext = ".xlsm"
Fichier = Dir(Direction & "\" & File_ext)
 
Do While Fichier <> ""
 
Set ThisWorkbook = Workbooks.Open(Rep_Racine & Rep_Annee & "\" & Fichier)
 
    'suppression de la ligne 2244 de "BULLETIN_ACCUEIL" dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("BULLETIN_ACCUEIL", 0)
    Lignes = .ProcCountLines("BULLETIN_ACCUEIL", 0)
    '.DeleteLines Debut, Lignes
    .DeleteLines 2244
    End With
 
    'ajoute le nouveau code à la ligne 2244 et 2245 dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "Call ENVELOPPE_ACCUEILLI"
    .InsertLines X + 2, "'Call IMPRESSION_BULLETIN"""
    End With
 
    'suppression de la ligne 4745 de "BULLETIN_ACCUEIL" dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("BULLETIN_ACCUEIL", 0)
    Lignes = .ProcCountLines("BULLETIN_ACCUEIL", 0)
    '.DeleteLines Debut, Lignes
    .DeleteLines 4745
    End With
 
    'ajoute le nouveau code à la ligne 4745 dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    X = .CountOfLines
    Dim PrintArea As String
    PrintArea = "$A$1:$L$65"
    .InsertLines X + 1, "ActiveSheet.PageSetup.PrintArea = " & PrintArea
    End With
 
    'suppression de la ligne 4757 de "BULLETIN_ACCUEIL" dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    Debut = .ProcStartLine("BULLETIN_ACCUEIL", 0)
    Lignes = .ProcCountLines("BULLETIN_ACCUEIL", 0)
    '.DeleteLines Debut, Lignes
    .DeleteLines 4757
    End With
 
    'ajoute le nouveau code à la ligne 4757 dans Module1
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    X = .CountOfLines
    .InsertLines X + 1, "ActiveSheet.PageSetup.PrintArea = " & PrintArea
    End With
 
DoEvents
ThisWorkbook.Close True
Set ThisWorkbook = Nothing
 
Fichier = Dir
Loop
Application.ScreenUpdating = True

[clementmarcotte]

Bonjour,

J'ai l'impression que tu mets la charrue devant les bœufs.

1) Les macros en question sont elles toutes regroupées dans un module unique ?

2) Si oui
2.1) tu prends un des classeurs et tu corriges le module. Tu peux le faire à la main. Rien ne remplace l'œil humain pour le faire à la bonne place
2.2) Tu exportes ton module.
2.3) Tu peux ensuite supprimer tous les vieux modules de tous les autres classeurs (Tu devrais pouvoir le faire avec une macro si tu en as envie). Tu peux même les exporter avant de les supprimer, au cas où ils seraient différents
2.4) Tu reprends tes classeurs rendus infirmes et tu leur fait importer le nouveau module.

Mais, es-tu bien sûr de devoir passer par là. Parce que, moi, je le ferais différemment, surtout si tes fichiers sont au format Excel 2007 et suivants.

À moins d'être bien "malchanceux", tes 160 classeurs sont "enfants" d'un nombre restreint de classeurs de base.

Tu refais tes classeurs de base en classeurs modèles, ou en macros complémentaires.

Et là, si ta boîte a déjà la license, tu utilises VB.net et le SDK Open XML pour transformer tes classeurs existants en classeurs ordinaires sans macro. Il y a même un exemple gratuit VB.net sur le site de Microsoft.

Si ta boîte n'a pas VB.net, tu peux télécharger une version de VS Community (2013 ou 2015) gratuite sur le site de MS. Une Express devrait être suffisante, mais Community c'est beaucoup mieux.

Ensuite, tous le nouveaux classeurs vont devoir être basés sur le modèle ou utiliser les macros à partir de la macro complémentaire et être enregistrés sans macros. Bien plus simple pour la maintenance.

[Almeyric]

Bonjour,

J'ai l'impression que tu mets la charrue devant les bœufs.

Bonjour, non je ne pense pas, mais c'est un point de vue...

1) Les macros en question sont elles toutes regroupées dans un module unique ?

Oui, c'est le cas.

2) Si oui
2.1) tu prends un des classeurs et tu corriges le module. Tu peux le faire à la main. Rien ne remplace l'œil humain pour le faire à la bonne place

C'est fait dans le fichier "maitre" xlsm.

2.2) Tu exportes ton module.
2.3) Tu peux ensuite supprimer tous les vieux modules de tous les autres classeurs (Tu devrais pouvoir le faire avec une macro si tu en as envie). Tu peux même les exporter avant de les supprimer, au cas où ils seraient différents
2.4) Tu reprends tes classeurs rendus infirmes et tu leur fait importer le nouveau module.

Ce qui correspond au code ci-dessus.

Mais, es-tu bien sûr de devoir passer par là. Parce que, moi, je le ferais différemment, surtout si tes fichiers sont au format Excel 2007 et suivants.

À moins d'être bien "malchanceux", tes 160 classeurs sont "enfants" d'un nombre restreint de classeurs de base.

Tu refais tes classeurs de base en classeurs modèles, ou en macros complémentaires.

En effet, j'ai bien un classeur maître-modèle qui sert de base pour mes fichiers "enfants".

Et là, si ta boîte a déjà la license, tu utilises VB.net et le SDK Open XML pour transformer tes classeurs existants en classeurs ordinaires sans macro. Il y a même un exemple gratuit VB.net sur le site de Microsoft.

Si ta boîte n'a pas VB.net, tu peux télécharger une version de VS Community (2013 ou 2015) gratuite sur le site de MS. Une Express devrait être suffisante, mais Community c'est beaucoup mieux.

Ensuite, tous le nouveaux classeurs vont devoir être basés sur le modèle ou utiliser les macros à partir de la macro complémentaire et être enregistrés sans macros. Bien plus simple pour la maintenance.

Alors là, tu m'intéresses !! Malheureusement pas de licence étant donné que ce n'est qu'une Fédération. Mais je vais me pencher sur VS Community. Si des tutos existent pour m’éviter de chercher, je suis preneur.