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 !