Appel d'une procédure d'un classeur à l'autre...?

Bonjour à tout le monde,

Mon problème est le suivant: J'ai un classeur (Bilan2008.xlsx) ouvert en arrière plan, dans lequel j'écris par l'intermédiaire du Userform "frm_Montant" de mon classeur pilote "Compa Petouliers".

J'ai 2 macros dans 2 modules différents "Mod_Grille" et "Mod_CopierFormule" qui fonctionne bein dans mon classeur pilote et que j'essaie désespérément d'utiliser pour la feuille "CONCOURS INTERNE" de mon classeur "Bilan2008.xlsx"...

Et bien entendu, je n'y arrive pas...

quelqu'un a-t-il une solution pour me sortir de ce probléme...?

Mes fichiers joints:

Bonjour,

Ouussspppp!!!! ... j'ai zappé que tu as mentionnée au bas de l'autre fil ... "Je vais créer un au post pour ce nouveau problème que je n'arrive pas à résoudre."

Désolé pour mon écoute non attentive...

J'ai répondu dans l'autre fil ... et y ait proposé une solution.

ric

Bonjour,

En me relisant, je réalise que je n'ai répondu qu'à un seul élément : "Mod_CopierFormule" .

Et je n'ai pas dû tout regarder "Mod_Grille" ... j'y cours illico...

ric

Bonjour,

Les grilles ...

Dans le module "Mod_Grille", j'ai ajouté la macro BGrille ... B pour Bilan

Sub BGrille()

'==========================================
' Dessine la grille à chaque enregistrement dans bilan
'==========================================
   With Fbilan.Range("A" & BLig & ":G" & BLig)
        .Borders.LineStyle = xlContinuous
        .Borders.ColorIndex = 0
        .Borders.TintAndShade = 0
        .Borders.Weight = xlThin
    End With
End Sub

Il ne reste à ajouter la ligne BGrille après Grille ... BLig étant publique, numéro de ligne, encore une fois, suit...

Extrait du code du bouton Valider :

 If opt_CreditMutuel = True Then
      If opt_Crediter = True Then
         If opt_Cheque = True Then

            InsertLigne
            iLig = iLig - 1

            ' Ecrit la date en colonne A
            Cells(iLig, 1) = Txt_Date
            Fbilan.Cells(BLig, 1) = Txt_Date
            ' Ecrit le libellé en colonne B
            Cells(iLig, 2) = cbo_Poste.Text & "/ " & cbo_Beneficiaire.Text & "/ " & cbo_Motif.Text
            Fbilan.Cells(BLig, 2) = cbo_Poste.Text & "/ " & cbo_Beneficiaire.Text & "/ " & cbo_Motif.Text

            ' Ecrit le mode de paiement en colonne C "Paiement"
            Cells(iLig, 3) = "CH" & ": " & txt_N°Cheque
            Fbilan.Cells(BLig, 3) = "CH" & ": " & txt_N°Cheque

            ' Ecrit le montant en colonne E "Crédits"
            Cells(iLig, 5) = CLng(txt_Montant.Value)
            Fbilan.Cells(BLig, 5) = CLng(txt_Montant.Value)

            CopieFormuleCreditMutuel

            Sheets("C.MUTUEL").Range("A" & iLig & ":G" & iLig).Select
            Grille
            BGrille  ' grille fichier Bilan

         Else
         End If
      End If
   End If

ric

Rebonjour,

Un autre point que j'ai constaté, les soldes des tableaux dans Bilan, il faudrait changer la formule pour celle du TCD, elle fonctionne bien. =SOMME(INDIRECT("E3:E"&LIGNE()-1))

Je te retourne ton fichier avec les modifications ... si ça peut aider à suivre mes entourloupettes.

ric