Discussion :

[Capsule]

Bonjour,

J'ai une macro qui update une sheet puis la copie à la fin d'un autre workbook
et repete cette opération plusieurs fois.

En général tout se passe bien mais par moment, le message d'erreur suivant apparait sans raison apparente:

Runtime error '-2147417848 (80010108)'

Automation error
The object invoked has disconnected from its clients

Du coup, excel se crash, je perds mes données et je dois rebooter le oc....



Qqn sait-il comment résoudre ce problème ???

[ouskel'n'or]

Si ta macro n'est pas trop longue, tu peux la mettre ici.
Apparemment c'est une déconnection du réseau... Mais ça peut aussi ressembler à une saturation de mémoire. Alors les questions rituelles :
Déclares-tu toutes tes variables ? Place cette ligne en tête de module, avant la première macro

Code :

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

Option Explicit

Tu auras une erreur sur toutes les variables non déclarées et tu pourras les déclarer.
Seconde option : Tu as des goto dans une boucle... C'est radical !
Donc, pas de goto.
Enfin, il y a plein d'autres possibilités, sois rassuré mais sans ton code, pas de salut
Tu nous montres...
A+

[Capsule]

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
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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub ERCompleteProcess()

Dim ShortCountry As String
Dim Country As String
Dim ERCountry As String
Dim Template As String
Dim OutputFile As String
Dim OutputFileName As String
Dim Manf As String
Dim ManfShort As String


' Create sheet per country

    OutputFileName = Range("F21")
    
    Template = ActiveWorkbook.Name
    
    Workbooks.Open Filename:= _
        "O:\Final value file.xls"
        
    OutputFile = ActiveWorkbook.Name
    
    Windows(Template).Activate
    
    Sheets("Start Page").Select
    Range("D38").Select
    
    Set DataRange = ActiveSheet.Range(Selection, Selection.End(xlDown))
        
    For Each c In DataRange
    
        c.Select
        Country = ActiveCell
        ShortCountry = ActiveCell.Offset(0, 2)
        ERCountry = ActiveCell.Offset(0, 3)
    
        ' Put TM1 to current country
        
            Range("f18") = Country

        ' Put ER country name
        
            Sheets("Output").Select
            Range("A11") = ERCountry
        
        ' Process for current country
            
            Call ERCountryProcess
        
        ' Copy and paste the output sheet in final output file
        
            Workbooks(Template).Sheets("Output").Select
            Workbooks(Template).Sheets("Output").Copy After:=Workbooks(OutputFile).Sheets(Workbooks(OutputFile).Sheets.Count)        
        ' Value copy and Renaming the output sheet with country name
        
            Cells.Select
            Range("AA48").Activate
            Selection.Copy
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                False, Transpose:=False
            Sheets("Output").Select
            Sheets("Output").Name = ShortCountry
            Range("P14").Select
            Application.CutCopyMode = False
            
        Windows(Template).Activate
        Sheets("Start Page").Select
    Next
Windows(OutputFile).Activate
    ActiveWorkbook.SaveAs Filename:="O:\" & OutputFileName & ".xls"

End Sub

Voilà le code, j'ai mis enrouge là où il bug

[ouskel'n'or]

Template est un objet Excel

Représente un modèle de document. L'objet Template est membre de la collection Templates. Cette collection contient tous les objets Template disponibles.

Change de nom !
A+

[COCONUT2]

Donc on ne peut pas nommer une variable par un des noms spécifiques d'excel?

Donc si par exemple je veux créer une routine qui gère les sousvetements de ma femme, je ne peux pas avoir une variable qui s'appellerait String?

Code :

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

dim string as integer

(Question sérieuse, meme si il y a un peu d'humour derrière!)

[ouskel'n'or]

Ben non, mais avec

Code :

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

Dim FicelleDerrièreEtSlipDevant as integer

tu peux