Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
la manip est simple, mais avant de répondre j'ai besoin de quelques infos :
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit :
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
la manip est simple, mais avant de répondre j'ai besoin de quelques infos :
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit :
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:5962C4C4-980A-4A5F-B79F-4CE94AF2C62A@microsoft.com...
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
la manip est simple, mais avant de répondre j'ai besoin de quelques infos :
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit :
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
les fichiers regroupés par 3, ont effectivement des titres de colonne sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
les fichiers regroupés par 3, ont effectivement des titres de colonne sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:
la manip est simple, mais avant de répondre j'ai besoin de quelques infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:5962C4C4-980A-4A5F-B79F-4CE94AF2C62A@microsoft.com...
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
les fichiers regroupés par 3, ont effectivement des titres de colonne sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en principe.
Il faut compléter les données déclaratives (qui donnent le nom et le chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" wrote in message
news:les fichiers regroupés par 3, ont effectivement des titres de colonne sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en principe.
Il faut compléter les données déclaratives (qui donnent le nom et le chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:FE13D221-DC4D-4432-8068-FDE70BEAA4D6@microsoft.com...
les fichiers regroupés par 3, ont effectivement des titres de colonne sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:
la manip est simple, mais avant de répondre j'ai besoin de quelques infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:5962C4C4-980A-4A5F-B79F-4CE94AF2C62A@microsoft.com...
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en principe.
Il faut compléter les données déclaratives (qui donnent le nom et le chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" wrote in message
news:les fichiers regroupés par 3, ont effectivement des titres de colonne sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
je comprend pas très bien ton programme,
au niveau des variables que tu met,
i,j, k , l.
peut tu inclure des commentaires sur les boucles, pour qe je voit mieux,
pour pouvoir le tester demain.
merci d'avance.voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en
principe.
Il faut compléter les données déclaratives (qui donnent le nom et le
chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" wrote in message
news:les fichiers regroupés par 3, ont effectivement des titres de colonne
sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques
infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement
dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour
chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel
restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
je comprend pas très bien ton programme,
au niveau des variables que tu met,
i,j, k , l.
peut tu inclure des commentaires sur les boucles, pour qe je voit mieux,
pour pouvoir le tester demain.
merci d'avance.
voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en
principe.
Il faut compléter les données déclaratives (qui donnent le nom et le
chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:FE13D221-DC4D-4432-8068-FDE70BEAA4D6@microsoft.com...
les fichiers regroupés par 3, ont effectivement des titres de colonne
sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:
la manip est simple, mais avant de répondre j'ai besoin de quelques
infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement
dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour
chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:5962C4C4-980A-4A5F-B79F-4CE94AF2C62A@microsoft.com...
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel
restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
je comprend pas très bien ton programme,
au niveau des variables que tu met,
i,j, k , l.
peut tu inclure des commentaires sur les boucles, pour qe je voit mieux,
pour pouvoir le tester demain.
merci d'avance.voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en
principe.
Il faut compléter les données déclaratives (qui donnent le nom et le
chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" wrote in message
news:les fichiers regroupés par 3, ont effectivement des titres de colonne
sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques
infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement
dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour
chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel
restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
je comprend pas très bien ton programme,
au niveau des variables que tu met,
i,j, k , l.
peut tu inclure des commentaires sur les boucles, pour qe je voit mieux,
pour pouvoir le tester demain.
merci d'avance.voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en
principe.
Il faut compléter les données déclaratives (qui donnent le nom et le
chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
windows(fichier(k)).activate
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" wrote in message
news:les fichiers regroupés par 3, ont effectivement des titres de colonne
sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques
infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement
dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour
chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel
restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
je comprend pas très bien ton programme,
au niveau des variables que tu met,
i,j, k , l.
peut tu inclure des commentaires sur les boucles, pour qe je voit mieux,
pour pouvoir le tester demain.
merci d'avance.
voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en
principe.
Il faut compléter les données déclaratives (qui donnent le nom et le
chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
windows(fichier(k)).activate
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:FE13D221-DC4D-4432-8068-FDE70BEAA4D6@microsoft.com...
les fichiers regroupés par 3, ont effectivement des titres de colonne
sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:
la manip est simple, mais avant de répondre j'ai besoin de quelques
infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement
dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour
chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" <PHIL@discussions.microsoft.com> wrote in message
news:5962C4C4-980A-4A5F-B79F-4CE94AF2C62A@microsoft.com...
Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel
restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
je comprend pas très bien ton programme,
au niveau des variables que tu met,
i,j, k , l.
peut tu inclure des commentaires sur les boucles, pour qe je voit mieux,
pour pouvoir le tester demain.
merci d'avance.voilà. Je n'ai pas testé le code, mais cela devrait fonctionner en
principe.
Il faut compléter les données déclaratives (qui donnent le nom et le
chemin
d'accès des fichiers source).
sub ImportDonnees()
dim i, j, k, l as integer
dim fichier(1 to 9) as string
dim chemin(1 to 9) as string
fichier(1) = "insérer ici le nom du premier fichier"
fichier(2) = "idem pour le deuxième fichier"
...
fichier(9) = "nom du dernier fichier"
chemin(1) = "chemin d'accès du premier fichier, se termine par "
...
chemin(9) = "chemin d'accès du dernier fichier"
k = 1
for i = 1 to 3
l = 1
for j = 1 to 3
Workbooks.Open Filename:= _
chemin(k) & fichier(k)
if j = 1 then
Range(Cells(1,1),Cells(1,1).End(xlToRight)).copy
Thisworkbook.Activate
Sheets(i).Cells(1,1).select
ActiveSheet.Paste
l = l +1
end if
windows(fichier(k)).activate
Range(Cells(2,1),cells(cells(1,1).End(xlDown).row,cells(1,1).End(xlToRight).column)).copy
Thisworkbook.Activate
Sheets(i).Cells(l,1).select
ActiveSheet.Paste
l = cells(1,1).End(xlDown).Row + 1
Application.displayalerts = false
windows(fichier(k)).close
Application.displayalerts = true
k = k +1
next
next
end sub
"PHIL" wrote in message
news:les fichiers regroupés par 3, ont effectivement des titres de colonne
sur
la
premiere lignes(ce sont les memes pour les trois fichiers regroupés à
chaque
fois)
il n'y a pas de ligne vides.
merci d'avance?
"Dude" wrote:la manip est simple, mais avant de répondre j'ai besoin de quelques
infos
:
Y a-t-il des titres de colonnes (ou de champs)
Ces titres sont-ils les mêmes pour les fichiers regroupés (autrement
dit
:
faut-il les reprendre à chaque nouveau fichier ou simplement pour
chaque
nouvel onglet dans le document de synthèse)
Y a-t-il des lignes vides ?
"PHIL" wrote in message
news:Bonsoir,
J'ai 9 fichiers excel,
ces fichiers exel sont des champs sur la premiere ligne,et plusieurs
lignes
en dessous.
Ce que je souhaite faire, c'est dans un nouveau classeur, créer une
macro
qui me permet de coller toutes les donnes de 3 fichiers dans un
onglet,puis
nommé cette onglet.
un autreonglet qui regroupe 3 fichiers excel.
un autreonglet qui regrouperai les trois autre fichiers excel
restant.
au total j'aurai donc 3 onglet dans mon classeur, qui comprennent
chacun
l'ensemble de données des 3 fichiers.
Pouvez vous m'aider pour cette macro?
merci d'avance pour votre aide.
