Bonjour =E0 Toutes et =E0 tous,
Voici mon probl=E8me:
=E0 l'aide de VBA (automatique) j'ai r=E9cup=E9r=E9 en macro les=20
actions de copie que j'aimerais r=E9aliser =E0 partir d'une=20
feuille vers une feuille situ=E9 dans un autre classeur et=20
cela m'a donn=E9 ceci :
Sub Macro5()
' Macro enregistr=E9e le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=3DxlValues,=20
Operation:=3DxlNone, SkipBlanks:=3D _
False, Transpose:=3DFalse
Range("A2").Select
End Sub
Oui mais voila cela me g=E9n=E8re une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'ex=E9cution 1004"
"La m=E9thode Select de la classe Range a =E9chou=E9"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
pas testé, essaies workbooks("location WTY 2003").sheets("TaFeuille").range("A1:e10000").value=workbooks("liste des chantiers").sheets("global").range("A1:e10000").value
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Freedo" a écrit dans le message de news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
Salut
pas testé, essaies
workbooks("location WTY
2003").sheets("TaFeuille").range("A1:e10000").value=workbooks("liste des
chantiers").sheets("global").range("A1:e10000").value
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a écrit dans le
message de news: 0b2801c3a226$e3786100$a001280a@phx.gbl...
Bonjour à Toutes et à tous,
Voici mon problème:
à l'aide de VBA (automatique) j'ai récupéré en macro les
actions de copie que j'aimerais réaliser à partir d'une
feuille vers une feuille situé dans un autre classeur et
cela m'a donné ceci :
Sub Macro5()
' Macro enregistrée le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A2").Select
End Sub
Oui mais voila cela me génère une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'exécution 1004"
"La méthode Select de la classe Range a échoué"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
pas testé, essaies workbooks("location WTY 2003").sheets("TaFeuille").range("A1:e10000").value=workbooks("liste des chantiers").sheets("global").range("A1:e10000").value
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Freedo" a écrit dans le message de news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
Hervé
Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1" With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .[A2] End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
Salut Freedo,
Sub Macro5()
With Workbooks("location WTY 2003.xls")
'ici, mettre le nom de la feuille de destination
'du classeur location WTY 2003.xls à la place de "Feuil1"
With .Worksheets("Feuil1")
Workbooks("liste des
chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .[A2]
End With
Application.Goto .Worksheets("Feuil1").[A2]
End With
End Sub
Hervé.
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a écrit dans le
message news: 0b2801c3a226$e3786100$a001280a@phx.gbl...
Bonjour à Toutes et à tous,
Voici mon problème:
à l'aide de VBA (automatique) j'ai récupéré en macro les
actions de copie que j'aimerais réaliser à partir d'une
feuille vers une feuille situé dans un autre classeur et
cela m'a donné ceci :
Sub Macro5()
' Macro enregistrée le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A2").Select
End Sub
Oui mais voila cela me génère une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'exécution 1004"
"La méthode Select de la classe Range a échoué"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1" With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .[A2] End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
sabatier
et peut-être même, freedo, qu'en rajoutant tout simplement Activesheet. devant Range("A2:E10000").Select, tu n'aurais pas besoin de trop chambouler ta macro... ceci parce que tu as écris une macro dans un classeur et tu vas dans un autre et excel ne sait plus très bien où il en est...c'est d'ailleurs la seule chose que j'ai en commun avec lui...et le pape jps
Hervé a écrit:
Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1" With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .[A2] End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
et peut-être même, freedo, qu'en rajoutant tout simplement Activesheet.
devant Range("A2:E10000").Select, tu n'aurais pas besoin de trop
chambouler ta macro...
ceci parce que tu as écris une macro dans un classeur et tu vas dans un
autre et excel ne sait plus très bien où il en est...c'est d'ailleurs la
seule chose que j'ai en commun avec lui...et le pape
jps
Hervé a écrit:
Salut Freedo,
Sub Macro5()
With Workbooks("location WTY 2003.xls")
'ici, mettre le nom de la feuille de destination
'du classeur location WTY 2003.xls à la place de "Feuil1"
With .Worksheets("Feuil1")
Workbooks("liste des
chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .[A2]
End With
Application.Goto .Worksheets("Feuil1").[A2]
End With
End Sub
Hervé.
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a écrit dans le
message news: 0b2801c3a226$e3786100$a001280a@phx.gbl...
Bonjour à Toutes et à tous,
Voici mon problème:
à l'aide de VBA (automatique) j'ai récupéré en macro les
actions de copie que j'aimerais réaliser à partir d'une
feuille vers une feuille situé dans un autre classeur et
cela m'a donné ceci :
Sub Macro5()
' Macro enregistrée le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:úlse
Range("A2").Select
End Sub
Oui mais voila cela me génère une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'exécution 1004"
"La méthode Select de la classe Range a échoué"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
et peut-être même, freedo, qu'en rajoutant tout simplement Activesheet. devant Range("A2:E10000").Select, tu n'aurais pas besoin de trop chambouler ta macro... ceci parce que tu as écris une macro dans un classeur et tu vas dans un autre et excel ne sait plus très bien où il en est...c'est d'ailleurs la seule chose que j'ai en commun avec lui...et le pape jps
Hervé a écrit:
Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1" With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .[A2] End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
Freedo
bonjour Thierry, J'ai testé et çà fonctionne très bien ! merci beaucoup, cordialement freedo
-----Message d'origine----- Salut
pas testé, essaies workbooks("location WTY 2003").sheets("TaFeuille").range ("A1:e10000").value=workbooks("liste des
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Freedo" a écrit dans le
message de news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
.
bonjour Thierry,
J'ai testé et çà fonctionne très bien !
merci beaucoup,
cordialement
freedo
-----Message d'origine-----
Salut
pas testé, essaies
workbooks("location WTY
2003").sheets("TaFeuille").range
("A1:e10000").value=workbooks("liste des
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a
écrit dans le
message de news: 0b2801c3a226$e3786100$a001280a@phx.gbl...
Bonjour à Toutes et à tous,
Voici mon problème:
à l'aide de VBA (automatique) j'ai récupéré en macro les
actions de copie que j'aimerais réaliser à partir d'une
feuille vers une feuille situé dans un autre classeur et
cela m'a donné ceci :
Sub Macro5()
' Macro enregistrée le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
End Sub
Oui mais voila cela me génère une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'exécution 1004"
"La méthode Select de la classe Range a échoué"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
-- a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Freedo" a écrit dans le
message de news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
.
Freedo
bonjour Hervé, tout fonctionne très bien ! merci beaucoup, cordialement freedo
-----Message d'origine----- Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1"
With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy . [A2]
End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le
message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
.
bonjour Hervé,
tout fonctionne très bien !
merci beaucoup,
cordialement
freedo
-----Message d'origine-----
Salut Freedo,
Sub Macro5()
With Workbooks("location WTY 2003.xls")
'ici, mettre le nom de la feuille de destination
'du classeur location WTY 2003.xls à la place
de "Feuil1"
With .Worksheets("Feuil1")
Workbooks("liste des
chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .
[A2]
End With
Application.Goto .Worksheets("Feuil1").[A2]
End With
End Sub
Hervé.
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a
écrit dans le
message news: 0b2801c3a226$e3786100$a001280a@phx.gbl...
Bonjour à Toutes et à tous,
Voici mon problème:
à l'aide de VBA (automatique) j'ai récupéré en macro les
actions de copie que j'aimerais réaliser à partir d'une
feuille vers une feuille situé dans un autre classeur et
cela m'a donné ceci :
Sub Macro5()
' Macro enregistrée le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
End Sub
Oui mais voila cela me génère une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'exécution 1004"
"La méthode Select de la classe Range a échoué"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
bonjour Hervé, tout fonctionne très bien ! merci beaucoup, cordialement freedo
-----Message d'origine----- Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1"
With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy . [A2]
End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le
message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
.
Freedo
Bonjour JPS, Merci beaucoup pour ta soluce, en effet dans le cas présent, y-avait-k. et cà fonctionne aussi bien que les solutions de Thierry et Hervé. Néanmoins sans vouloir dénigrer les solutions de TY et RV, il reste que leurs formulations sont aussi intéressantes et que j'utiliserai leurs approches de traitements aussi dans d'autres macros. cordialement, freedo
-----Message d'origine----- et peut-être même, freedo, qu'en rajoutant tout simplement Activesheet.
devant Range("A2:E10000").Select, tu n'aurais pas besoin de trop
chambouler ta macro... ceci parce que tu as écris une macro dans un classeur et tu vas dans un
autre et excel ne sait plus très bien où il en est...c'est d'ailleurs la
seule chose que j'ai en commun avec lui...et le pape jps
Hervé a écrit:
Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1"
With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy . [A2]
End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le
message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
.
Bonjour JPS,
Merci beaucoup pour ta soluce, en effet dans le cas
présent, y-avait-k.
et cà fonctionne aussi bien que les solutions de Thierry
et Hervé.
Néanmoins sans vouloir dénigrer les solutions de TY et RV,
il reste que leurs formulations sont aussi intéressantes
et que j'utiliserai leurs approches de traitements aussi
dans d'autres macros.
cordialement,
freedo
-----Message d'origine-----
et peut-être même, freedo, qu'en rajoutant tout
simplement Activesheet.
devant Range("A2:E10000").Select, tu n'aurais pas besoin
de trop
chambouler ta macro...
ceci parce que tu as écris une macro dans un classeur et
tu vas dans un
autre et excel ne sait plus très bien où il en
est...c'est d'ailleurs la
seule chose que j'ai en commun avec lui...et le pape
jps
Hervé a écrit:
Salut Freedo,
Sub Macro5()
With Workbooks("location WTY 2003.xls")
'ici, mettre le nom de la feuille de destination
'du classeur location WTY 2003.xls à la place
de "Feuil1"
With .Worksheets("Feuil1")
Workbooks("liste des
chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy .
[A2]
End With
Application.Goto .Worksheets("Feuil1").[A2]
End With
End Sub
Hervé.
"Freedo" <Freedo.anonymous@discussions.microsoft.com> a
écrit dans le
message news: 0b2801c3a226$e3786100$a001280a@phx.gbl...
Bonjour à Toutes et à tous,
Voici mon problème:
à l'aide de VBA (automatique) j'ai récupéré en macro les
actions de copie que j'aimerais réaliser à partir d'une
feuille vers une feuille situé dans un autre classeur et
cela m'a donné ceci :
Sub Macro5()
' Macro enregistrée le 3/11/2003
Windows("liste des chantiers.xls").Activate
Sheets("GLOBAL").Select
Range("A2:E10000").Select
Selection.Copy
Windows("location WTY 2003.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A2").Select
End Sub
Oui mais voila cela me génère une erreur sur la ligne :
Range("A2:E10000").Select
"Erreur d'exécution 1004"
"La méthode Select de la classe Range a échoué"
pourtant si je fais la copie manuellemnt , cela marche !
pourquoi qu"en mode macro cela ne va pas ?
Merci de suivre,
freedo
Bonjour JPS, Merci beaucoup pour ta soluce, en effet dans le cas présent, y-avait-k. et cà fonctionne aussi bien que les solutions de Thierry et Hervé. Néanmoins sans vouloir dénigrer les solutions de TY et RV, il reste que leurs formulations sont aussi intéressantes et que j'utiliserai leurs approches de traitements aussi dans d'autres macros. cordialement, freedo
-----Message d'origine----- et peut-être même, freedo, qu'en rajoutant tout simplement Activesheet.
devant Range("A2:E10000").Select, tu n'aurais pas besoin de trop
chambouler ta macro... ceci parce que tu as écris une macro dans un classeur et tu vas dans un
autre et excel ne sait plus très bien où il en est...c'est d'ailleurs la
seule chose que j'ai en commun avec lui...et le pape jps
Hervé a écrit:
Salut Freedo,
Sub Macro5() With Workbooks("location WTY 2003.xls") 'ici, mettre le nom de la feuille de destination 'du classeur location WTY 2003.xls à la place de "Feuil1"
With .Worksheets("Feuil1") Workbooks("liste des chantiers.xls").Worksheets("GLOBAL").[A2:E10000].Copy . [A2]
End With Application.Goto .Worksheets("Feuil1").[A2] End With End Sub
Hervé.
"Freedo" a écrit dans le
message news: 0b2801c3a226$e3786100$ Bonjour à Toutes et à tous, Voici mon problème: à l'aide de VBA (automatique) j'ai récupéré en macro les actions de copie que j'aimerais réaliser à partir d'une feuille vers une feuille situé dans un autre classeur et cela m'a donné ceci : Sub Macro5() ' Macro enregistrée le 3/11/2003 Windows("liste des chantiers.xls").Activate Sheets("GLOBAL").Select Range("A2:E10000").Select Selection.Copy Windows("location WTY 2003.xls").Activate Range("A2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:úlse Range("A2").Select End Sub Oui mais voila cela me génère une erreur sur la ligne : Range("A2:E10000").Select "Erreur d'exécution 1004" "La méthode Select de la classe Range a échoué" pourtant si je fais la copie manuellemnt , cela marche ! pourquoi qu"en mode macro cela ne va pas ? Merci de suivre, freedo
