Version imprimable
Bonjour.
J'ai dans le code de plusieurs classeurs une constante dont la valeur est fausse et que je souhaiterai corriger.
Je pose à tout hasard la question : est-ce possible de rechercher un mot dans le code VBA de plusieurs classeurs fermés, ouvrir le ou les classeurs qui contiennent le mot recherché ou à la limite les lister ?
Merci d'avance pour vos réponses.
Bonjour,
voici un autre sujet où il fallait comparer deux constantes dans deux projets différents
http://www.developpez.net/forums/d15...e/#post8520378
avec un peu d'adaptions, tu devrais obtenir ce que tu cherches :
- si les constantes sont toutes dans un module qui porte le même nom, la fonction le fait déjà. Sinon, faire sauter ce ciblage pour parcourir tous les modules du projet
- boucler sur les classeurs voulus (idéalement ils sont situés dans un même dossier)
- ouvrir le classeur
- chercher la constante
- remplacer sa valeur (la partie après le "=")
- fermer le classeur
- passer au suivant
Bonjour,
Si tu dois vraiment modifier le code, il te faudrait passer par VBIDE, je pense...
Bonsoir, bonjour (suivant le fuseau) et merci à vous.
joe,
Je me suis mal exprimé, en fait le principe consisterai à rechercher un mot dans le code VBA de plusieurs classeurs fermés, ouvrir ou à la limite lister le ou les classeurs qui contiennent le mot recherché.
parmi,
Pourrais-tu m'expliquer ce qu'est "VBIDE" ?
Je ne comprend pas pourquoi tu veux lister les classeurs contenant la constante fausse... et donc qui est censée être remplacée ?
Au pire, un remplacement + un listing des classeurs qui étaient impactés, j'aurais compris
Et peut importe au final ce que tu souhaites faire, le lien que je t'ai proposé provient d'une discussion intitulée "Comment pointer sur une constante déclarée dans un module"
Sauf erreur, ton problème appartient au même domaine, sauf qu'il est plus générique que la discussion : tu dois boucler sur plusieurs fichiers, éventuellement dans chaque module si tu ne connais pas le nom par avance. Tu es ensuite libre de réaliser l'action de ton choix, comme récupérer le nom du classeur par exemple.
Ce type de procédures, c'est de la manipulation du Visual Basic Editor, pour répondre à la question que tu poses à parmi
Un tutoriel à ce sujet : http://silkyroad.developpez.com/VBA/VisualBasicEditor/
Joe.levrai (salut) t'a donné un bon lien pour ce que j'expliquais...Citation:
Envoyé par modus57
Bonjour à vous.
Je n'avais pas percuté que "VBIDE" c'est : Visual Basic Editor !
Effectivement c'est un très bon tutoriel et une mine d'informations que je vais relire avec plus d'attention et dans lequel je devrai trouver une solution.
J'ai consulté le lien concernant la discussion intitulée "Comment pointer sur une constante déclarée dans un module", en effet le code permet de vérifier si la constante existe dans un autre classeur.
Maintenant je comprends mieux la marche à suivre.
Je vais essayer de m'en sortir en construisant une procédure qui permettra de :
- sélectionner le répertoire
- boucler sur tous ses fichiers
- ouvrir le fichier (éventuellement lire dans le fichier fermé : si c'est plus simple ?)
- boucler dans chaque module (nom par connu par avance)
- chercher le mot recherché
- récupérer et lister dans une feuille le ou les noms des classeurs s'ils contiennent le mot recherché
- fermer le fichier sans le sauvegarder
A la bonne heure !
On se fera une joie de t'aider si ta procédure fonctionne mal (ou pas du tout), ou même si tu souhaites un avis/une optimisation possible
Tiens nous au courant :aie:
Bonjour joe
Voici le code que j'ai bidouillé :
SVP comment rechercher dans tous les modules des fichiers sélectionnés et corriger le bug avec l'utilisation de la variable "MotRecherché".Code:
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
61Sub RechercheMot() Dim Compteur, Wbk As Workbook, MotRecherché MotRecherché = InputBox("", "CHOISIR LE MOT RECHERCHÉ") With Application.FileDialog(msoFileDialogFilePicker) .Filters.Clear .Filters.Add "Classeur xlsm", "*.xlsm" .AllowMultiSelect = True .Show For Compteur = 1 To .SelectedItems.Count 'Ouverture et masquage de l'objet en question Set Wbk = GetObject(PathName:=.SelectedItems(Compteur)) nomFichier = Split(.SelectedItems(Compteur), "\")(UBound(Split(.SelectedItems(Compteur), "\"))) If Not ValConst(Workbooks(nomFichier), "un_e21") = ValConst(ThisWorkbook, "un_e21") Then 'If Not ValConst(Workbooks(nomFichier), MotRecherché) = ValConst(ThisWorkbook, MotRecherché) Then 'BUG Type d'argument ByRef incompatible MsgBox "Les constantes sont différentes dans le classeur : " & nomFichier Else MsgBox "Les constantes sont identiques dans le classeur : " & nomFichier 'lister les fichiers conntenant le mot recherché dans une feuille du classeur Sheets("Résultat").Columns("A:A").Find("*", [A1], , , , xlPrevious).Offset(1, 0) = .SelectedItems(Compteur) Sheets("Résultat").Columns("A:A").EntireColumn.AutoFit End If 'Fermeture de l'objet (Wbk) sans sauvegarde Wbk.Close SaveChanges:=False Next End With End Sub Function ValConst(Classeur As Workbook, NomConstante As String, Optional NomModule As String = "Module1") As String ' recherche dans le module "NomModule" du classeur indiqué la ligne de code de déclaration de la Constante ' la fonction retournera la valeur de la constante Dim LeModule As Object Dim i As Long ' on tente d'instancier le module On Error Resume Next Set LeModule = Classeur.VBProject.VBComponents(NomModule) On Error GoTo 0 ' si ça échoue : message indiquant que le module n'existe pas If LeModule Is Nothing Then ValConst = "ECHEC : Le Module " & NomModule & " n'existe pas dans le classeur " & Classeur.Name Exit Function End If ' au sein du module With LeModule.CodeModule ' pour chaque ligne de code For i = 1 To .CountOfLines ' si la ligne est la déclaration de la constante (= le mot clé "Const" suivi d'un espace et du nom de la constante) 'If .Lines(i, 1) Like "*" & "Const " & NomConstante & "*" Then 'recherche le nom d'une constante If .Lines(i, 1) Like "*" & NomConstante & "*" Then 'recherche un mot quelquonque ' on retourne sa valeur et on quitte la procédure ValConst = Split(.Lines(i, 1), """")(UBound(Split(.Lines(i, 1), """")) - 1) Exit Function End If Next i End With ' si on a pas trouvé : on retourne un message à cet effet ValConst = "ECHEC : Constante " & NomConstante & " inexistante dans le classeur " & Classeur.Name & " au sein du module " & NomModule End Function
Et si ce n'est pas trop vous demander : comment sélectionner tous les fichiers xlsm du répertoire choisi ?
Question : lire dans les classeurs fermés est-ce possible et plus rapides ?
Merci d'avance de votre concours dans cette discussion.
Bonjour,
tu cherches à faire courir tout tes chevaux en même temps, forcément c'est beaucoup plus compliqué
avant de chercher à boucler sur un ensemble de fichier, essaye déjà de développer une procédure qui le fait sur un seul fichier déjà ouvert
ensuite, quand tu auras ta procédure qui :
- cherche dans tous les modules du classeur
- trouve (ou non) la constante
- indique si la constante a été trouvée ou non
là tu t'attaquera à :
- une boucle pour le faire sur plusieurs classeurs
et quand ta boucle fonctionnera pour deux fichiers ouverts manuellement :
- tu crées la partie où les classeurs à boucler sont récupérés via l'explorateur
D'ailleurs, ton sujet parlait de boucler sur TOUT les classeurs d'un répertoire.
Or, ton code laisse à penser que ce ne sont QUE les classeurs choisis par l'utilisateur ?
voici la partie du tutoriel où tu trouveras la matière pour boucler sur chaque module d'un classeur : http://silkyroad.developpez.com/VBA/...cEditor/#LII-C
Malheureusement, je ne pense pas qu'il soit possible, sans ouvrir le classeur, de manipuler le projet ?
D'accord avec joe.levrai; je pense que tu devras ouvrir les fichiers pour les modifier.
Il faudrait aussi voir s'il y a des sous-répertoires à "visiter", ce qui impliquerait une récursivité...
Et s'il y a des mots de passe sur le code dans certains fichiers, il faudra voir...
Bonjour joe.levrai, parmi
J'ai réussi à faire :
- une boucle sur tous les fichiers sélectionnés avec la boîte application.FileDialog(msoFileDialogFilePicker)
- la recherche dans tous les modules du classeur
- trouvé (ou non) la constante
- indiqué si la constante a été trouvée ou non
- une boucle pour le faire sur plusieurs classeurs
- lister le chemin complet et le nom des fichiers contenant la constante dans une feuille
En effet je souhaiterai soit boucler sur TOUT les classeurs d'un répertoire de des sous répertoires …. ou QUE les classeurs choisis par l'utilisateur.Citation:
D'ailleurs, ton sujet parlait de boucler sur TOUT les classeurs d'un répertoire.
Or, ton code laisse à penser que ce ne sont QUE les classeurs choisis par l'utilisateur ?
Là ça devient trop compliqué pour moi, un petit coup de pouce svp.Citation:
Il faudrait aussi voir s'il y a des sous-répertoires à "visiter", ce qui impliquerait une récursivité...
Et s'il y a des mots de passe sur le code dans certains fichiers, il faudra voir...
Bonjour,
et ta procédure, elle est où petit cachottier
montre-nous ça :mouarf:
La voilà :oops:
Code:
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
Très bien
donc dans l'absolu ce code fonctionne ? Tu voudrais juste pouvoir retailler certains traitements, notamment sur les fichiers à analyser ? (Tout un répertoire, toute une arborescence de répertoire, choisi adhoc de l'utilisateur) ?
Alors avant de réaliser cette customisation, on va déjà ranger tout tes chevaux dans des box individuels, c'est toujours plus pratique quand tu veux faire évoluer un programme : tu vas dans le box dédié !
Donc, es-tu en mesure de découper ce programme brut en plusieurs sous-procédures ?
Dans l'idée la plus simpliste on aurait :
- une procédure de lancement dans laquelle est paramétré le mot à chercher, et la sélection des dossiers (pour le moment reprend juste la méthode actuelle, on fera la customisation dont j'ai parlé quand les box seront en place)
- une procédure qui traite l'ouverture et le parcours d'un seul fichier
Ainsi, on appellera la procédure de recherche dans une boucle présente dans la procédure principale
Un découpage encore plus complexe peut-être fait ... mais ça à la rigueur, quand t'auras mesuré l'intérêt et la méthode des "box", tu organisera à ta convenance
Bonjour joe.levrai
Voilà ce que j'ai bidouillé, est-ce ça correspond à ce que tu me conseille ?
Concernant la constante trouvée ou non, je ne trouve pas de solution ? :koi:
Code:
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
Non ce n'était pas tout à fait ça, je te parlais de découper tes traitements en plusieurs procédures
un exemple fait très rapidement, et pas super optimisé :
Un fonction qui test si la constante existe, et renvoie le nom du module où elle se trouve.
Si la constante n'existe pas, la fonction retourne une chaine vide
Code:
2
3
4
5
6
7
8
9
10
11
12
13
Et une procédure principale qui demande le nom de la constante à l'utilisateur, ainsi que la liste des fichiers à vérifier
Une boucle sur chaque fichier sélectionné appelle la fonction de Test
Si le test est positif, on ajoute le fichier (et le nom du module) dans un tableau de résultat
A la fin des tests, on injecte le tableau de résultat en colonne A
Code:
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
Voici le message qui apparait lorsque je lance la procédure : :|
Pièce jointe 224598
:oops: Corriger en activant la Visual Basic For Applications Extensibility 5.3
Si tu veux t'affranchir de la référence à cocher (qui peut devenir problématique si tu distribue ton fichier), tu peux remplacer tout les types de variables se rapportant à la référence, par des variables type Object :
En l'espèce, ici c'était la variable LeProjet et la variable LeModuleCode:
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
Je ne connaissais pas cette subtilité, merci à toi.
Dans ma procédure si la constante est trouvée elle inscrit dans le titre de la colonne "LISTE FICHIERS CONTENANT LA VARIABLE : MotRecherché" et liste en A2 les noms des classeurs et ses modules qui contiennent la constante.
En testant ton dernier code ça fonctionne pas ?
