Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié
des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à chaque
fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur
le fichier source pour continuer ma macro, il prend en compte le nom du
fichier actif et c'est ce que je veux pas. est t'il possible de revenir sur
le fichier source sans qu'il prenne en compte le nom du fichier. Je pourrais
ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié
des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à chaque
fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur
le fichier source pour continuer ma macro, il prend en compte le nom du
fichier actif et c'est ce que je veux pas. est t'il possible de revenir sur
le fichier source sans qu'il prenne en compte le nom du fichier. Je pourrais
ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié
des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à chaque
fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur
le fichier source pour continuer ma macro, il prend en compte le nom du
fichier actif et c'est ce que je veux pas. est t'il possible de revenir sur
le fichier source sans qu'il prenne en compte le nom du fichier. Je pourrais
ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
DanielBonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en revanche
mon fichier source n'ais pas toujoujours le même et le nom est different
à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que
je reviens sur le fichier source pour continuer ma macro, il prend en
compte le nom du fichier actif et c'est ce que je veux pas. est t'il
possible de revenir sur le fichier source sans qu'il prenne en compte le
nom du fichier. Je pourrais ainsi envoyer ma macro de n'importe quel
fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
Daniel
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en revanche
mon fichier source n'ais pas toujoujours le même et le nom est different
à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que
je reviens sur le fichier source pour continuer ma macro, il prend en
compte le nom du fichier actif et c'est ce que je veux pas. est t'il
possible de revenir sur le fichier source sans qu'il prenne en compte le
nom du fichier. Je pourrais ainsi envoyer ma macro de n'importe quel
fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
DanielBonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en revanche
mon fichier source n'ais pas toujoujours le même et le nom est different
à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que
je reviens sur le fichier source pour continuer ma macro, il prend en
compte le nom du fichier actif et c'est ce que je veux pas. est t'il
possible de revenir sur le fichier source sans qu'il prenne en compte le
nom du fichier. Je pourrais ainsi envoyer ma macro de n'importe quel
fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour Daniel,
Ca ne fonctionne pas, j'ai mis :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Workbooks.Open Filename:= _
"C:Documents and SettingsManuBureausynthese.xlsx"
Range("A1").Select
Application.CutCopyMode = False
Dés que je lance la macro, il me demande d'ouvrir un fichier, je ne comprend
pas car le fichier source est deja ouvert et je démarre la macro à partir de
là (Macro en classeur personnal)
Puis ca bug sur la ligne Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Manu
"DanielCo" a écrit dans le message de news:
kre06a$e5l$Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
DanielBonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à
chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je
reviens sur le fichier source pour continuer ma macro, il prend en compte
le nom du fichier actif et c'est ce que je veux pas. est t'il possible de
revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier
source.
J'espere avoir été clair.
Merci
Manu
Bonjour Daniel,
Ca ne fonctionne pas, j'ai mis :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Workbooks.Open Filename:= _
"C:Documents and SettingsManuBureausynthese.xlsx"
Range("A1").Select
Application.CutCopyMode = False
Dés que je lance la macro, il me demande d'ouvrir un fichier, je ne comprend
pas car le fichier source est deja ouvert et je démarre la macro à partir de
là (Macro en classeur personnal)
Puis ca bug sur la ligne Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Manu
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
kre06a$e5l$1@speranza.aioe.org...
Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
Daniel
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à
chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je
reviens sur le fichier source pour continuer ma macro, il prend en compte
le nom du fichier actif et c'est ce que je veux pas. est t'il possible de
revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier
source.
J'espere avoir été clair.
Merci
Manu
Bonjour Daniel,
Ca ne fonctionne pas, j'ai mis :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Workbooks.Open Filename:= _
"C:Documents and SettingsManuBureausynthese.xlsx"
Range("A1").Select
Application.CutCopyMode = False
Dés que je lance la macro, il me demande d'ouvrir un fichier, je ne comprend
pas car le fichier source est deja ouvert et je démarre la macro à partir de
là (Macro en classeur personnal)
Puis ca bug sur la ligne Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Manu
"DanielCo" a écrit dans le message de news:
kre06a$e5l$Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
DanielBonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à
chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je
reviens sur le fichier source pour continuer ma macro, il prend en compte
le nom du fichier actif et c'est ce que je veux pas. est t'il possible de
revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier
source.
J'espere avoir été clair.
Merci
Manu
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
te permet de choisir le fichier à ouvrir et de l'ouvrir. S'il est déjà
ouvert, après l'avoir ouvert, mets :
Set Wbk = ActiveWorkbook.
Quant à :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
J'ai dit que c'était un exemple d'utilisation.
DanielBonjour Daniel,
Ca ne fonctionne pas, j'ai mis :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel
(*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Workbooks.Open Filename:= _
"C:Documents and SettingsManuBureausynthese.xlsx"
Range("A1").Select
Application.CutCopyMode = False
Dés que je lance la macro, il me demande d'ouvrir un fichier, je ne
comprend pas car le fichier source est deja ouvert et je démarre la macro
à partir de là (Macro en classeur personnal)
Puis ca bug sur la ligne Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Manu
"DanielCo" a écrit dans le message de news:
kre06a$e5l$Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
DanielBonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en
revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma
copie et que je reviens sur le fichier source pour continuer ma macro,
il prend en compte le nom du fichier actif et c'est ce que je veux pas.
est t'il possible de revenir sur le fichier source sans qu'il prenne en
compte le nom du fichier. Je pourrais ainsi envoyer ma macro de
n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
te permet de choisir le fichier à ouvrir et de l'ouvrir. S'il est déjà
ouvert, après l'avoir ouvert, mets :
Set Wbk = ActiveWorkbook.
Quant à :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
J'ai dit que c'était un exemple d'utilisation.
Daniel
Bonjour Daniel,
Ca ne fonctionne pas, j'ai mis :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel
(*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Workbooks.Open Filename:= _
"C:Documents and SettingsManuBureausynthese.xlsx"
Range("A1").Select
Application.CutCopyMode = False
Dés que je lance la macro, il me demande d'ouvrir un fichier, je ne
comprend pas car le fichier source est deja ouvert et je démarre la macro
à partir de là (Macro en classeur personnal)
Puis ca bug sur la ligne Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Manu
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news:
kre06a$e5l$1@speranza.aioe.org...
Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
Daniel
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en
revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma
copie et que je reviens sur le fichier source pour continuer ma macro,
il prend en compte le nom du fichier actif et c'est ce que je veux pas.
est t'il possible de revenir sur le fichier source sans qu'il prenne en
compte le nom du fichier. Je pourrais ainsi envoyer ma macro de
n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
te permet de choisir le fichier à ouvrir et de l'ouvrir. S'il est déjà
ouvert, après l'avoir ouvert, mets :
Set Wbk = ActiveWorkbook.
Quant à :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
J'ai dit que c'était un exemple d'utilisation.
DanielBonjour Daniel,
Ca ne fonctionne pas, j'ai mis :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel
(*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Workbooks.Open Filename:= _
"C:Documents and SettingsManuBureausynthese.xlsx"
Range("A1").Select
Application.CutCopyMode = False
Dés que je lance la macro, il me demande d'ouvrir un fichier, je ne
comprend pas car le fichier source est deja ouvert et je démarre la macro
à partir de là (Macro en classeur personnal)
Puis ca bug sur la ligne Wbk.Sheets("Feuil1").Range("A1:A10").Copy
Manu
"DanielCo" a écrit dans le message de news:
kre06a$e5l$Bonjour,
Tu peux utiliser, pour référencer le fichier source :
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),
*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Ensuite, tu peux utiliser "Wbk" à la place du classeur source :
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
par exemple.
Cordialement.
DanielBonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en
revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma
copie et que je reviens sur le fichier source pour continuer ma macro,
il prend en compte le nom du fichier actif et c'est ce que je veux pas.
est t'il possible de revenir sur le fichier source sans qu'il prenne en
compte le nom du fichier. Je pourrais ainsi envoyer ma macro de
n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié des donnés dans un autre
fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de fichier et d'emplacement par
consequent aucuns soucis ici. en revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur le fichier
source pour continuer ma macro, il prend en compte le nom du fichier actif et c'est ce que je veux pas. est
t'il possible de revenir sur le fichier source sans qu'il prenne en compte le nom du fichier. Je pourrais
ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié des donnés dans un autre
fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de fichier et d'emplacement par
consequent aucuns soucis ici. en revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur le fichier
source pour continuer ma macro, il prend en compte le nom du fichier actif et c'est ce que je veux pas. est
t'il possible de revenir sur le fichier source sans qu'il prenne en compte le nom du fichier. Je pourrais
ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié des donnés dans un autre
fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de fichier et d'emplacement par
consequent aucuns soucis ici. en revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur le fichier
source pour continuer ma macro, il prend en compte le nom du fichier actif et c'est ce que je veux pas. est
t'il possible de revenir sur le fichier source sans qu'il prenne en compte le nom du fichier. Je pourrais
ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Workbooks(Wbk.Name).Close False
Bonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à la
cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur
ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and
Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
51da7c3e$1$3738$
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié
des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à
chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je
reviens sur le fichier source pour continuer ma macro, il prend en compte
le nom du fichier actif et c'est ce que je veux pas. est t'il possible de
revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier
source.
J'espere avoir été clair.
Merci
Manu
Workbooks(Wbk.Name).Close False
Bonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à la
cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur
ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and
Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
51da7c3e$1$3738$426a74cc@news.free.fr...
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié
des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à
chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je
reviens sur le fichier source pour continuer ma macro, il prend en compte
le nom du fichier actif et c'est ce que je veux pas. est t'il possible de
revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier
source.
J'espere avoir été clair.
Merci
Manu
Workbooks(Wbk.Name).Close False
Bonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à la
cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur
ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and
Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
51da7c3e$1$3738$
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié
des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de
fichier et d'emplacement par consequent aucuns soucis ici. en revanche mon
fichier source n'ais pas toujoujours le même et le nom est different à
chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je
reviens sur le fichier source pour continuer ma macro, il prend en compte
le nom du fichier actif et c'est ce que je veux pas. est t'il possible de
revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier
source.
J'espere avoir été clair.
Merci
Manu
Bonjour Jacky,Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
DanielBonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à
la cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur
ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and
Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
51da7c3e$1$3738$
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en
revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma
copie et que je reviens sur le fichier source pour continuer ma macro,
il prend en compte le nom du fichier actif et c'est ce que je veux pas.
est t'il possible de revenir sur le fichier source sans qu'il prenne en
compte le nom du fichier. Je pourrais ainsi envoyer ma macro de
n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour Jacky,
Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
Daniel
Bonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à
la cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur
ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and
Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news:
51da7c3e$1$3738$426a74cc@news.free.fr...
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en
revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma
copie et que je reviens sur le fichier source pour continuer ma macro,
il prend en compte le nom du fichier actif et c'est ce que je veux pas.
est t'il possible de revenir sur le fichier source sans qu'il prenne en
compte le nom du fichier. Je pourrais ainsi envoyer ma macro de
n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Bonjour Jacky,Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
DanielBonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à
la cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur
ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and
Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy
ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news:
51da7c3e$1$3738$
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de
copié des donnés dans un autre fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom
de fichier et d'emplacement par consequent aucuns soucis ici. en
revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma
copie et que je reviens sur le fichier source pour continuer ma macro,
il prend en compte le nom du fichier actif et c'est ce que je veux pas.
est t'il possible de revenir sur le fichier source sans qu'il prenne en
compte le nom du fichier. Je pourrais ainsi envoyer ma macro de
n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
Pourquoi pas :
Bonjour Jacky,Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
Daniel
Pourquoi pas :
Bonjour Jacky,
Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
Daniel
Pourquoi pas :
Bonjour Jacky,Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
Daniel
D'autre part, je ne souhaite rien fermé
Bonjour Jacky,
Merci,
Alors, ca fonctionne, mais pourquoi me demander le nom du fichier alors qu'il est ouvert.... (tout en
sachant bien sur que cela pourrais être un autre fichier) est t'il possible wbk reconnaisse le fichier actif
sans qu'il demande son ouverture ?
D'autre part, je ne souhaite rien fermé car j'ai d'autre copy à faire, j'ai donc oter
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
Et comme j'ai d'autre copies, je souhaiterais adapter ce que jacky m'avais donné :
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Activate
Pour aller à la derniere celulle vide de la colonne A et non toujours en A1 comme le stipule cette ligne :
ActiveWorkbook.Sheets("synthese").[a1]
J'ai bien sur tenté : ActiveWorkbook.Sheets("synthese").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row +
1).Activate Mais ca n'a evidemment pas fonctionné.
Merci
"DanielCo" a écrit dans le message de news: krek5c$8cl$Bonjour Jacky,Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
DanielBonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à la cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news: 51da7c3e$1$3738$
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié des donnés dans un autre
fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de fichier et d'emplacement par
consequent aucuns soucis ici. en revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur le
fichier source pour continuer ma macro, il prend en compte le nom du fichier actif et c'est ce que je
veux pas. est t'il possible de revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
D'autre part, je ne souhaite rien fermé
Bonjour Jacky,
Merci,
Alors, ca fonctionne, mais pourquoi me demander le nom du fichier alors qu'il est ouvert.... (tout en
sachant bien sur que cela pourrais être un autre fichier) est t'il possible wbk reconnaisse le fichier actif
sans qu'il demande son ouverture ?
D'autre part, je ne souhaite rien fermé car j'ai d'autre copy à faire, j'ai donc oter
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
Et comme j'ai d'autre copies, je souhaiterais adapter ce que jacky m'avais donné :
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Activate
Pour aller à la derniere celulle vide de la colonne A et non toujours en A1 comme le stipule cette ligne :
ActiveWorkbook.Sheets("synthese").[a1]
J'ai bien sur tenté : ActiveWorkbook.Sheets("synthese").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row +
1).Activate Mais ca n'a evidemment pas fonctionné.
Merci
"DanielCo" <dcolardelleZZZ@free.fr> a écrit dans le message de news: krek5c$8cl$1@speranza.aioe.org...
Bonjour Jacky,
Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
Daniel
Bonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à la cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" <manuel.gamin@wanadoo.fr> a écrit dans le message de news: 51da7c3e$1$3738$426a74cc@news.free.fr...
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié des donnés dans un autre
fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de fichier et d'emplacement par
consequent aucuns soucis ici. en revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur le
fichier source pour continuer ma macro, il prend en compte le nom du fichier actif et c'est ce que je
veux pas. est t'il possible de revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu
D'autre part, je ne souhaite rien fermé
Bonjour Jacky,
Merci,
Alors, ca fonctionne, mais pourquoi me demander le nom du fichier alors qu'il est ouvert.... (tout en
sachant bien sur que cela pourrais être un autre fichier) est t'il possible wbk reconnaisse le fichier actif
sans qu'il demande son ouverture ?
D'autre part, je ne souhaite rien fermé car j'ai d'autre copy à faire, j'ai donc oter
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
Et comme j'ai d'autre copies, je souhaiterais adapter ce que jacky m'avais donné :
Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1).Activate
Pour aller à la derniere celulle vide de la colonne A et non toujours en A1 comme le stipule cette ligne :
ActiveWorkbook.Sheets("synthese").[a1]
J'ai bien sur tenté : ActiveWorkbook.Sheets("synthese").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row +
1).Activate Mais ca n'a evidemment pas fonctionné.
Merci
"DanielCo" a écrit dans le message de news: krek5c$8cl$Bonjour Jacky,Workbooks(Wbk.Name).Close False
Pourquoi pas :
Wbk.Close False
Cordialement.
DanielBonjour,
Ceci place dans un classeur
Ouvre un classeur par sélection
Copie la plage "A1:A10" de ce classeur
Et la colle dans le classeur "synthese.xlsx" dans la feuille "synthese" à la cellule a1
Puis ferme et sauvegarde le classeur "synthese.xlsx" et ferme le classeur ouvert par selection.
'------------------------
Sub jj()
Dim Fichier As String, Wbk As Workbook
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls*),*.xls*")
Set Wbk = Workbooks.Open(Fichier)
Workbooks.Open Filename:="C:Documents and Settingsmanubureausynthese.xlsx"
Wbk.Sheets("Feuil1").Range("A1:A10").Copy ActiveWorkbook.Sheets("synthese").[a1]
ActiveWorkbook.Close True
Workbooks(Wbk.Name).Close False
End Sub
'-----------------
--
Salutations
JJ
"Manu" a écrit dans le message de news: 51da7c3e$1$3738$
Bonjour,
J'ai fais une macro, mais j'ai un soucis... Le but de la macro est de copié des donnés dans un autre
fichier, j'explique...
Mon fichier où je recois la copie est toujours le même avec le même nom de fichier et d'emplacement par
consequent aucuns soucis ici. en revanche mon fichier source n'ais pas toujoujours le même et le nom est
different à chaque fois, alors j'ai un soucis car quand j'ai fini ma copie et que je reviens sur le
fichier source pour continuer ma macro, il prend en compte le nom du fichier actif et c'est ce que je
veux pas. est t'il possible de revenir sur le fichier source sans qu'il prenne en compte le nom du
fichier. Je pourrais ainsi envoyer ma macro de n'importe quel fichier source.
J'espere avoir été clair.
Merci
Manu