excel a cessé de fonctionner

Bonjour cher ami développeur,

Je viens vers vous pour un problème relatif à excel je m'explique.
J'ai créé une macro me permettant de déplacer un onglet excel dans un autre classeur lorsque l'utilisateur clique sur un bouton.
Mon problème est que lors de l'activation de cette macro, il arrive qu'excel plante (on va dire une fois sur deux) et affiche le message

"excel a cessé de fonctionner". il cherche alors une solution puis me répare le fichier mais je souhaiterais que cela ne se produise plus et je ne sais pas du tout comment m'y prendre.

Pouvez vous m'éclairer ?
Si besoin voici le code que j'ai rédigé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub archivage() Application.ScreenUpdating = False Application.CutCopyMode = False   'si l'utilisateur confirme vouloir archiver l'affaire If MsgBox("Etes-vous certain de vouloir archiver cette affaire ?", vbYesNo, "Demande de confirmation") = vbYes Then 'on ouvre le fichier archive Set archive = Application.Workbooks.Open("F:\Pôles études\Cellule MDP\LDR\test automatisation de la VA\archive DDB.xlsm") 'on vient déplacer l'onglet juste avant l'onglet compiler ThisWorkbook.ActiveSheet.Move Before:=archive.Sheets("Compiler Va") 'on inscrit T dans la cellule G109 puis on remplace les données présentes par leur valeur (disparition des formules) ActiveSheet.Cells(109, 7) = "T" Range("A1:NO150").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False   'on referme le fichier archive archive.Close True 'Ferme en sauvant. MsgBox ("Projet archivé") End If     Application.CutCopyMode = True Application.ScreenUpdating = True   End Sub

---

Bonjour,

Pour des raisons de clarté, est ce que tu peux poster ton code entre balise # ([CODE], [ /CODE]) ?

Sinon j'ai du mal avec ta méthode Copier/Coller, tu n'est pas obliger de faire un "Select" ça alourdis ta procédure :

Code:

---

1 2 3 4 5 6

Range("A1:NO150").Select Selection.Copy   'Remplace par :   Worksheets("MaFeuille").Range("A1:NO150").Copy

---

Ensuite, quand tu écris une Range, il faut lui spécifier d'ou vient la Range, ça évite des erreurs.

Après je ne sais pas trop d'ou vient ton problème, mais je penche pour une erreur de mémoire, suite à plein de copy/paste. Il faut vider la mémoire, histoire de pas faire planter tous le bazar.

A copier dans un nouveau module, ou en tête de module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function EmptyClipboard Lib "user32" () As Long   Sub Clear_Clipboard() OpenClipboard 0 EmptyClipboard CloseClipboard End Sub

---

Et tu appelle ta procédure Clear_Clipboard à chaque fin d'instruction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub archivage() Application.ScreenUpdating = False Application.CutCopyMode = False   '[...]   Application.CutCopyMode = True   Call Clear_Clipboard Application.ScreenUpdating = True   End Sub

---

J'espère que ça t'aideras !

Bonjour, bonjour !

S'il n'y a besoin que de copier les valeurs, voir alors cette discussion …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Tout d'abord merci à vous deux pour votre retour.
J'ai essayé ton code Nico Chg mais le problème persiste. J'ai l'impression que c'est vraiment le fait de placer la feuille qui pose problème
Marc L tu as raison sur ce point. Toutefois il ne s'agis pas uniquement d'un copier coller car l'onglet doit disparaitre de son classeur d'origine et s'insérer dans le classeur archive

Tu as peut être des pistes ici et là.