Discussion :

[drice]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nico Chg]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Marc-L]

Bonjour, bonjour !

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

__________________________________________________________________________________________

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

[drice]

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

[Nico Chg]

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