OVH Cloud OVH Cloud

copier feuille excel

2 réponses
Avatar
g4f
bonjour

je voudrais copier a partir d'une macro MS ACCESS, une
feuille excel dans un autre fichier excel


voici ce que j'utilise pour copier une feuille dans le
meme fichier Excel

Dim XlBook As Object
XlBook.Sheets("FeuilleTOTO").Select
XlBook.Sheets("FeuilleTOTO").Copy Before:=XlBook.Sheets(1)


Je n'arrive pas a copier cette feuille dans un autre
fichier Excel, sachant que j'ai mes 2 fichiers Excel
d'ouverts

Merci par avance pour l'aide

2 réponses

Avatar
Raymond [mvp]
Bonjour.

essaie:
XlBook.Sheets("FeuilleTOTO").Copy
Before:=Workbooks("classeurX.xls").Worksheets(Worksheets.Count)
ou Worksheets(Worksheets.Count -1)
à bien vérifier STP.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"g4f" a écrit dans le message de
news:830c01c48539$82f7bb40$
bonjour

je voudrais copier a partir d'une macro MS ACCESS, une
feuille excel dans un autre fichier excel


voici ce que j'utilise pour copier une feuille dans le
meme fichier Excel

Dim XlBook As Object
XlBook.Sheets("FeuilleTOTO").Select
XlBook.Sheets("FeuilleTOTO").Copy Before:=XlBook.Sheets(1)


Je n'arrive pas a copier cette feuille dans un autre
fichier Excel, sachant que j'ai mes 2 fichiers Excel
d'ouverts

Merci par avance pour l'aide




Avatar
bonjour

j'ai trouvé... il faut déclarer 2 objet car 2 fichiers
excel et apres cela marche

Dim XlBook As Object
Dim XlBook2 As Object
XlBook2.Sheets("FeuilleTOTO").Select
XlBook2.Sheets("FeuilleTOTO").Copy Before:=XlBook.Sheets(1)



-----Message d'origine-----
Bonjour.

essaie:
XlBook.Sheets("FeuilleTOTO").Copy
Before:=Workbooks("classeurX.xls").Worksheets
(Worksheets.Count)

ou Worksheets(Worksheets.Count -1)
à bien vérifier STP.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"g4f" a écrit dans le message de
news:830c01c48539$82f7bb40$
bonjour

je voudrais copier a partir d'une macro MS ACCESS, une
feuille excel dans un autre fichier excel


voici ce que j'utilise pour copier une feuille dans le
meme fichier Excel

Dim XlBook As Object
XlBook.Sheets("FeuilleTOTO").Select
XlBook.Sheets("FeuilleTOTO").Copy Before:=XlBook.Sheets
(1)




Je n'arrive pas a copier cette feuille dans un autre
fichier Excel, sachant que j'ai mes 2 fichiers Excel
d'ouverts

Merci par avance pour l'aide





.