Declanchement macro a l'ouverture du classeur

[eduraiss]

Bonsoir le forum

Le code ci-dessous me permet de comparer deux listes je voudrais qu'il se déclanche a l'ouverture du classeur comment faire?

Merci a vous

Sub doublons_des_ateliers()

Dim pl As Range 'déclare la variable pl
Dim pl2 As Range 'déclare la variable pl2
Dim dest As Range 'déclare la variable dest
Dim cel As Range 'déclare la variable cel
Dim cel2 As Range 'déclare la variable cel2


Application.ScreenUpdating = False


'efface les aciens doublons
If Range("d65536").End(xlUp).Address <> "$d$1" Then
Range("d2:d" & Range("d65536").End(xlUp).Row).Clear
End If

Set pl = Range("A2:A" & Range("A65536").End(xlUp).Row) 'définit la variable pl
Set pl2 = Range("B2:C" & Range("B65536").End(xlUp).Row) 'définit la variable pl

For Each cel In pl 'boucle 1 : sur toutes les cellules de la plage pl

If cel.Value = "" Then GoTo suite1 'si la cellule est vide, passe à la suivante via la balise "suite1"

For Each cel2 In pl2 'boucle2 : sur toutes les cellules de la plage pl2

If cel2.Value = "" Then GoTo suite2 'si la cellule est vide, passe à la suivante via la balise "suite2"

If cel2.Value = cel.Value Then 'Condition : si il y a doublons
Set dest = Range("d65536").End(xlUp).Offset(1, 0) 'définit la variable dest
cel.Copy 'copie la cellule
dest.PasteSpecial (xlPasteValues) 'colle la valeur de la cellule
Exit For 'sort de la boucle 2
End If 'fin de la condition
suite2: 'balise
Next cel2 'prochaine cellule de la plage pl2

suite1: 'balise
Next cel 'prochaine cellule de la plage pl
Application.Run "DOUBLONS.xls!doublons_z2m2"
Application.Run "DOUBLONS.xls!doublons_z1az1bz3"

Application.CutCopyMode = False
Range("A1").Select

End Sub

 

[Spitnolan08]

Re : Declanchement macro a l'ouverture du classeur

Bonjour,
Code à placer dans ThisWorkbook :

Private sub Workbook_open()
doublons_des_ateliers
End sub

Cordialement

 

[eduraiss]

Re : Declanchement macro a l'ouverture du classeur

RE

Merci a toi efficacité maximun

Cordialement,