Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Revenir sur le classeur d'origine

Revenir sur le classeur d'origine

6 réponses
Avatar
Florian
Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut être
différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de revenir
sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "\Questions\" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
anonymousA
re,

l'idée est toujours la même , déclarer le classeur actif par une variable

set wbk¬tiveworkbook

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

'on revient à l'ancien classeur actif

wbk.activate

Au passage , il est possible de raccourcir les instructions de copie.

A+

Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut être
différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de revenir
sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True




Avatar
Florian
Merci beaucoup AnonymousA
Raccourcir, cela accélère t-il la macro ?
Flo riant


"anonymousA" a écrit dans le message de news:
43271892$0$5366$
re,

l'idée est toujours la même , déclarer le classeur actif par une variable

set wbk¬tiveworkbook

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

'on revient à l'ancien classeur actif

wbk.activate

Au passage , il est possible de raccourcir les instructions de copie.

A+

Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut être
différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de revenir
sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True





Avatar
anonymousA
ben compte tenu du peu de lignes pas vraiment et notamment dans ce cas
de figure mais c'est plus concis et donc plus joli du point de vue
puriste. D'un autre côté, d'une manière générale, les opérations de type
select ou activate sont toujours des facteurs de ralentissement des macros.

A+

Merci beaucoup AnonymousA
Raccourcir, cela accélère t-il la macro ?
Flo riant


"anonymousA" a écrit dans le message de news:
43271892$0$5366$

re,

l'idée est toujours la même , déclarer le classeur actif par une variable

set wbk¬tiveworkbook

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

'on revient à l'ancien classeur actif

wbk.activate

Au passage , il est possible de raccourcir les instructions de copie.

A+


Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut être
différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de revenir
sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True









Avatar
Florian
Quel talent !!!
génial le set mais je n'arrive pas à intégrer le on error
Ou dois-je le mettre ?
Merci
Flo riant

Set wbk = ActiveWorkbook
Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls "
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
'on revient à l'ancien classeur actif
wbk.Activate


"anonymousA" a écrit dans le message de news:
432721a1$0$5366$
ben compte tenu du peu de lignes pas vraiment et notamment dans ce cas de
figure mais c'est plus concis et donc plus joli du point de vue puriste.
D'un autre côté, d'une manière générale, les opérations de type select ou
activate sont toujours des facteurs de ralentissement des macros.

A+

Merci beaucoup AnonymousA
Raccourcir, cela accélère t-il la macro ?
Flo riant


"anonymousA" a écrit dans le message de news:
43271892$0$5366$

re,

l'idée est toujours la même , déclarer le classeur actif par une variable

set wbk¬tiveworkbook

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

'on revient à l'ancien classeur actif

wbk.activate

Au passage , il est possible de raccourcir les instructions de copie.

A+


Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut être
différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de
revenir sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True










Avatar
anonymousA
re,

Set wbk = ActiveWorkbook
Application.ScreenUpdating = False

Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy

on error resume next
set wbk1=workbooks("Les statistiques.xls")
if wbk1 is nothing then
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
else
wbk1.activate
end if
on error goto 0

Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

wbk.Activate

A+


Quel talent !!!
génial le set mais je n'arrive pas à intégrer le on error
Ou dois-je le mettre ?
Merci
Flo riant

Set wbk = ActiveWorkbook
Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls "
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
'on revient à l'ancien classeur actif
wbk.Activate


"anonymousA" a écrit dans le message de news:
432721a1$0$5366$

ben compte tenu du peu de lignes pas vraiment et notamment dans ce cas de
figure mais c'est plus concis et donc plus joli du point de vue puriste.
D'un autre côté, d'une manière générale, les opérations de type select ou
activate sont toujours des facteurs de ralentissement des macros.

A+


Merci beaucoup AnonymousA
Raccourcir, cela accélère t-il la macro ?
Flo riant


"anonymousA" a écrit dans le message de news:
43271892$0$5366$


re,

l'idée est toujours la même , déclarer le classeur actif par une variable

set wbk¬tiveworkbook

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

'on revient à l'ancien classeur actif

wbk.activate

Au passage , il est possible de raccourcir les instructions de copie.

A+



Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut être
différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de
revenir sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True













Avatar
Florian
Ok merci encore AnonymousA
Flo riant

"anonymousA" a écrit dans le message de news:
432735ea$0$5366$
re,

Set wbk = ActiveWorkbook
Application.ScreenUpdating = False

Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy

on error resume next
set wbk1=workbooks("Les statistiques.xls")
if wbk1 is nothing then
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
else
wbk1.activate
end if
on error goto 0

Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

wbk.Activate

A+


Quel talent !!!
génial le set mais je n'arrive pas à intégrer le on error
Ou dois-je le mettre ?
Merci
Flo riant

Set wbk = ActiveWorkbook
Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls "
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True
'on revient à l'ancien classeur actif
wbk.Activate


"anonymousA" a écrit dans le message de news:
432721a1$0$5366$

ben compte tenu du peu de lignes pas vraiment et notamment dans ce cas de
figure mais c'est plus concis et donc plus joli du point de vue puriste.
D'un autre côté, d'une manière générale, les opérations de type select ou
activate sont toujours des facteurs de ralentissement des macros.

A+


Merci beaucoup AnonymousA
Raccourcir, cela accélère t-il la macro ?
Flo riant


"anonymousA" a écrit dans le message de news:
43271892$0$5366$


re,

l'idée est toujours la même , déclarer le classeur actif par une
variable

set wbk¬tiveworkbook

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True

'on revient à l'ancien classeur actif

wbk.activate

Au passage , il est possible de raccourcir les instructions de copie.

A+



Bonsoir
J'envoie des données dans un autre classeur, je souhaite qu'une fois
celles-ci envoyées, cela revient sur le classeur d'origine qui peut
être différent pour l'instant, j'ai "bricolé cela"
mais je n'ai pas la syntaxe afin d'aller au bout, c'est à dire de
revenir sur la page du classeur d'origine
Merci beaucoup
Flo riant

Application.ScreenUpdating = False
Range("A65536").End(xlUp)(1).Select
Range("A" & ActiveCell.Row & ":T" & ActiveCell.Row).Copy
Workbooks.Open Application.DefaultFilePath & "Questions" & "Les
statistiques.xls"
Sheets("La base").Select
Range("A65536").End(xlUp)(2).Select
ActiveCell.RowHeight = 42.75
Sheets("La base").Paste
Application.CutCopyMode = False
Application.ScreenUpdating = True