Gérer plusieurs fichiers de façon identique

Question

J'ai un fichier Excel qui permet de faire des suivis, individuels. Ce fichier comporte plusieurs onglets, du code, partagé sur un serveur ... mais ils ont tous une trame identique. Je cherche des astuces pour gérer ces fichiers de façon identique : c'est à dire que lorsque je souhaite faire une modification de la trame "vierge", cela se répercute sur l'ensemble des fichiers individuels. Est-ce possible de gérer cela? Et si oui, quel serait le meilleur moyen ? J'ai lu des choses sur XLA mais je ne comprend pas vraiment le fonctionnement ni si cela s'adapte bien à ce cas précis. Merci par avance pour vos conseils Bien cordialement...

Abderrahmane BENALI · Accepted Answer

Bonjour,

Concernant votre problème de hier à 15h35 vous pouvez passer le classeur (Workbook) qui lance la macro comme un argument aux sous-routines Creation_Prepa et Modification_Prepa. A tester :

Modifiez la sous-routine Export pour passer le Workbook WK comme un argument aux sous-routines Creation_Prepa et Modification_Prepa :

Sub Export(WK as Workbook)

    Dim wk_fichier_recap_prépa As Workbook
    Dim ws_feuille_recap_prépa As Worksheet
    Dim tb As ListObject

    'définition des feuilles et fichier externe
    Set wk_fichier_recap_prépa = Application.Workbooks.Open("C://*************.xlsm")
    Set ws_feuille_recap_prépa = wk_fichier_recap_prépa.Sheets("Récap prépa")

    'définition du tableau de destination
    Set tb = ws_feuille_recap_prépa.ListObjects("Tableau1")

    ref = WK.Sheets("Prépa devis").Cells(11, 37)

    With tb
        If .ListRows.Count = 0 Then Exit Sub
        If IsError(Application.Match(ref, tb.ListColumns(22).DataBodyRange, 0)) Then 
            Call Creation_Prepa(WK) 
        Else 
            Call Modification_Prepa(WK)
        End If
    End With

End Sub

Ensuite, modifiez la sous-routine Creation_Prepa pour accepter un argument Workbook et utiliser cet argument pour définir wk_fichier_prepa:

Sub Creation_Prepa(WK as Workbook)

    'identifier les variables fichier et feuilles
    Dim wk_fichier_prepa As Workbook
    Dim ws_feuille_prepa As Worksheet

    Dim wk_fichier_recap_prepa As Workbook
    Dim ws_feuille_recap_prepa As Worksheet

    Dim i As Long
    Dim ligne As ListRow

    Dim tb As ListObject

    'définition des feuilles et fichier interne
    Set wk_fichier_prepa = WK
    Set ws_feuille_prepa = wk_fichier_prepa.Sheets("Prépa devis")

    'définition des feuilles et fichier externe
    Set wk_fichier_recap_prepa = Application.Workbooks.Open("C://*************.xlsm")
    Set ws_feuille_recap_prepa = wk_fichier_recap_prepa.Sheets("Récap prépa")

    'définition du tableau de destination
    Set tb = ws_feuille_recap_prepa.ListObjects("Tableau1")

    '... Le reste de votre code ...

End Sub

Faites la même chose pour Modification_Prepa.

Le classeur qui lance la macro est passé à Export comme WK, puis WK est passé à Creation_Prepa ou Modification_Prepa pour être utilisé dans la définition de wk_fichier_prepa. J'espere que cela vous aidera !

Abderrahmane BENALI · Accepted Answer

Oui exactement, lors de l'exécution d'une macro, Excel vérifie toutes les références déclarées, même si la portion de code n'est pas censée s'exécuter. C'est pourquoi il est important de s'assurer que toutes les références sont correctes ^^...

78chris · Answer

Concernant le contenu des onglets, même avec l’utilisation d'un modèle xlt, la modification du modèle n'impacte pas les classeurs créés à partir du modèle. Le code peut être mis dans un complément xlam partagé et sa modification impacte donc son usage...

78chris · Answer

Il vaut mieux nommer les tableaux structurés de façon signifiante plutôt que de garder le nom automatique Si le classeur contenant la cellule est celui qui vient d'être ouvert utiliser wk_fichier_recap_prépa au lieu ActiveWorkbook de façon générale éviter les accents dans les noms et ne jamais utiliser Active... : c'est trop flou donc casse gueule Si c'est le classeur qui lance prévoir une sub à laquelle on passe un ou plusieurs paramètres, nom du classeur appelant notamment...

78chris · Answer

RE

Il faut un bout de code dans le fichier qui appelle l'Export :

Par exemple

Sub AppelExport()
Go = Application.Run("Test.xlam!Module1.Export", ThisWorkbook)
End Sub

Le code Export de Text.xlam est dans le Module1 et commence par

Sub Export(WK As Workbook)

Il récupère donc l'objet appelant qui contient la feuille Prépa devis

78chris · Answer

Puisque le procédure appelante passe le nom du classeur appelant il faut bien évidemment s'en servir ref = WK.Sheets("Prépa devis").Cells(11, 37)...

Abderrahmane BENALI · Answer

Bonjour 78chris, FBidee,

Un code qui pourrait être teste dans le complément (.xlam) :

Sub Export(WK as Workbook)

Dim wk_fichier_recap_prépa As Workbook
Dim ws_feuille_recap_prépa As Worksheet
Dim tb As ListObject

'définition des feuilles et fichier externe
    Set wk_fichier_recap_prépa = Application.Workbooks.Open("C://*************.xlsm")
    Set ws_feuille_recap_prépa = wk_fichier_recap_prépa.Sheets("Récap prépa")

'définition du tableau de destination
 Set tb = ws_feuille_recap_prépa.ListObjects("Tableau1")

    ref = WK.Sheets("Prépa devis").Cells(11, 37)

    With tb
        If .ListRows.Count = 0 Then Exit Sub
        If IsError(Application.Match(ref, tb.ListColumns(22).DataBodyRange, 0)) Then MsgBox ("Il n'y a rien") Else MsgBox ("Il y a une correspondance")
    End With

End Sub

Et dans le fichier qui appelle l'export :

Sub AppelExport()
Go = Application.Run("Test.xlam!Module1.Export", ThisWorkbook)
End Sub

Lorsque la fonction "Export" est appelée, l'objet Workbook actif (dans ce cas, le classeur contenant la macro d'appel) est passé en tant que paramètre à la fonction "Export". Au sein de cette fonction, l'objet Workbook est désigné par "WK", et est donc utilisé pour faire référence à la feuille de calcul et à la cellule spécifique.

78chris · Answer

RE

Il faut transmettre le WK de sub en sub

If IsError(Application.Match(ref, tb.ListColumns(22).DataBodyRange, 0)) Then Creation_Prepa(WK) Else Modification_Prepa(WK)

Il faut que tu fasses un schéma : du point de départ au point d'arrivée.

Quelle sub démarre, conditions et appel d'une autre sub selon résultat, du début à la fin du processus et ensuite à quoi chaque sub se réfère et donc ce qui est à transmettre d'une sub à une autre

Sinon sans cette vue d'ensemble tu vas re coincer à chaque appel ou modif...