Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Editer du vba afin de modifier des path

14 réponses
Avatar
Franck
Actuellement en migrations de file server, les lecteurs logiques vont changer
de nom, par ailleurs il me faut changer les path de 4800 bases access...
existe t il un moyen de modifier le code vba access en automatiquement ?
merci de votre aide....

10 réponses

1 2
Avatar
Raymond [mvp]
Bonjour.

c'est très possible par automation, avec un peu de temps.
tu crées une base :
1- rechercher tous les fichiers mdb placés sur le disque nommé ?
2- boucler sur tous les noms de fichiers mdb
3- boucler par automatisation access sur tous les modules vba
4- rermplacer "C:" par "N:" par exemple

des idées sur:
http://officesystem.access.free.fr/vba/nouvelle_instance_access.htm
http://officesystem.access.free.fr/vba/filesearch.htm
http://officesystem.access.free.fr/vba/modules.htm



--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

Actuellement en migrations de file server, les lecteurs logiques vont
changer
de nom, par ailleurs il me faut changer les path de 4800 bases access...
existe t il un moyen de modifier le code vba access en automatiquement ?
merci de votre aide....


Avatar
Franck
merci bcp pr cette aide , en fait dans ma partie la recherche de tous les
fichiers mdb n est pas necessaire ... par contre il serai interessant de
creer un module que je donnerais a chaque utilisateur de base qui permettrait
de modifier le path en fonction de son ancien path ...
est ce que cla est possible de creer un module et de l integrer dans
plusieurs bases par la suite ?


Bonjour.

c'est très possible par automation, avec un peu de temps.
tu crées une base :
1- rechercher tous les fichiers mdb placés sur le disque nommé ?
2- boucler sur tous les noms de fichiers mdb
3- boucler par automatisation access sur tous les modules vba
4- rermplacer "C:" par "N:" par exemple

des idées sur:
http://officesystem.access.free.fr/vba/nouvelle_instance_access.htm
http://officesystem.access.free.fr/vba/filesearch.htm
http://officesystem.access.free.fr/vba/modules.htm



--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

Actuellement en migrations de file server, les lecteurs logiques vont
changer
de nom, par ailleurs il me faut changer les path de 4800 bases access...
existe t il un moyen de modifier le code vba access en automatiquement ?
merci de votre aide....







Avatar
Raymond [mvp]
Un conseil gratuit, ne laisse pas ce genre de module ou formulaire à
disposition des utilisateurs. il vaut mieux leur fournir une mde avec un
formulaire qui peut demander le nom de la base, l'ancien et le nouveau path
et faire le travail.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

merci bcp pr cette aide , en fait dans ma partie la recherche de tous les
fichiers mdb n est pas necessaire ... par contre il serai interessant de
creer un module que je donnerais a chaque utilisateur de base qui
permettrait
de modifier le path en fonction de son ancien path ...
est ce que cla est possible de creer un module et de l integrer dans
plusieurs bases par la suite ?



Avatar
Franck
oui tu as raison ... par contre je ne vois pas comment je peux realiser cette
aprtie :
3- boucler par automatisation access sur tous les modules vba
apres pour le remplacement j utilise la fonction :
ObjetModule.ReplaceLine(Ligne, Chaîne)

Merci de me tenir au courant ...
Merci pour le reste des informations.
Cordialement.
Franck


Un conseil gratuit, ne laisse pas ce genre de module ou formulaire à
disposition des utilisateurs. il vaut mieux leur fournir une mde avec un
formulaire qui peut demander le nom de la base, l'ancien et le nouveau path
et faire le travail.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

merci bcp pr cette aide , en fait dans ma partie la recherche de tous les
fichiers mdb n est pas necessaire ... par contre il serai interessant de
creer un module que je donnerais a chaque utilisateur de base qui
permettrait
de modifier le path en fonction de son ancien path ...
est ce que cla est possible de creer un module et de l integrer dans
plusieurs bases par la suite ?









Avatar
Raymond [mvp]
tu as les mêmes fonctions que pour un formulaire, AllModules, For Each
etc.........

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

oui tu as raison ... par contre je ne vois pas comment je peux realiser
cette
aprtie :
3- boucler par automatisation access sur tous les modules vba
apres pour le remplacement j utilise la fonction :
ObjetModule.ReplaceLine(Ligne, Chaîne)

Merci de me tenir au courant ...
Merci pour le reste des informations.
Cordialement.
Franck



Avatar
Franck
Ok, merci ...
je voulais savoir est il possible de faire un module type et de l importer
dans plusieurs bases ?


"Raymond [mvp]" wrote:

tu as les mêmes fonctions que pour un formulaire, AllModules, For Each
etc.........

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

oui tu as raison ... par contre je ne vois pas comment je peux realiser
cette
aprtie :
3- boucler par automatisation access sur tous les modules vba
apres pour le remplacement j utilise la fonction :
ObjetModule.ReplaceLine(Ligne, Chaîne)

Merci de me tenir au courant ...
Merci pour le reste des informations.
Cordialement.
Franck









Avatar
Raymond [mvp]
Bien sûr, un module standard est importable dans toutes les applis.
il faut que les noms de champ, variables et contrôles soient identiques;
pour être sûrs d'avoir les mêmes noms on crée une fonction Public et on
passe les noms en paramètres.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

Ok, merci ...
je voulais savoir est il possible de faire un module type et de l importer
dans plusieurs bases ?




Avatar
Franck
pr ma derniere auestion j ai trouver la solution c oui ... par contre je n
arrive pas boulcer sur les modules ... j ai bien reussi a creer une base qui
recense tous les fichiers .mdb
pe tu me donner une ebauche de script pr pouvoir lire les modules une fois
ke tu as loaliser le fichier .. merci bcp pr ton aide ...

"Raymond [mvp]" wrote:

tu as les mêmes fonctions que pour un formulaire, AllModules, For Each
etc.........

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

oui tu as raison ... par contre je ne vois pas comment je peux realiser
cette
aprtie :
3- boucler par automatisation access sur tous les modules vba
apres pour le remplacement j utilise la fonction :
ObjetModule.ReplaceLine(Ligne, Chaîne)

Merci de me tenir au courant ...
Merci pour le reste des informations.
Cordialement.
Franck









Avatar
Raymond [mvp]
quand tu es dans ta base:

Dim Mdl As AccessObject
For Each Mdl In CurrentProject.AllModules
Debug.Print Mdl.Name
Next Mdl


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

pr ma derniere auestion j ai trouver la solution c oui ... par contre je n
arrive pas boulcer sur les modules ... j ai bien reussi a creer une base
qui
recense tous les fichiers .mdb
pe tu me donner une ebauche de script pr pouvoir lire les modules une fois
ke tu as loaliser le fichier .. merci bcp pr ton aide ...



Avatar
Franck
justement comment je fais pr arriver a ouvrir la base c ca mon pb ...
parcourir mes modules en local j arrive ...
ms mon pb c ouvrir une base a partir de mon module et de voir si elle
contient des modules ...
merci bcp pr ton aide ...

"Raymond [mvp]" wrote:

quand tu es dans ta base:

Dim Mdl As AccessObject
For Each Mdl In CurrentProject.AllModules
Debug.Print Mdl.Name
Next Mdl


--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Franck" a écrit dans le message de news:

pr ma derniere auestion j ai trouver la solution c oui ... par contre je n
arrive pas boulcer sur les modules ... j ai bien reussi a creer une base
qui
recense tous les fichiers .mdb
pe tu me donner une ebauche de script pr pouvoir lire les modules une fois
ke tu as loaliser le fichier .. merci bcp pr ton aide ...









1 2