Erreur Automation, l'objet invoqué s'est déconnecté des ses clients

Bonjour le forum,

J'ai un problème sur l'un des fichiers sur lequel je travail :

Lorsque je lance la macro nommé : ALIM_LD

J'obtiens l'erreur : -2147417848 (80010108), Erreur automation, l'objet invoqué s'est déconnecté des ses clients

La ligne de la macro : le premier après la copie de RACINE[POSTE]

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

La macro sert à créer une base de données d'information filtré qui tire ses information du tableau alimenter par un userform "SAISIE". Celle-ci alimente les comboboxs de l'userform "SAISIE" ainsi que les des listes déroulantes.

L'erreur se lance au moment de la fermeture (even.worksheet : beforeclose)

Merci d'avance pour votre aide !

Bonjour,

Dans "ThisWorkbook" >

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call ALIM_LD
    Call COPIE_LD
End Sub

Tu appelles deux macros dont COPIE_LD ... puis, à la fin de ALIM_LD > tu appelles à nouveau COPIE_LD

Ceci dit ...

Dans ALIM_LD > tu tentes de copier 13 lignes ... mais les cibles n'ont pas toutes 13 lignes ... >> à corriger.

Il y a aussi l'utilisation abusive de .Select ... lesquels peuvent presque tous être éliminés.

Un essai ...

Sub ALIM_LD()

    Application.ScreenUpdating = False

    Sheets("BASE").Select
    Range("POSTE[POSTE]").ClearContents
    Range("PERSONNEL[PERSONNEL]").ClearContents
    Range("FORMATEUR[FORMATEUR]").ClearContents
    Range("FORMATION[FORMATION]").ClearContents
    Range("TYPE[TYPE]").ClearContents

    Range("RACINE[POSTE]").Copy
    Range("J3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("RACINE[PERSONNEL]").Copy
    Range("K3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("RACINE[FORMATEUR]").Copy
    Range("L3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("RACINE[FORMATION]").Copy
    Range("FORMATION[FORMATION]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("RACINE[TYPE]").Copy
    Range("N3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("POSTE[POSTE]").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("POSTE[POSTE]").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("PERSONNEL[PERSONNEL]").Select

    ActiveSheet.Range("PERSONNEL[PERSONNEL]").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("FORMATEUR[FORMATEUR]").Select

    ActiveSheet.Range("FORMATEUR[FORMATEUR]").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("FORMATION[FORMATION]").Select

    ActiveSheet.Range("FORMATION[FORMATION]").RemoveDuplicates Columns:=1, Header:=xlYes
    Range("TYPE[TYPE]").Select

    ActiveSheet.Range("TYPE[TYPE]").RemoveDuplicates Columns:=1, Header:=xlYes

    Columns("J:N").Select
    Columns("J:N").EntireColumn.AutoFit

    Call COPIE_LD    ' <<< Déjà appelé dans Workbook_BeforeClose

    Sheets("AFFICHAGE").Select

    Application.ScreenUpdating = True

End Sub

ric

Bonjour ric,

merci pour la réponse.

Je viens en effet de remarquer le problème que j'ai rectifié et maintenant j'obtiens ceci :

Erreur d'exécution : -2147417848 (80010108)

La méthode 'PasteSpécial' de l'objet 'Range' à échoué

sur la ligne :

Range("J3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Une fois que le message d'erreur apparait, j'ai à peine le temps de voir la ligne sélectionnée que excel se ferme

Bonjour,

Ici, je n'ai pas d'erreur.

Est-ce que ce fichier fonctionne bien chez toi ?

ric

ric,

ton fichier fonctionne parfaitement chez moi ! Ce que je comprend pas d'ailleurs

il me reste quelques trucs à faire dessus et j'espère qu'il restera stable!

merci beaucoup !