Bonjour,

j'ai créé un programme qui permet de récupérer le contenu de plusieurs fichiers au même format pour générer un seul fichier excel de consolidation de toutes les lignes récupérées de chaque fichier lu.

J'ai une erreur d'execution au moment de la copie du contenu d'un des fichier dans le fichier principal ( code souligné ) et le message d'erreur suivant :

Erreur execution '-2147417848 (80010108)'
Erreur automation
L'objet invoqué s'est déconnecté de ses clients
Pour infos, la copie correspond à la copie du contenu de cellules ( avec parfois presque 200 caractères ) de 13 lignes pour 37 colonnes

Voici l'extrait du code :

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
' On paramètre les noms des fichiers à ouvrir
    MyFile = Dir(MyRep & "Suivi incidents RO_*.xls")

    ' On récupère les données des fichiers des gestionnaires
    Do While MyFile <> ""    ' Commence la boucle.

        ' On reférence le classeur et la feuille incident du fichier de travail
        Workbooks.Open MyRep & MyFile, ReadOnly:=True
        Set wbIncidentw = Workbooks(MyFile)
        Set wsIncidentw = wbIncidentw.Worksheets("Incidents")              
        
        ' On copie et on colle les données de la feuille "Incidents"
        wbIncidentw.Application.CutCopyMode = False
        startS = IIf(copyPaste, 7, 7)                                  ' Début de la sélection
        ends = wsIncidentw.Range("A7").CurrentRegion.Rows.Count        ' Fin de la sélection
        If ends > 1 Then
            wsIncidentw.Activate
            wsIncidentw.Rows(startS & ":" & ends).Copy wsIncident.Range("A" & intligneIN)            
            wbIncidentw.Application.CutCopyMode = False
            copyPaste = True
        End If

        
        ' On quitte sans sauvegarder
        wbIncidentw.Close savechanges:=False
        
        'on revient sur le fichier de synthèse
        Windows("Fichier incidents RO ETO 2011.xls").Activate
        
        'on récupère, après chaque copie, le nouveau numéro de ligne
        intligneIN = getLigneEnCours("Incidents")
                
        MyFile = Dir
    
    Loop
Merci par avance pour votre aide