Macro avec tableau de concordance

Bonsoir à tous,

voici mon problème, j'ai 2 fichiers, la société alpha et la société beta. Dans chaque fichier les budgets mensuels.

Les 2 fichiers ne sont pas identiques, dans la colonne A sur l'un des fichiers il y a plus de lignes. J'ai mis 2 fichiers mais j'en aurais beaucoup ce qui veut dire qu'il faut boucler sur chaque fichier et qu'en fonction du nom (si alpha ou betta ) la traitement sera différent (mais ça je pourrais le faire)

j'ai un 3 ème fichier(modele) avec 2 tables de correspondance 1 pour alpha et l'autre pour betta et un onglet pour vous montrer ce que je souhaite obtenir.

Dans mon tableau, j'ai donc besoin du numéro de societé, du code correspondant au libellé (table de correspondance), le mois et le montant. Le problème que je rencontre c'est comment afficher mon code de libellé. Mon libellé et code de libellé sont fixe ils seront toujours sur les mêmes lignes. et je ne souhaite traiter seulement les lignes ou il y a les libélles. Tout doit se passer dans le fichier modele, je ne peux mpas modifier les fichier alpha et betta.

J'espère avoir réussi à vous faire comprendre mon problème et vous avoir donné l'envie de m'aider

Merci d'avance pour votre aide.

10modele.xlsm (23.30 Ko)

Bonjour

Pour commencer car je ne sais pas si j'ai tout compris

Tous les fichiers dans le même répertoire

Bon finalement j'ai bien expliqué car tu as tout compris!!

Je teste et reteste et je ne vois pas d'erreur!!! j'avais juste inversé les tableaux de correspondance ce qui donnait une erreur dans les libellé.

Est-ce qu'il est possible de ne pas reporter les montants a zéro ou vide?

En tout cas pour un premier jet c'est top!!

Merci beaucoup

Bonjour

A bien vérifier avec ce fichier

Au top!! merci beaucoup.

J'ai remarqué que quand un fichier est ouvert la macro ne le traite pas. J'ai essayé d'y incorporer une macro qui m’avertit si des fichiers sont ouvert mais à chaque fois ça me met fichier ouvert.

J'ai utilisé une fonction trouvée trouvé sur le site de microsoft

Sub TestFileOpened()

    ' Test to see if the file is open.
    If IsFileOpen("c:\Book2.xls") Then
        ' Display a message stating the file in use.
        MsgBox "File already in use!"
        '
        ' Add code here to handle case where file is open by another
        ' user.
        '
    Else
        ' Display a message stating the file is not in use.
        MsgBox "File not in use!"
        ' Open the file in Microsoft Excel.
        Workbooks.Open "c:\Book2.xls"
        '
        ' Add code here to handle case where file is NOT open by another
        ' user.
        '
    End If

End Sub

' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error occurs because there is
' some other problem accessing the file.

Function IsFileOpen(filename As String)
    Dim filenum As Integer, errnum As Integer

    On Error Resume Next   ' Turn error checking off.
    filenum = FreeFile()   ' Get a free file number.
    ' Attempt to open the file and lock it.
    Open filename For Input Lock Read As #filenum
    Close filenum          ' Close the file.
    errnum = Err           ' Save the error number that occurred.
    On Error GoTo 0        ' Turn error checking back on.

    ' Check to see which error occurred.
    Select Case errnum

        ' No error occurred.
        ' File is NOT already open by another user.
        Case 0
         IsFileOpen = False

        ' Error number for "Permission Denied."
        ' File is already opened by another user.
        Case 70
            IsFileOpen = True

        ' Another error occurred.
        Case Else
            Error errnum
    End Select

End Function
        

C'est bon j'ai trouvé!!

Encore merci pour ton aide

Rechercher des sujets similaires à "macro tableau concordance"