Discussion :

[4Adjax]

Bonjour,

j'a créé une macro ouvrant un classeur A, allant chercher des données, les copiant et les collant dans le classeur B, et fermant le classeur A.

Ma macro fonctionne très bien, à ceci près qu'il est impossible ensuite de lancer la moindre macro, et même d'afficher la liste des macros, et ce dans tous les classeurs d'ouverts. Je suis obligé de fermer Excel pour pouvoir de nouveau exécuter une autre macro.

D'où vient ce problème et comment le résoudre ?

Merci,

4A

ANNEXE : le code

Code MaMacro :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Sub MaMacro()
Dim laDate As String, CelDate As Range ', lgn As Long
Dim leSuivi As String, KW As String
 
leSuivi = ActiveWorkbook.Name
With Worksheets("suivi jour")
    .Range("A1:A368").Select
    laDate = Range("A3").End(xlDown).Value
    ligne = Range("A400").End(xlUp).Row
End With
 
'ouverture kw
kwPath = ThisWorkbook.Path & "/" & "kw.xls"
Workbooks.Open Filename:=kwPath, CorruptLoad:=XlCorruptLoad.xlRepairFile
KW = ActiveWorkbook.Name
 
With Worksheets("Récupéré_Feuil1")
    Sheets("Récupéré_Feuil1").Select
    Set CelDate = .Range("A1:A45").Find(laDate, LookIn:=xlValues)
    .Range("A5:A38").Select
    laFin = Range("A5").End(xlDown).Row
 
If CelDate Is Nothing Then
    MsgBox ("Aucune donnée à extraire")
    Exit Sub
Else
    llaDate = CelDate.Row + 1
End If
End With
'Réorganisation des données dans le classeur KW avant la copie vers SUIVI
Range(Cells(llaDate, 1), Cells(laFin, 2)).Copy
Cells(60, 1).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
 
Range(Cells(llaDate, 8), Cells(laFin, 12)).Copy
Cells(60, 3).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
 
laNif = 60 - llaDate + laFin
Range(Cells(60, 1), Cells(laNif, 7)).Copy
 
Workbooks(leSuivi).Activate
Worksheets("suivi jour").Activate
 
Cells(ligne + 1, 1).Select                      'OK
ActiveCell.PasteSpecial Paste:=xlPasteValues    'OK
 
'Conversion des String en valeurs numériques et valeurs positives ou nulles
Call Convert(ligne + 1, ligne + 1 - llaDate + laFin)
 
Workbooks(KW).Activate
'Vidage du le presse papier et fermeture de KW
Range("A1").Copy
ActiveWorkbook.Close SaveChanges:=False
End Sub

[mnarchi]

Bonjour,

as-tu créé par ailleurs un gestionnaire d'erreurs?

[4Adjax]

Non, pas encore.

J'en crée un et te tiens au courant des résultats.

EDIT :

Je viens d'en créer un. Effectivement, il y a erreur 0, ce qui est signe de bon déroulement de la macro, non ?

[PPz78]

Salut,

n'y a t-il pas un risque de blocage avec l'instruction

Code :

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

1
2
ActiveWorkbook.Close SaveChanges:=False
End Sub

la macro est fermée, elle ne peut pas exécuter la dernière instruction.

Peux tu faire un test sans ce Close ?

PPz

[4Adjax]

Effectivement, sans ce close, le problème disparaît.

Donc dans ce cas, comment fermer l'autre classeur automatiquement sans causer de conflit de ce type ?

Merci.

[BenjGe]

je pige pas pourquoi ça freeze. Réécris le 3 dernières lignes comme ceci:

au lieu de :

Code :

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

1
2
3
4
Workbooks(KW).Activate
'Vidage du le presse papier et fermeture de KW
Range("A1").Copy
ActiveWorkbook.Close SaveChanges:=False

ceci:

Code :

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

1
2
application.cutcopymode=false
Workbooks(KW).Close SaveChanges:=False

est ce que le classeur qui est ouvert par la macro n contient pas une macro sur l'évènement before_close?