2 fichiers Excel identiques

Bonsoir forum,

Ya til un moyen "macro" pour confirmer que le fichier F2 copié du fichier F1 n'as pas eu de changement, sur tout les niveaux, contenu et format?!

Le cas contraire localiser la cellule qui as subit un changement?

Crdt,

Bonsoir,

As tu réfléchi à mettre un mouchard dès l'ouverture du fichier.

Et ainsi tu obtiendras tous les evenementts intervenus sur ton ton ou tes fichiers (voir un mouchard sur le fichier source).

Au plaisir de te relire.

Amitié

Air2

Re

Une idée que je trouve "Diabolique", mais réalisable Air_2

Est si c'est par maco, l'intervenant pourra ne pas activer les macro!

à te relire

Bonsoir,

La procédure serait écriite sous une procédure privée et les informations seraient envoyées dans une feuille masquée, ou dans un module; dès l'activation de la feuille de travail.

Je vais essayer de t'envoyer un exemple, cette semaine,ou les experts le feront plus rapidement que moi.

Au plaisir

Amitié

Air_2

Re

Ca marche Air_2

Crdt

Bonsoir Kikim

Tu trouveras un début de code, qui peut être améliorer par soit NAD DAN ou Mr DUBOIS ou autres désolé si je ne vous ai pas tous cité:

C'est une première ébauche pour savoir si c'est ce que tu attendais

https://www.excel-pratique.com/~files/doc2/waKy4Proposition.xls

Au plaisir de te et vous relire, moi aussi égoïstement je vais en avoir besoin

Amitié

Air_2

Oups

j'ai oublié le format

Méa culpa

Je te refais ca un peu plus tard

Désolé

Désolé

Mais c'est pratiquement la même chose.....je l'espère

Amitié

Air_2

Bonjour Forum,

C'est impecable Air_2, Bravo un travail remarquable.

Reste à modifier la macro de sorte qu'elle prenne en charge la Feuille1 et les Feuilles à créer "Feuille4 par exemple".

Crdt,

Bonjour Kikim,

A chaque nouvelle feuille, il te suffit de coller le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count = 1 Then
    Nouvelle = Target.Value

        Else
        Nouvelle = "Valeur non référencée"
    End If

            Adresse = Target.Address
            feuille = Target.Worksheet.Name

            Call Informations

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Count = 1 Then
    Ancienne = Target.Value

        Else
        Ancienne = "Valeur inconnue"

End If
End Sub

je vais travailler un code dès l'ouvertur du workbook il lance une input box et qu'il copie le code, l'inputbox serait le nombre de nouvelle feuille à créer

Dis mois si cela te conviendrait?

Amiitié

Air_2