bonsoir
kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à partir du
classeur en cours une feuille
contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec boutons et
code bien entendu
ai trouvé importer des données mais ne prend pas mon code et les objets
Hello Lsteph, oui exact, voici la version final pour ceux que cela intéresse grand merci à toi j'ai modifié "Chemin" par ThisWorkbook.path '************************************************** 'supprime le message d'alerte de windows 'Supprime la feuille existante avant importation (doublon) Application.DisplayAlerts = False Sheets("ListeTest").Delete Application.DisplayAlerts = True
'ouverture du classeur Workbooks.Open ThisWorkbook.Path & "" & "classeur2.xls", 0, ReadOnly:úlse 'Copie la feuille Sheets("ListeTest").Copy Before:=Workbooks("Test.xls").Sheets(1) 'fermeture du classeur sans sauvegarde Workbooks("classeur2.xls").Close savechanges:úlse '****************************************************
"LSteph" a écrit dans le message de groupe de discussion : ePmc#
Bonjour, donc une fois épuré(l'activate et le select sont générés par l'enregistreur mais sont inutiles)cela donnerait:
Hello Lsteph,
oui exact, voici la version final pour ceux que cela intéresse
grand merci à toi
j'ai modifié "Chemin" par ThisWorkbook.path
'**************************************************
'supprime le message d'alerte de windows
'Supprime la feuille existante avant importation (doublon)
Application.DisplayAlerts = False
Sheets("ListeTest").Delete
Application.DisplayAlerts = True
'ouverture du classeur
Workbooks.Open ThisWorkbook.Path & "" & "classeur2.xls", 0,
ReadOnly:úlse
'Copie la feuille
Sheets("ListeTest").Copy Before:=Workbooks("Test.xls").Sheets(1)
'fermeture du classeur sans sauvegarde
Workbooks("classeur2.xls").Close savechanges:úlse
'****************************************************
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de groupe de
discussion : ePmc#Tt8IHA.2264@TK2MSFTNGP04.phx.gbl...
Bonjour,
donc une fois épuré(l'activate et le select sont générés par
l'enregistreur mais sont inutiles)cela donnerait:
Hello Lsteph, oui exact, voici la version final pour ceux que cela intéresse grand merci à toi j'ai modifié "Chemin" par ThisWorkbook.path '************************************************** 'supprime le message d'alerte de windows 'Supprime la feuille existante avant importation (doublon) Application.DisplayAlerts = False Sheets("ListeTest").Delete Application.DisplayAlerts = True
'ouverture du classeur Workbooks.Open ThisWorkbook.Path & "" & "classeur2.xls", 0, ReadOnly:úlse 'Copie la feuille Sheets("ListeTest").Copy Before:=Workbooks("Test.xls").Sheets(1) 'fermeture du classeur sans sauvegarde Workbooks("classeur2.xls").Close savechanges:úlse '****************************************************
"LSteph" a écrit dans le message de groupe de discussion : ePmc#
Bonjour, donc une fois épuré(l'activate et le select sont générés par l'enregistreur mais sont inutiles)cela donnerait:
Je suis confus LSeph, entièrement en accord, j'ai omis de dire que ce n'était qu'un résultat d'enregistrement macro.
"LSteph" a écrit dans le message de news:
...pardon j'ai dit déplace (qui serait .move) ici je voulais dire transfère une copie ( .copy)
;-)
LSteph a écrit :
Bonjour Fredo,
Si je peux me permettre.. faut oublier tous ces select qui sont inutiles! Exemple ceci déplace une feuille d'un classeur à l'autre sans rien avoir à demander de sélectionner:
Bonjour les 2 classeurs doivent être ouverts. Sub Import() Windows("Classeur_importé.xls").Activate Range("A1:R14").Select Selection.Copy Windows("Classeur_de_ réception.xls").Activate Range("A1").Select ActiveSheet.Paste End Sub
"Pascal" ,com> a écrit dans le message de news: eDan$
hello, merci à vous 3 pour les réponses pour exportation cela fonctionne très bien merci pour Importation je vois pas comment importer cette feuille on ne peut qu'insérer des feuilles vides ou déjà toutes prêtes Reidée?
"LSteph" a écrit dans le message de groupe de discussion :
Bonjour,
clic droit onglet
créer une copie de la feuille
choisir nouveau classeur
Enregistrer sous cektuveu.xls
Rajouter tout le reste ensuite (les autres bidules qui eux n'ont pas de code)
Enregistrer
-- lSteph
Pascal a écrit :
bonsoir kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à partir du classeur en cours une feuille contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec boutons et code bien entendu ai trouvé importer des données mais ne prend pas mon code et les objets
merci de vos conseills Pascal
faut oublier tous ces select qui sont inutiles!
Je suis confus LSeph, entièrement en accord, j'ai omis de dire que ce
n'était qu'un résultat d'enregistrement macro.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uv6cVPh8IHA.1568@TK2MSFTNGP04.phx.gbl...
...pardon j'ai dit déplace (qui serait .move)
ici je voulais dire transfère une copie ( .copy)
;-)
LSteph a écrit :
Bonjour Fredo,
Si je peux me permettre..
faut oublier tous ces select qui sont inutiles!
Exemple ceci déplace une feuille d'un classeur à l'autre sans rien avoir
à demander de sélectionner:
Bonjour
les 2 classeurs doivent être ouverts.
Sub Import()
Windows("Classeur_importé.xls").Activate
Range("A1:R14").Select
Selection.Copy
Windows("Classeur_de_ réception.xls").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
eDan$FQ8IHA.2332@TK2MSFTNGP03.phx.gbl...
hello,
merci à vous 3 pour les réponses
pour exportation cela fonctionne très bien merci
pour Importation je vois pas comment importer cette feuille on ne peut
qu'insérer des feuilles vides ou déjà toutes prêtes
Reidée?
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de groupe de
discussion : e4jppLP8IHA.1592@TK2MSFTNGP04.phx.gbl...
Bonjour,
clic droit onglet
créer une copie de la feuille
choisir nouveau classeur
Enregistrer sous cektuveu.xls
Rajouter tout le reste ensuite
(les autres bidules qui eux n'ont pas de code)
Enregistrer
--
lSteph
Pascal a écrit :
bonsoir
kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à
partir du classeur en cours une feuille
contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec
boutons et code bien entendu
ai trouvé importer des données mais ne prend pas mon code et les
objets
Je suis confus LSeph, entièrement en accord, j'ai omis de dire que ce n'était qu'un résultat d'enregistrement macro.
"LSteph" a écrit dans le message de news:
...pardon j'ai dit déplace (qui serait .move) ici je voulais dire transfère une copie ( .copy)
;-)
LSteph a écrit :
Bonjour Fredo,
Si je peux me permettre.. faut oublier tous ces select qui sont inutiles! Exemple ceci déplace une feuille d'un classeur à l'autre sans rien avoir à demander de sélectionner:
Bonjour les 2 classeurs doivent être ouverts. Sub Import() Windows("Classeur_importé.xls").Activate Range("A1:R14").Select Selection.Copy Windows("Classeur_de_ réception.xls").Activate Range("A1").Select ActiveSheet.Paste End Sub
"Pascal" ,com> a écrit dans le message de news: eDan$
hello, merci à vous 3 pour les réponses pour exportation cela fonctionne très bien merci pour Importation je vois pas comment importer cette feuille on ne peut qu'insérer des feuilles vides ou déjà toutes prêtes Reidée?
"LSteph" a écrit dans le message de groupe de discussion :
Bonjour,
clic droit onglet
créer une copie de la feuille
choisir nouveau classeur
Enregistrer sous cektuveu.xls
Rajouter tout le reste ensuite (les autres bidules qui eux n'ont pas de code)
Enregistrer
-- lSteph
Pascal a écrit :
bonsoir kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à partir du classeur en cours une feuille contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec boutons et code bien entendu ai trouvé importer des données mais ne prend pas mon code et les objets
merci de vos conseills Pascal
LSteph
Bonjour Fredo,
Tu n'as pas à être confus. Du coup c'est moi qui le suis. Je le dis quand je le vois pour avoir moi-même trainé cela comme un boulet pendant longtemps. Du coup je m'imposais inutilement des mouvements, comme tu dis, tels que l'enregistreur les écrit. On est bien d'accord.
@+
-- lSteph
Fredo P a écrit :
faut oublier tous ces select qui sont inutiles!
Je suis confus LSeph, entièrement en accord, j'ai omis de dire que ce n'était qu'un résultat d'enregistrement macro.
"LSteph" a écrit dans le message de news:
...pardon j'ai dit déplace (qui serait .move) ici je voulais dire transfère une copie ( .copy)
;-)
LSteph a écrit :
Bonjour Fredo,
Si je peux me permettre.. faut oublier tous ces select qui sont inutiles! Exemple ceci déplace une feuille d'un classeur à l'autre sans rien avoir à demander de sélectionner:
Bonjour les 2 classeurs doivent être ouverts. Sub Import() Windows("Classeur_importé.xls").Activate Range("A1:R14").Select Selection.Copy Windows("Classeur_de_ réception.xls").Activate Range("A1").Select ActiveSheet.Paste End Sub
"Pascal" ,com> a écrit dans le message de news: eDan$
hello, merci à vous 3 pour les réponses pour exportation cela fonctionne très bien merci pour Importation je vois pas comment importer cette feuille on ne peut qu'insérer des feuilles vides ou déjà toutes prêtes Reidée?
"LSteph" a écrit dans le message de groupe de discussion :
Bonjour,
clic droit onglet
créer une copie de la feuille
choisir nouveau classeur
Enregistrer sous cektuveu.xls
Rajouter tout le reste ensuite (les autres bidules qui eux n'ont pas de code)
Enregistrer
-- lSteph
Pascal a écrit :
bonsoir kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à partir du classeur en cours une feuille contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec boutons et code bien entendu ai trouvé importer des données mais ne prend pas mon code et les objets
merci de vos conseills Pascal
Bonjour Fredo,
Tu n'as pas à être confus. Du coup c'est moi qui le suis.
Je le dis quand je le vois pour avoir moi-même trainé cela comme un
boulet pendant longtemps. Du coup je m'imposais inutilement des
mouvements, comme tu dis, tels que l'enregistreur les écrit.
On est bien d'accord.
@+
--
lSteph
Fredo P a écrit :
faut oublier tous ces select qui sont inutiles!
Je suis confus LSeph, entièrement en accord, j'ai omis de dire que ce
n'était qu'un résultat d'enregistrement macro.
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uv6cVPh8IHA.1568@TK2MSFTNGP04.phx.gbl...
...pardon j'ai dit déplace (qui serait .move)
ici je voulais dire transfère une copie ( .copy)
;-)
LSteph a écrit :
Bonjour Fredo,
Si je peux me permettre..
faut oublier tous ces select qui sont inutiles!
Exemple ceci déplace une feuille d'un classeur à l'autre sans rien avoir
à demander de sélectionner:
Bonjour
les 2 classeurs doivent être ouverts.
Sub Import()
Windows("Classeur_importé.xls").Activate
Range("A1:R14").Select
Selection.Copy
Windows("Classeur_de_ réception.xls").Activate
Range("A1").Select
ActiveSheet.Paste
End Sub
"Pascal" <inconnu@hotmail,com> a écrit dans le message de news:
eDan$FQ8IHA.2332@TK2MSFTNGP03.phx.gbl...
hello,
merci à vous 3 pour les réponses
pour exportation cela fonctionne très bien merci
pour Importation je vois pas comment importer cette feuille on ne peut
qu'insérer des feuilles vides ou déjà toutes prêtes
Reidée?
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de groupe de
discussion : e4jppLP8IHA.1592@TK2MSFTNGP04.phx.gbl...
Bonjour,
clic droit onglet
créer une copie de la feuille
choisir nouveau classeur
Enregistrer sous cektuveu.xls
Rajouter tout le reste ensuite
(les autres bidules qui eux n'ont pas de code)
Enregistrer
--
lSteph
Pascal a écrit :
bonsoir
kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à
partir du classeur en cours une feuille
contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec
boutons et code bien entendu
ai trouvé importer des données mais ne prend pas mon code et les
objets
Tu n'as pas à être confus. Du coup c'est moi qui le suis. Je le dis quand je le vois pour avoir moi-même trainé cela comme un boulet pendant longtemps. Du coup je m'imposais inutilement des mouvements, comme tu dis, tels que l'enregistreur les écrit. On est bien d'accord.
@+
-- lSteph
Fredo P a écrit :
faut oublier tous ces select qui sont inutiles!
Je suis confus LSeph, entièrement en accord, j'ai omis de dire que ce n'était qu'un résultat d'enregistrement macro.
"LSteph" a écrit dans le message de news:
...pardon j'ai dit déplace (qui serait .move) ici je voulais dire transfère une copie ( .copy)
;-)
LSteph a écrit :
Bonjour Fredo,
Si je peux me permettre.. faut oublier tous ces select qui sont inutiles! Exemple ceci déplace une feuille d'un classeur à l'autre sans rien avoir à demander de sélectionner:
Bonjour les 2 classeurs doivent être ouverts. Sub Import() Windows("Classeur_importé.xls").Activate Range("A1:R14").Select Selection.Copy Windows("Classeur_de_ réception.xls").Activate Range("A1").Select ActiveSheet.Paste End Sub
"Pascal" ,com> a écrit dans le message de news: eDan$
hello, merci à vous 3 pour les réponses pour exportation cela fonctionne très bien merci pour Importation je vois pas comment importer cette feuille on ne peut qu'insérer des feuilles vides ou déjà toutes prêtes Reidée?
"LSteph" a écrit dans le message de groupe de discussion :
Bonjour,
clic droit onglet
créer une copie de la feuille
choisir nouveau classeur
Enregistrer sous cektuveu.xls
Rajouter tout le reste ensuite (les autres bidules qui eux n'ont pas de code)
Enregistrer
-- lSteph
Pascal a écrit :
bonsoir kkun aurait 'il la gentillesse de m'expliquer comment EXPORTER à partir du classeur en cours une feuille contenant en plus du code et des objets boutons
et ensuite dans le nouveau classeur IMPORTER cette feuille avec boutons et code bien entendu ai trouvé importer des données mais ne prend pas mon code et les objets