' On va traiter si le chemin est CORRECT , sinon on pourra recommencer OU
' Quitter la Sub
direction = Dir(chemin & "\*.xls")
If direction = "" Then
mes = MsgBox(" Le chemin entré est erroné ou ne comporte pas" & Chr(13) & _
" de fichiers Excel", vbOKCancel)
If mes = vbCancel Then alors = MsgBox(" voulez vous quitter l'application ?", vbYesNo)
If alors = vbYes Then
Exit Sub
Else
GoTo deb
End If
End If
' Fin du traitement de Verification du Chemin
'-------------------------------------------------
Nbfic = 0
While direction > ""
Nbfic = Nbfic + 1
Nom_proj(Nbfic) = direction
' Va mettre le NOM de la personne (fichier) en Ligne 5
Sheets("Cumul").Cells(5, Nbfic + 1).Value = Left(direction, (Len(direction) - 4))
Sheets("FRAIS").Cells(5, Nbfic + 1).Value = Left(direction, (Len(direction) - 4))
direction = Dir()
Wend
Call tri_nom ' Pour toujours avoir les noms dans les memes colonnes
' Traitement si un fichier "Nom" est dejà ouvert
For z = 1 To Nbfic
Nom_fic = chemin & "\" & Nom_proj(z)
If Fic_ouvert(Nom_fic) = True Then
MsgBox "Le fichier " & Nom_proj(z) & " est ouvert" _
& Chr(13) & "Il va Etre Fermé" & Chr(13) & "Si c'est le Programme , il doit être dans un autre Répertoire"
Workbooks(Nom_proj(z)).Close savechanges:=False
End If
Next z
' A partir d'ici tout est correct les fichiers ouverts ont été fermé
For x = 1 To Nbfic
Workbooks.Open(Filename:=chemin & "\" & Nom_proj(x)) _
.RunAutoMacros Which:=xlAutoOpen
Nom_p = Left(Nom_proj(x), (Len(Nom_proj(x)) - 4))
With Worksheets("RecapGéné")
der_lig = .Range("A65000").End(xlUp).Row
Call nom
For y = 6 To der_lig
P1 = .Cells(y, 1).Value ' N° de Projet du classeur "Total"
P2 = ThisWorkbook.Sheets("Cumul").Cells(y, 1).Value ' " " " du classeur "Nom.Prenom"
' Comme les projets sont tous dans le meme Ordre ( Ce fichier et ceux "Nom.prenom")
' On laisse sur la meme ligne , ex: P1 valeur en ligne 6 et P2 Aussi
If P1 = P2 Then
' comme on trouve les 2 N° identiques , on prend le Tps du "Nom_Prenom"
' et on cumule dans le fichier "Total_Projet" ( valeur précedente + nouvelle valeur)
ThisWorkbook.Sheets("Cumul").Cells(y, Col_Nom).Value = ThisWorkbook.Sheets("Cumul").Cells(y, Col_Nom).Value + .Cells(y, 3).Value
ThisWorkbook.Sheets("FRAIS").Cells(y, Col_Nom).Value = ThisWorkbook.Sheets("FRAIS").Cells(y, Col_Nom).Value + .Cells(y, 4).Value
End If
Next y
End With
Workbooks(Nom_proj(x)).Close savechanges:=False
Next x