gds35
XLDnaute Impliqué
Bonjour a tous mes AMIS du Forums et Bon WE
J’ai un soucis , je veux créer un fichier stat qui reprends certaines données des années antérieures
Elles sont stockées sur une clé USB avec pour chaque années un répertoire se nommant :
0506 – 0607- 0708- ……. Allant jusqu’à 1011 , dans lequel se trouve un fichier BC.xls correspondant
aux résultat de chaque exercice. (le nom des répertoires est en dur dans une feuille PARAM du fichier
StatHC j’ai une autre feuille nommée DONNEES dans laquelle je veux recopier les données nécessaire au traitement
De mes stats . j’ai construit ce code :
Sub ChargeDonnees()
'
Dim Chemin As String ' CHEMIN POUR CHARGEMENT FICHIER BC
Dim i As Integer ' N° DE LIGNE DE L'EXERCICE DS FEUILLE PARAM
Dim Rep As String ' REPERTOIRE DANS E: SAUVEGARDE ANNUELLE
Dim Rep1 As String ' = A REP POUR TEST SI REPERTOIRE EXISTANT
Dim Ex As String ' VALEUR DE L'EXERCICE SELECTIONNE DS FEUILLE PARAM
'
i = 1
'
CHARGE:
'
' CONSTITUTION DU NOM DU REPERTOIRE
' ET DU CHEMIN DE CHARGEMENT DU FICHIER BC
'
Sheets("PARAM").Select
Ex = Range("A" & i).Value
Rep = "E:\" & Ex
MsgBox Rep
Rep1 = Dir(Rep, vbDirectory)
MsgBox Rep1
'
' TESTER SI LE REPERTOIRE EXISTE
'
If Rep1 = "" Then
GoTo TRT
Else
Chemin = Rep & "\" & "BrouillardCaisse.xls"
MsgBox Chemin
'
Workbooks.Open Filename:=(Chemin)
Sheets(14).Select 'RECAPAN du BC
Range("A10:K22").Select
Selection.Copy
Windows("StatsHC.xls").Activate
Sheets("DONNEES").Select
'
' RECHERCHE DE LA PREMIERE CELLULE VIDE
'
Lign = Range("A65536").End(xlUp).Row + 1
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("BrouillardCaisse.xls").Activate
Sheets("09").Select
Application.DisplayAlerts = False
DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
'
i = i + 1
GoTo CHARGE
'
End If
'
TRT:
'
MsgBox " FICHIER CHARGES "
End Sub
Lors du chargement des données de l’Ex 0506 tous est ok , mais lorsque je veux charger
Les données de l’ex 0607 mes données de 0506 sont écrasées par celles de l’ex 0607.
Or je veux avoir en ligne les résultats des 3 exercices pour traiter.
Ou est mon ERREUR ???? dans ce code ????
Merci de m’aider . GDS35
D'autre part pour ne + embeter le Forum lors d'un Pb résolu comment chargé le tags "PB Résolu" je n'ai ss doute jamais et en suis confus
J’ai un soucis , je veux créer un fichier stat qui reprends certaines données des années antérieures
Elles sont stockées sur une clé USB avec pour chaque années un répertoire se nommant :
0506 – 0607- 0708- ……. Allant jusqu’à 1011 , dans lequel se trouve un fichier BC.xls correspondant
aux résultat de chaque exercice. (le nom des répertoires est en dur dans une feuille PARAM du fichier
StatHC j’ai une autre feuille nommée DONNEES dans laquelle je veux recopier les données nécessaire au traitement
De mes stats . j’ai construit ce code :
Sub ChargeDonnees()
'
Dim Chemin As String ' CHEMIN POUR CHARGEMENT FICHIER BC
Dim i As Integer ' N° DE LIGNE DE L'EXERCICE DS FEUILLE PARAM
Dim Rep As String ' REPERTOIRE DANS E: SAUVEGARDE ANNUELLE
Dim Rep1 As String ' = A REP POUR TEST SI REPERTOIRE EXISTANT
Dim Ex As String ' VALEUR DE L'EXERCICE SELECTIONNE DS FEUILLE PARAM
'
i = 1
'
CHARGE:
'
' CONSTITUTION DU NOM DU REPERTOIRE
' ET DU CHEMIN DE CHARGEMENT DU FICHIER BC
'
Sheets("PARAM").Select
Ex = Range("A" & i).Value
Rep = "E:\" & Ex
MsgBox Rep
Rep1 = Dir(Rep, vbDirectory)
MsgBox Rep1
'
' TESTER SI LE REPERTOIRE EXISTE
'
If Rep1 = "" Then
GoTo TRT
Else
Chemin = Rep & "\" & "BrouillardCaisse.xls"
MsgBox Chemin
'
Workbooks.Open Filename:=(Chemin)
Sheets(14).Select 'RECAPAN du BC
Range("A10:K22").Select
Selection.Copy
Windows("StatsHC.xls").Activate
Sheets("DONNEES").Select
'
' RECHERCHE DE LA PREMIERE CELLULE VIDE
'
Lign = Range("A65536").End(xlUp).Row + 1
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Windows("BrouillardCaisse.xls").Activate
Sheets("09").Select
Application.DisplayAlerts = False
DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
'
i = i + 1
GoTo CHARGE
'
End If
'
TRT:
'
MsgBox " FICHIER CHARGES "
End Sub
Lors du chargement des données de l’Ex 0506 tous est ok , mais lorsque je veux charger
Les données de l’ex 0607 mes données de 0506 sont écrasées par celles de l’ex 0607.
Or je veux avoir en ligne les résultats des 3 exercices pour traiter.
Ou est mon ERREUR ???? dans ce code ????
Merci de m’aider . GDS35
D'autre part pour ne + embeter le Forum lors d'un Pb résolu comment chargé le tags "PB Résolu" je n'ai ss doute jamais et en suis confus