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 |
Partager