MACRO qui modifierait en masse le code de plusieurs fichiers xlsm

Bonjour,

je dois modifier en masse un nombre conséquents de fichiers excel correspondant chacun à un client (150 fichiers excels)

Ces fichiers sont strictement identiques dans leur structure, ce qui change étant les données intrinsèques de chaque clients. Le reste est exploité via des macros dont userform.

J'ai eu besoin de modifier le userform mais changer un par un chaque fichier serait trop lourd. Une idée de code qui me permettrait de faire cette actionde façon massive ?

merci

Bonjour

Macro a tester

Sub ModifierUserForm()
    Dim chemin As String
    Dim fichier As String
    Dim wb As Workbook
    Dim uf As Object ' Pour le UserForm

    ' Spécifiez le chemin vers le dossier contenant les fichiers
    chemin = "C:\Chemin\Vers\Vos\Fichiers\"

    ' Récupérer le premier fichier Excel dans le dossier
    fichier = Dir(chemin & "*.xls*")

    ' Boucle à travers tous les fichiers Excel dans le dossier
    Do While fichier <> ""
        ' Ouvrir le fichier
        Set wb = Workbooks.Open(chemin & fichier)

        ' Modifier le UserForm ici
        ' Exemple : Supposons que vous vouliez changer le titre du UserForm
        On Error Resume Next ' Pour éviter les erreurs si le UserForm n'existe pas
        Set uf = wb.VBProject.VBComponents("NomDeVotreUserForm") ' Remplacez par le nom de votre UserForm

        If Not uf Is Nothing Then
            uf.Properties("Caption") = "Nouveau Titre" ' Changez le titre selon vos besoins
            ' Ajoutez d'autres modifications au UserForm ici
        End If
        On Error GoTo 0

        ' Enregistrez et fermez le fichier
        wb.Close SaveChanges:=True
        ' Récupérer le prochain fichier
        fichier = Dir
    Loop

End Sub

Merci pour le retour.

En fait, je me suis mal exprimée mais je vais essayé de l'adapter car je souhaite susbstituer le userform par un autre qui contient les différentes modifications (comme j'en ai fait un certain nombre, il m'est plus facile de substituer le userform initial par le nouveau).

si vous avez des idées, je suis preneuses