Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

copie un onglet avec vba

2 réponses
Avatar
pellet15
Bonjour a tous

--------------------
Sheets(Array("G=E9n=E9ral", "Clients")).Select
Sheets("Clients").Activate
Sheets(Array("G=E9n=E9ral", "Clients")).Delete
----------------------------------------=20

=20
au d=E9part du processus je supprime deux onglet(G=E9n=E9ral et Clients)
et a ce moment un message me demande de confirmer=20


1:comment ne pas avoir de message et continuer le processus

un peut plus loin dans le processus;
-------------------------------
Sheets(Array("G=E9n=E9ral", "Clients")).Copy Before:=3DWorkbooks("dp-Appels=
2016-2015-2014.xlsm").Sheets(2)
wb.Close False ' close the source workbook without saving any changes
Set wb =3D Nothing=20
---------------------------------------

je copie les deux onglet et un message me demande de=20
"le nom " si je veut cette version ou si je veut le renommer !
cela sur 4 "nom" diff=E9rent=20

2: comment ne pas avoir de message et continuer le processus
les nom sont bon.

Merci

2 réponses

Avatar
isabelle
bonjour,

Set wk1 = Workbooks("source.xlsm")
Set wk2 = Workbooks("dp-Appels 2016-2015-2014.xlsm")

Application.DisplayAlerts = False
wk2.Sheets(Array("Général", "Clients)).Delete

wk1.Sheets(Array("Général", "Clients")).Copy Before:=wk2.Sheets(2)
wk1.Close SaveChanges:úlse
Set wk1 = Nothing
Set wk2 = Nothing

isabelle


Le 2016-02-21 11:14, pellet15 a écrit :
Bonjour a tous

--------------------
Sheets(Array("Général", "Clients")).Select
Sheets("Clients").Activate
Sheets(Array("Général", "Clients")).Delete
----------------------------------------


au départ du processus je supprime deux onglet(Général et Clients)
et a ce moment un message me demande de confirmer


1:comment ne pas avoir de message et continuer le processus

un peut plus loin dans le processus;
-------------------------------
Sheets(Array("Général", "Clients")).Copy Before:=Workbooks("dp-Appels 2016-2015-2014.xlsm").Sheets(2)
wb.Close False ' close the source workbook without saving any changes
Set wb = Nothing
---------------------------------------

je copie les deux onglet et un message me demande de
"le nom " si je veut cette version ou si je veut le renommer !
cela sur 4 "nom" différent

2: comment ne pas avoir de message et continuer le processus
les nom sont bon.

Merci

Avatar
isabelle
remarque:
wk1.Close Saved = True
revient au même que
wk1.Close SaveChanges:úlse
isabelle


Le 2016-02-21 11:47, isabelle a écrit :
bonjour,

Set wk1 = Workbooks("source.xlsm")
Set wk2 = Workbooks("dp-Appels 2016-2015-2014.xlsm")

Application.DisplayAlerts = False
wk2.Sheets(Array("Général", "Clients)).Delete

wk1.Sheets(Array("Général", "Clients")).Copy Before:=wk2.Sheets(2)
wk1.Close SaveChanges:úlse
Set wk1 = Nothing
Set wk2 = Nothing

isabelle


Le 2016-02-21 11:14, pellet15 a écrit :
Bonjour a tous

--------------------
Sheets(Array("Général", "Clients")).Select
Sheets("Clients").Activate
Sheets(Array("Général", "Clients")).Delete
----------------------------------------


au départ du processus je supprime deux onglet(Général et Clients)
et a ce moment un message me demande de confirmer


1:comment ne pas avoir de message et continuer le processus

un peut plus loin dans le processus;
-------------------------------
Sheets(Array("Général", "Clients")).Copy Before:=Workbooks("dp-Appels
2016-2015-2014.xlsm").Sheets(2)
wb.Close False ' close the source workbook without saving any changes
Set wb = Nothing
---------------------------------------

je copie les deux onglet et un message me demande de
"le nom " si je veut cette version ou si je veut le renommer !
cela sur 4 "nom" différent

2: comment ne pas avoir de message et continuer le processus
les nom sont bon.

Merci