Discussion :

[peygase83]

Bonjour
Jais beau testé vos code vba je ni parviens pas jais chercher un peu partout rien ne marche
Bref si une oreille passe par la voila mon Problème
Jais crée 12 dossier (leur nom son les moi de l'année) dans chaque dossier le nombre de classeur et équivalant au jour travaillé exemple (nom des classeur)------( 0101) -----(0201)-----(0301)…exemple pour le moi de janvier). Comment récupéré les donné dans un récap
Les ligne de donné son (de c22 a n22 ainsi que 021).
La mise en forme des classeurs et identique je voudrai réunir les classeurs du moi dans un seul classeur (récap) et ce pour chaque moi.
Toute aide me serais utile merci d'avance

[PPz78]

On ne va pas te faire toute ton application.

Quel est vraiment ton point de blocage?
- le balayage des fichiers dans les répertoires,
- l'ouverture des fichiers
- la recopie de valeurs
- ...

[peygase83]

merci pour la reponce mai je suis vraiment nul en vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
Sub LitDatas()
Dim Fich$, Arr, L As Integer, C As Integer, N2 As String
Dim X As Integer, Y As Integer
Dim Chemin As String
 
'chemin des classeurs à adapter
Chemin = c:\Users\peygase\Desktop\JANVIER '
 
With ThisWorkbook.Sheets('Recap')
For C = 1 To 31
If C < 10 Then
N2 = 'récapitulaif journalier' & C
ElseIf C < 100 Then
N2 = 'Xl0' & C
Else: N2 = 'Xl' & C
End If
Fich$ = Chemin & N2
If .Range('A1') = '' Then
L = 0
Else: L = .Range('A65536').End(xlUp).Row
End If
'récup des données à partir de l'adresse d'une plage de cellules
' si noms de champ changer false en true
GetExternalData Fich, récapitulatifjournalier ', c22:l22, False, Arr
'récup des données à partir du nom d'une plage de cellules ()
' GetExternalData Fich, '', 'plagenommée', False, Arr
' .Range('A1', .Cells(UBound(Arr, 1), UBound(Arr, 2))).Offset(L, 0).Value = Arr
For X = 1 To UBound(Arr, 1) 'lignes
For Y = 1 To UBound(Arr, 2) 'colonnes
If Arr(X, Y) <> '' Then .Cells(X, Y).Offset(L, 0).Value = Arr(X, Y)
Next Y
Next X
Fich = ''
Next C
End With
 
End Sub

- le balayage des fichiers dans les répertoires,
- l'ouverture des fichiers
- la recopie de valeurs
rien ne marche

l'un de mes classeur exemple
je voudrai recupéré la feuill recapitulatif journalier
mci

[PPz78]

Pourquoi ta boucle va-t-elle jusqu'à 200? si il a un dossier par mois, il y a 31 fichiers par dossier au maximum.

Quelle machine utilises tu? Le nom du chemin me semble étrange.

[peygase83]

a force de faire et de refaire je ne sais plu
le chemin ces ma clef usb F: CAMIONNAGE\CHARGEMENT\JANVIER
les numero de fichier du 1 janvier donc 0101 au 31 decembre 3112
le 0101 ligne c22 n22 transphere sur recap
0201 ligne c22 n22 transphere sur recap
comment faire pour que ce soit automatique
voila ce qui me cause probleme
merci d'avance @+

[PPz78]

le 0101 ligne c22 n22 transphere sur recap
0201 ligne c22 n22 transphere sur recap

Si toutes les lignes vont sur le même c22 n22 on ne fera pas de récap.

[peygase83]

Bonjour,
Jais beau testé vos code vba je ni parviens pas jais chercher un peu partout rien ne marche
Bref si une oreille passe par la voila mon Problème
Jais crée 12 dossier (leur nom son les moi de l'année) dans chaque dossier le nombre de classeur et équivalant au jour travaillé exemple (nom des classeur)------( 0101) -----(0201)-----(0301)…exemple pour le moi de janvier). Comment récupéré les donné dans un récap
Les ligne de donné son (de c22 a n22 ainsi que 021).
La mise en forme des classeurs et identique je voudrai réunir les classeurs jour pour avoir un recap par moi et ce pour chaque moi.
Toute aide me serais utile merci d'avance
voila un debut de quelque chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
Sub LitDatas()
Dim Fich$, Arr, L As Integer, C As Integer, N2 As String
Dim X As Integer, Y As Integer
Dim Chemin As String
 
'chemin des classeurs à adapter
Chemin = c:\Users\peygase\Desktop\JANVIER '
 
With ThisWorkbook.Sheets('Recap')
For C = 1 To 31
If C < 10 Then
N2 = 'récapitulaif journalier' & C
ElseIf C < 100 Then
N2 = 'Xl0' & C
Else: N2 = 'Xl' & C
End If
Fich$ = Chemin & N2
If .Range('A1') = '' Then
L = 0
Else: L = .Range('A65536').End(xlUp).Row
End If
'récup des données à partir de l'adresse d'une plage de cellules
' si noms de champ changer false en true
GetExternalData Fich, récapitulatifjournalier ', c22:l22, False, Arr
'récup des données à partir du nom d'une plage de cellules ()
' GetExternalData Fich, '', 'plagenommée', False, Arr
' .Range('A1', .Cells(UBound(Arr, 1), UBound(Arr, 2))).Offset(L, 0).Value = Arr
For X = 1 To UBound(Arr, 1) 'lignes
For Y = 1 To UBound(Arr, 2) 'colonnes
If Arr(X, Y) <> '' Then .Cells(X, Y).Offset(L, 0).Value = Arr(X, Y)
Next Y
Next X
Fich = ''
Next C
End With
 
 
End Sub

les numero de fichier du 1 janvier donc 0101 au 31 decembre 3112
le classeur nommé 0101 ligne de transphere (c22 a n22) sur recap ligne c1 a n1
le classeur nommé 0201 ligne de transphere (c22 a n22) sur recap ligne c2 a n2

comment faire pour que ce soit automatique
voila ce qui me cause probleme

- le balayage des fichiers dans les répertoires,
- l'ouverture des fichiers
- la recopie de valeurs
rien ne marche
merci d'avance @+