erreur automation. L'objet évoqué s'est déconnecté de ses clients
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 :
Citation:
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:
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