Je souhaiterai copier les données contenues dans 5 classeurs, dans un seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx).
Classeur 2: Les données vont de: (A6 à ACxxxxx).
Classeur 3: Les données vont de: (A6 à ACxxxxx).
Classeur 4: Les données vont de: (A6 à ACxxxxx).
Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
Les données des 5 classeurs changent souvent, alors, comment mettre au point
un système de mise à jour du 6ème classeur? Je pense à des ajouts ou des
suppressions de lignes.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal Engelmajer
Salut, il manque u nepetite précision : le 6e classeur a une ou cinq feuilles si il a cinq feuilles un copié collé avec liaison suffit (clic droit collage spécial ...) Si il n'y a qu'une feuille sur le 6e classeur il faut passer par une procédure en VBA, soit exéctuée automatiquement à l'ouverture du classeur soit à la demande. voici un début de piste Sub maj() Dim wbk As Workbook Dim thiswbk As Workbook Dim f As Worksheet Dim f6 As Worksheet Dim nblf As Integer Dim nblc As Integer Set thiswbk = Workbooks("classeur_6") Set f6 = thiswbk.Sheets(1)
Set wbk = Application.Workbooks.Open("cl1.xls") nblc = 0 Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close Set wbk = Application.Workbooks.Open("cl2.xls") Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close '.... '.... End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Jipé" a écrit dans le message de news: eaKz$
Bonjour à toutes et à tous,
Je souhaiterai copier les données contenues dans 5 classeurs, dans un seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx). Classeur 2: Les données vont de: (A6 à ACxxxxx). Classeur 3: Les données vont de: (A6 à ACxxxxx). Classeur 4: Les données vont de: (A6 à ACxxxxx). Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
Les données des 5 classeurs changent souvent, alors, comment mettre au point
un système de mise à jour du 6ème classeur? Je pense à des ajouts ou des suppressions de lignes.
Merci pour votre aide.
Jipé
Salut,
il manque u nepetite précision :
le 6e classeur a une ou cinq feuilles
si il a cinq feuilles un copié collé avec liaison suffit (clic droit collage
spécial ...)
Si il n'y a qu'une feuille sur le 6e classeur il faut passer par une
procédure en VBA, soit exéctuée automatiquement à l'ouverture du classeur
soit à la demande.
voici un début de piste
Sub maj()
Dim wbk As Workbook
Dim thiswbk As Workbook
Dim f As Worksheet
Dim f6 As Worksheet
Dim nblf As Integer
Dim nblc As Integer
Set thiswbk = Workbooks("classeur_6")
Set f6 = thiswbk.Sheets(1)
Set wbk = Application.Workbooks.Open("cl1.xls")
nblc = 0
Set f = wbk.Sheets(1)
nblf = f.Range("A65535").End(xlUp).Row '
For i = 1 To nblf
nblc = nblc + 1
f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc)
Next i
wbk.Close
Set wbk = Application.Workbooks.Open("cl2.xls")
Set f = wbk.Sheets(1)
nblf = f.Range("A65535").End(xlUp).Row '
For i = 1 To nblf
nblc = nblc + 1
f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc)
Next i
wbk.Close
'....
'....
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Jipé" <jean_pierre_rome@hotmail.com> a écrit dans le message de news:
eaKz$6X6DHA.2720@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et à tous,
Je souhaiterai copier les données contenues dans 5 classeurs, dans un
seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx).
Classeur 2: Les données vont de: (A6 à ACxxxxx).
Classeur 3: Les données vont de: (A6 à ACxxxxx).
Classeur 4: Les données vont de: (A6 à ACxxxxx).
Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
Salut, il manque u nepetite précision : le 6e classeur a une ou cinq feuilles si il a cinq feuilles un copié collé avec liaison suffit (clic droit collage spécial ...) Si il n'y a qu'une feuille sur le 6e classeur il faut passer par une procédure en VBA, soit exéctuée automatiquement à l'ouverture du classeur soit à la demande. voici un début de piste Sub maj() Dim wbk As Workbook Dim thiswbk As Workbook Dim f As Worksheet Dim f6 As Worksheet Dim nblf As Integer Dim nblc As Integer Set thiswbk = Workbooks("classeur_6") Set f6 = thiswbk.Sheets(1)
Set wbk = Application.Workbooks.Open("cl1.xls") nblc = 0 Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close Set wbk = Application.Workbooks.Open("cl2.xls") Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close '.... '.... End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Jipé" a écrit dans le message de news: eaKz$
Bonjour à toutes et à tous,
Je souhaiterai copier les données contenues dans 5 classeurs, dans un seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx). Classeur 2: Les données vont de: (A6 à ACxxxxx). Classeur 3: Les données vont de: (A6 à ACxxxxx). Classeur 4: Les données vont de: (A6 à ACxxxxx). Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
Les données des 5 classeurs changent souvent, alors, comment mettre au point
un système de mise à jour du 6ème classeur? Je pense à des ajouts ou des suppressions de lignes.
Merci pour votre aide.
Jipé
Jipé
Re bonjour,
Merci Pascal pour ton début de piste. Le 6ème classeur n'a qu'une feuille. La solution est donc de passer par VBA. Je vais essayer de commencer avec ce que tu m'as donné.
Amicalement Jipé
"Pascal Engelmajer" a écrit dans le message de news:%
Salut, il manque u nepetite précision : le 6e classeur a une ou cinq feuilles si il a cinq feuilles un copié collé avec liaison suffit (clic droit collage
spécial ...) Si il n'y a qu'une feuille sur le 6e classeur il faut passer par une procédure en VBA, soit exéctuée automatiquement à l'ouverture du classeur soit à la demande. voici un début de piste Sub maj() Dim wbk As Workbook Dim thiswbk As Workbook Dim f As Worksheet Dim f6 As Worksheet Dim nblf As Integer Dim nblc As Integer Set thiswbk = Workbooks("classeur_6") Set f6 = thiswbk.Sheets(1)
Set wbk = Application.Workbooks.Open("cl1.xls") nblc = 0 Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close Set wbk = Application.Workbooks.Open("cl2.xls") Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close '.... '.... End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Jipé" a écrit dans le message de news: eaKz$
Bonjour à toutes et à tous,
Je souhaiterai copier les données contenues dans 5 classeurs, dans un seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx). Classeur 2: Les données vont de: (A6 à ACxxxxx). Classeur 3: Les données vont de: (A6 à ACxxxxx). Classeur 4: Les données vont de: (A6 à ACxxxxx). Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
Les données des 5 classeurs changent souvent, alors, comment mettre au point
un système de mise à jour du 6ème classeur? Je pense à des ajouts ou des suppressions de lignes.
Merci pour votre aide.
Jipé
Re bonjour,
Merci Pascal pour ton début de piste.
Le 6ème classeur n'a qu'une feuille.
La solution est donc de passer par VBA.
Je vais essayer de commencer avec ce que tu m'as donné.
Amicalement Jipé
"Pascal Engelmajer" <pascal.engelmajer@ilyapa_spam.net> a écrit dans le
message de news:%23NPMjVZ6DHA.2460@TK2MSFTNGP09.phx.gbl...
Salut,
il manque u nepetite précision :
le 6e classeur a une ou cinq feuilles
si il a cinq feuilles un copié collé avec liaison suffit (clic droit
collage
spécial ...)
Si il n'y a qu'une feuille sur le 6e classeur il faut passer par une
procédure en VBA, soit exéctuée automatiquement à l'ouverture du classeur
soit à la demande.
voici un début de piste
Sub maj()
Dim wbk As Workbook
Dim thiswbk As Workbook
Dim f As Worksheet
Dim f6 As Worksheet
Dim nblf As Integer
Dim nblc As Integer
Set thiswbk = Workbooks("classeur_6")
Set f6 = thiswbk.Sheets(1)
Set wbk = Application.Workbooks.Open("cl1.xls")
nblc = 0
Set f = wbk.Sheets(1)
nblf = f.Range("A65535").End(xlUp).Row '
For i = 1 To nblf
nblc = nblc + 1
f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc)
Next i
wbk.Close
Set wbk = Application.Workbooks.Open("cl2.xls")
Set f = wbk.Sheets(1)
nblf = f.Range("A65535").End(xlUp).Row '
For i = 1 To nblf
nblc = nblc + 1
f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc)
Next i
wbk.Close
'....
'....
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Jipé" <jean_pierre_rome@hotmail.com> a écrit dans le message de news:
eaKz$6X6DHA.2720@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et à tous,
Je souhaiterai copier les données contenues dans 5 classeurs, dans un
seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx).
Classeur 2: Les données vont de: (A6 à ACxxxxx).
Classeur 3: Les données vont de: (A6 à ACxxxxx).
Classeur 4: Les données vont de: (A6 à ACxxxxx).
Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
Merci Pascal pour ton début de piste. Le 6ème classeur n'a qu'une feuille. La solution est donc de passer par VBA. Je vais essayer de commencer avec ce que tu m'as donné.
Amicalement Jipé
"Pascal Engelmajer" a écrit dans le message de news:%
Salut, il manque u nepetite précision : le 6e classeur a une ou cinq feuilles si il a cinq feuilles un copié collé avec liaison suffit (clic droit collage
spécial ...) Si il n'y a qu'une feuille sur le 6e classeur il faut passer par une procédure en VBA, soit exéctuée automatiquement à l'ouverture du classeur soit à la demande. voici un début de piste Sub maj() Dim wbk As Workbook Dim thiswbk As Workbook Dim f As Worksheet Dim f6 As Worksheet Dim nblf As Integer Dim nblc As Integer Set thiswbk = Workbooks("classeur_6") Set f6 = thiswbk.Sheets(1)
Set wbk = Application.Workbooks.Open("cl1.xls") nblc = 0 Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close Set wbk = Application.Workbooks.Open("cl2.xls") Set f = wbk.Sheets(1) nblf = f.Range("A65535").End(xlUp).Row ' For i = 1 To nblf nblc = nblc + 1 f.Range("A" & nblf).EntireRow.Copy f6.Range("A" & nblc) Next i wbk.Close '.... '.... End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Jipé" a écrit dans le message de news: eaKz$
Bonjour à toutes et à tous,
Je souhaiterai copier les données contenues dans 5 classeurs, dans un seul.
Les 5 classeurs sont identiques et n'ont qu'une feuille.
Classeur 1: Les données vont de: (A6 à ACxxxxx). Classeur 2: Les données vont de: (A6 à ACxxxxx). Classeur 3: Les données vont de: (A6 à ACxxxxx). Classeur 4: Les données vont de: (A6 à ACxxxxx). Classeur 5: Les données vont de: (A6 à ACxxxxx).
Les données seront récupérées dans un 6ème classeur, plage A6:ACxxxxx.
