Bonsoir le forum,
Par macro, j'ouvre un fichier en fonction de sa date. Ensuite je dois revenir dessus plusieurs fois pour y récupérer des infos. Actuellement je le ferme et l'ouvre à chaque fois... je ne trouve pas le code pour l'activer tout simplement...
Ci-dessous l'extrait de la marco...
Merci d'avance pour votre aide
Bbobb
Nom_fic = "C:\Users\Pascal\Desktop\Macro ch p 2010\Test CRT auto\Test macro web CRT\ACT001_" & Valannee & "." & ValMois & "." & Valjour & ".*.xls"
Workbooks.OpenText Filename:=Nom_fic 'ouverture du fichier
'chercher nombre de transaction en espèces
Dim Est As Range, Col As Byte, CaG As Single
Set Est = Cells.Find("Espèces")
If Est Is Nothing Then
CaG = 0
Else
Col = Est.Column
Set Est = Cells.Find("Total Nb paiements")
CaG = Cells(Est.Row, Col)
End If
Cells(Est.Row, Col).Select
ActiveWindow.Close 'fermeture du fichier
Workbooks("Chiffre d'affaire global.xls").Activate 'fichier ouvert
ActiveSheet.Cells(6, col_date) = CaG 'ou ailleurs
Workbooks.OpenText Filename:=Nom_fic 'reouverture du fichier
Par macro, j'ouvre un fichier en fonction de sa date. Ensuite je dois revenir dessus plusieurs fois pour y récupérer des infos. Actuellement je le ferme et l'ouvre à chaque fois... je ne trouve pas le code pour l'activer tout simplement...
Ci-dessous l'extrait de la marco...
Merci d'avance pour votre aide
Bbobb
Nom_fic = "C:\Users\Pascal\Desktop\Macro ch p 2010\Test CRT auto\Test macro web CRT\ACT001_" & Valannee & "." & ValMois & "." & Valjour & ".*.xls"
Workbooks.OpenText Filename:=Nom_fic 'ouverture du fichier
'chercher nombre de transaction en espèces
Dim Est As Range, Col As Byte, CaG As Single
Set Est = Cells.Find("Espèces")
If Est Is Nothing Then
CaG = 0
Else
Col = Est.Column
Set Est = Cells.Find("Total Nb paiements")
CaG = Cells(Est.Row, Col)
End If
Cells(Est.Row, Col).Select
ActiveWindow.Close 'fermeture du fichier
Workbooks("Chiffre d'affaire global.xls").Activate 'fichier ouvert
ActiveSheet.Cells(6, col_date) = CaG 'ou ailleurs
Workbooks.OpenText Filename:=Nom_fic 'reouverture du fichier