Copier le cntenu de plusieurs fichier dans un
Résolu/Fermé
houledef
Messages postés
8
Date d'inscription
jeudi 25 septembre 2008
Statut
Membre
Dernière intervention
13 décembre 2008
-
30 sept. 2008 à 21:28
houledef Messages postés 8 Date d'inscription jeudi 25 septembre 2008 Statut Membre Dernière intervention 13 décembre 2008 - 1 oct. 2008 à 15:16
houledef Messages postés 8 Date d'inscription jeudi 25 septembre 2008 Statut Membre Dernière intervention 13 décembre 2008 - 1 oct. 2008 à 15:16
A voir également:
- Copier le cntenu de plusieurs fichier dans un
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
4 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
30 sept. 2008 à 23:28
30 sept. 2008 à 23:28
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
houledef
Messages postés
8
Date d'inscription
jeudi 25 septembre 2008
Statut
Membre
Dernière intervention
13 décembre 2008
1 oct. 2008 à 09:36
1 oct. 2008 à 09:36
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
1 oct. 2008 à 09:53
1 oct. 2008 à 09:53
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
houledef
Messages postés
8
Date d'inscription
jeudi 25 septembre 2008
Statut
Membre
Dernière intervention
13 décembre 2008
1 oct. 2008 à 15:16
1 oct. 2008 à 15:16
ça marche bien merci pour tout..
bon courage.
bon courage.