Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4 Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous des
autres.
Davance merci
Yassin
Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4 Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous des
autres.
Davance merci
Yassin
Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4 Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous des
autres.
Davance merci
Yassin
Bonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres par
les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4 Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous des
autres.
Davance merci
Yassin
Bonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres par
les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" <yabdin@prsm.ch> a écrit dans le message de news:
uKDSGjg7GHA.3280@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4 Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous des
autres.
Davance merci
Yassin
Bonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres par
les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4 Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous des
autres.
Davance merci
Yassin
Un énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
YassinBonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers
à recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Un énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
Yassin
Bonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers
à recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" <yabdin@prsm.ch> a écrit dans le message de news:
uKDSGjg7GHA.3280@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Un énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
YassinBonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers
à recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Bonjour,
Comment dire à Excel d'aller récupérer la plage de donnée variable nommée
"champ1" par ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
mais qui se trouve dans un dossier différent de celui ou ce trouve le
classeur...
Par exemple : Q:facturation...
et les fichiers sources dans E:paulfacturation...
D'avance merci
Cordialement
YassinUn énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
YassinBonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Bonjour,
Comment dire à Excel d'aller récupérer la plage de donnée variable nommée
"champ1" par ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
mais qui se trouve dans un dossier différent de celui ou ce trouve le
classeur...
Par exemple : Q:facturation...
et les fichiers sources dans E:paulfacturation...
D'avance merci
Cordialement
Yassin
Un énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
Yassin
Bonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" <yabdin@prsm.ch> a écrit dans le message de news:
uKDSGjg7GHA.3280@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Bonjour,
Comment dire à Excel d'aller récupérer la plage de donnée variable nommée
"champ1" par ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
mais qui se trouve dans un dossier différent de celui ou ce trouve le
classeur...
Par exemple : Q:facturation...
et les fichiers sources dans E:paulfacturation...
D'avance merci
Cordialement
YassinUn énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
YassinBonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Workbooks.Open Filename:="Q:facturationnomdu fichier.xls"
Range("champ1").Copy _
'vers le classeur destination
Workbooks("nomdu fichier.xls").Close
pour les autres fichiers sources si pas dans le mm répertoire
remplace
chemin = ThisWorkbook.Path & ""
par
chemin="E:paulfacturation"
si facturation est bien un repertoire
ou encore mieux...
si tu as divers chemin suit le mm ordre d'ouverture
chemin = Array("", "Q:facturation", "E:paulfacturation",
"E:paulfacturation","E:paulfacturation" )
et ensuite mets ........chemin(k) au lieu de seulement ...chemin
comme pour la variable fichier
Voila c'est tout
Youky
"Yassin" a écrit dans le message de news:Bonjour,
Comment dire à Excel d'aller récupérer la plage de donnée variable nommée
"champ1" par ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
mais qui se trouve dans un dossier différent de celui ou ce trouve le
classeur...
Par exemple : Q:facturation...
et les fichiers sources dans E:paulfacturation...
D'avance merci
Cordialement
YassinUn énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
YassinBonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Workbooks.Open Filename:="Q:facturationnomdu fichier.xls"
Range("champ1").Copy _
'vers le classeur destination
Workbooks("nomdu fichier.xls").Close
pour les autres fichiers sources si pas dans le mm répertoire
remplace
chemin = ThisWorkbook.Path & ""
par
chemin="E:paulfacturation"
si facturation est bien un repertoire
ou encore mieux...
si tu as divers chemin suit le mm ordre d'ouverture
chemin = Array("", "Q:facturation", "E:paulfacturation",
"E:paulfacturation","E:paulfacturation" )
et ensuite mets ........chemin(k) au lieu de seulement ...chemin
comme pour la variable fichier
Voila c'est tout
Youky
"Yassin" <yabdin@prsm.ch> a écrit dans le message de news:
u7yhtYs7GHA.568@TK2MSFTNGP05.phx.gbl...
Bonjour,
Comment dire à Excel d'aller récupérer la plage de donnée variable nommée
"champ1" par ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
mais qui se trouve dans un dossier différent de celui ou ce trouve le
classeur...
Par exemple : Q:facturation...
et les fichiers sources dans E:paulfacturation...
D'avance merci
Cordialement
Yassin
Un énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
Yassin
Bonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" <yabdin@prsm.ch> a écrit dans le message de news:
uKDSGjg7GHA.3280@TK2MSFTNGP02.phx.gbl...
Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
Workbooks.Open Filename:="Q:facturationnomdu fichier.xls"
Range("champ1").Copy _
'vers le classeur destination
Workbooks("nomdu fichier.xls").Close
pour les autres fichiers sources si pas dans le mm répertoire
remplace
chemin = ThisWorkbook.Path & ""
par
chemin="E:paulfacturation"
si facturation est bien un repertoire
ou encore mieux...
si tu as divers chemin suit le mm ordre d'ouverture
chemin = Array("", "Q:facturation", "E:paulfacturation",
"E:paulfacturation","E:paulfacturation" )
et ensuite mets ........chemin(k) au lieu de seulement ...chemin
comme pour la variable fichier
Voila c'est tout
Youky
"Yassin" a écrit dans le message de news:Bonjour,
Comment dire à Excel d'aller récupérer la plage de donnée variable nommée
"champ1" par ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
mais qui se trouve dans un dossier différent de celui ou ce trouve le
classeur...
Par exemple : Q:facturation...
et les fichiers sources dans E:paulfacturation...
D'avance merci
Cordialement
YassinUn énorme merci à vous Youky, j'ai adapté la macro à mon classeur et
c'est fonctionnel à 200%.
Encore merci
Cordialement
YassinBonjour Yassin,
Enregistre un classeur dans le même répertoire que celui des fichiers à
recopier
Ceux-ci doivent être tous dans le même répertoire..
Modifie en macro le nom des fichiers...ici MysSock1.xls et les autres
par les noms de tes fichiers
Modifie aussi le nom de la feuille ont sont stockées les données des 4
fichiers (j'ai mis ici "Infos")
Bonne chance
Youky
Cells.ClearContents
myfichier = ActiveWorkbook.Name
chemin = ThisWorkbook.Path & ""
fichier = Array("", "MyStock1.xls", "MyStock2.xls", "MyStock3.xls",
"MyStock4.xls")
For k = 1 To 4
bas = Feuil1.[A65536].End(3).Row + 1
On Error Resume Next
Workbooks(fichier(k)).Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=chemin & fichier(k)
Err.Clear
End If
lig = Workbooks(fichier(k)).Sheets("Infos").[A65536].End(3).Row
Workbooks(fichier(k)).Sheets("Infos").Range("A2:K" & lig).Copy _
Workbooks(myfichier).Sheets("Feuil1").Range("A" & bas)
Workbooks(fichier(k)).Close
Next
"Yassin" a écrit dans le message de news:Bonjour,
Je cherche à copier les valeurs d'un classeur à un autre. Cette copie
serait faite à l'ouverture du classeur.
Exemple :
Classeur1,feuille1
Feuille 1 contient des données de [A2 :Ex] (Variable)
Cette plage de données est nommée « tab1 » par
ÞCALER(feuille1!$A$2;;;NBVAL(feuille1!$A:$E)-1)
Classeur2, feuille1 la même chose que 1 et ainsi de suite pour 4
Classeur.
Comment intégrer ces 4 tableau dans un 5e classeur les uns en dessous
des autres.
Davance merci
Yassin
