Copier le cntenu de plusieurs fichier dans un
Résolu
houledef
Messages postés
8
Statut
Membre
-
houledef Messages postés 8 Statut Membre -
houledef Messages postés 8 Statut Membre -
Bonjour,
j'ai vraiment besion d'aide,
j'ai un réoertoir qui contient plusieurs fichiers nommés 1970, 1971, 1972,....2005
j'aimerai copier le contenu de certaine cellules en meme ligne dans un classeur syntese.
dans ce classeur les valeurs copiés sont classés chaque ficheir dans une ligne.
et merci a l'avance.
j'ai vraiment besion d'aide,
j'ai un réoertoir qui contient plusieurs fichiers nommés 1970, 1971, 1972,....2005
j'aimerai copier le contenu de certaine cellules en meme ligne dans un classeur syntese.
dans ce classeur les valeurs copiés sont classés chaque ficheir dans une ligne.
et merci a l'avance.
A voir également:
- Copier le cntenu de plusieurs fichier dans un
- Fichier bin - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
4 réponses
Salut Houledef,
toujours dans de sacrés problèmes à ce que je vois
on pourrait faire un truc dans ce style (dernier message)
http://www.commentcamarche.net/forum/affich 8614224 liaison classeur du meme repertoire
bien sûr en adaptant à ton contexte: ce qui veut dire qu'il faudra que tu donnes des renseignements précis! suivant ceux-ci, ce sera peut-^tre par une autre méthode dite "ADO"
a demain
toujours dans de sacrés problèmes à ce que je vois
on pourrait faire un truc dans ce style (dernier message)
http://www.commentcamarche.net/forum/affich 8614224 liaison classeur du meme repertoire
bien sûr en adaptant à ton contexte: ce qui veut dire qu'il faudra que tu donnes des renseignements précis! suivant ceux-ci, ce sera peut-^tre par une autre méthode dite "ADO"
a demain
bonjour,
merci pour la réponse.
j'ai essayé ce code ça marche bien mais je veux copier le contenu de la plage suvante $A$11:$E$11 pour chaque fichier dans le fichier maitre comment puis je faire?
Sub extraire()
Dim chemin As String, fichier As String
Dim cptr As Byte
Application.ScreenUpdating = False
Sheets(1).Columns(1).ClearContents
Sheets(2).Columns(1).ClearContents
chemin = ThisWorkbook.Path
ChDir chemin
fichier = Dir("*.xls")
cptr = 1
While fichier <> ""
If fichier <> "maitre.xls" Then
' utilisation macro "walkenbach": extraire sans ouvrir donnée fichier fermé
Sheets(1).Cells(cptr, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil1'!R3C3")
Sheets(2).Cells(cptr, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil2'!R4C2")
cptr = cptr + 1
End If
fichier = Dir
Wend
End Sub
merci pour la réponse.
j'ai essayé ce code ça marche bien mais je veux copier le contenu de la plage suvante $A$11:$E$11 pour chaque fichier dans le fichier maitre comment puis je faire?
Sub extraire()
Dim chemin As String, fichier As String
Dim cptr As Byte
Application.ScreenUpdating = False
Sheets(1).Columns(1).ClearContents
Sheets(2).Columns(1).ClearContents
chemin = ThisWorkbook.Path
ChDir chemin
fichier = Dir("*.xls")
cptr = 1
While fichier <> ""
If fichier <> "maitre.xls" Then
' utilisation macro "walkenbach": extraire sans ouvrir donnée fichier fermé
Sheets(1).Cells(cptr, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil1'!R3C3")
Sheets(2).Cells(cptr, 1) = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil2'!R4C2")
cptr = cptr + 1
End If
fichier = Dir
Wend
End Sub
Bonjour,
Tu as juste la plage A11:E11?
Quel est le nom de l'onglet ?
Tes classeurs sont -ils bien appelés 1970, 1971, 1972... car la collecte se fera dans l'ordre alphab^tique.
Si oui et si XL<2007, tu pourrais peut-être utiliser cette appli (technologie ADO). elle ne doit pas être dans le m^me répertoire.
https://www.cjoint.com/?kbjVoaEadR
on pourrait aussi personnaliser pour ton cas (c'est du boulot!)
Dans l'attente
Tu as juste la plage A11:E11?
Quel est le nom de l'onglet ?
Tes classeurs sont -ils bien appelés 1970, 1971, 1972... car la collecte se fera dans l'ordre alphab^tique.
Si oui et si XL<2007, tu pourrais peut-être utiliser cette appli (technologie ADO). elle ne doit pas être dans le m^me répertoire.
https://www.cjoint.com/?kbjVoaEadR
on pourrait aussi personnaliser pour ton cas (c'est du boulot!)
Dans l'attente
