Extract Tamb PV verif

Sub Extract()
' Extract Macro

'''''''''''''''Definition variable'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim lignedebut, lignefin, jour, mois, annee, semaine, minute, Nb_Lignes As Long
Dim T, HR, P As Long

Dim Datejour, CHEMIN, NOM_FICHIER  As String
Dim Nom_fichierPV As String
Dim Nom_onglet As String

Nom_fichierPV = ThisWorkbook.Name ' Nom de fichier ?
Nom_onglet = ActiveWorkbook.ActiveSheet.Name ' Nom de l'onglet ?
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Workbooks(Nom_fichierPV).Activate ' Sélection du bon fichier
Sheets(Nom_onglet).Select ' Sélection du bon onglet

''''''''''''''''Definition des diférents élements de date '''''''''''''''''''''''''''
Datejour = Cells(4, 12)
annee = DatePart("yyyy", Datejour, vbMonday, vbFirstFourDays)
mois = DatePart("m", Datejour, vbMonday, vbFirstFourDays)
semaine = DatePart("ww", Datejour, vbMonday, vbFirstFourDays) 'Modif comptage semaine en 2016 : 20160208
jour = DatePart("y", Datejour, vbMonday, vbFirstFourDays)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''Selection du chemin du fichier source'''''''''''''''''''''''''''''''''''''''''
CHEMIN = "\\ga04784\Tamb\" & annee & "\" & mois & "\" & semaine & "\" & jour & ".txt"
NOM_FICHIER = Right(CHEMIN, InStr(StrReverse(CHEMIN), "\") - 1)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''Extract des lignes interessantes ( heure h)'''''''''''''''''''''''''''''
heure = Cells(6, 12)
lignedebut = DatePart("h", heure, vbMonday, vbFirstFourDays) * 60 * 2 + DatePart("n", heure, vbMonday, vbFirstFourDays) * 2
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''ouverture du fichier source'''''''''''''''''''''''''''''''''''''''''''''
Workbooks.OpenText Filename:=CHEMIN, Origin _
    :=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
    xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
    Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
    Array(2, 1)), TrailingMinusNumbers:=True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''Calcul direct des valeurs''''''''''''''''''''''''''''''''''''''''''''

T = Round(Cells(lignedebut, 4), 1) ' Arrondi de T avec 1 chiffre apres la virgule
HR = Round(Cells(lignedebut, 7), 1) ' Arrondi de Hr avec 1 chiffre apres la virgule
P = Round(Cells(lignedebut, 8), 0) ' Arrondi de P avec 0 chiffre apres la virgule
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''Ecriture des valeurs dans les cases adequates''''''''''''''''''''''''
Windows(Nom_fichierPV).Activate
Sheets(Nom_onglet).Select

Cells(9, 11) = T & " °C" ' Ecriture de T dans la cellule avec l'unité °C
Cells(10, 11) = HR & " %" ' Ecriture de HR dans la cellule avec l'unité %RH
Cells(11, 11) = P & " mBar" ' Ecriture de T dans la cellule avec l'unité mBar
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''fermeture du fichier de points'''''''''''''''''''''''''''''''''''
Application.CutCopyMode = False
Workbooks(NOM_FICHIER).Close SaveChanges:=False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''Retour onglet initial'''''''''''''''''''''''''''''''''''''''''''
Windows(Nom_fichierPV).Activate
Sheets(Nom_onglet).Select
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub