Copier une feuille d'un classeur fermé vers un classeur ouvert

a-tchittat · 6 Avril 2008

Salut tout le monde ...

Je craque, je ne trouve pas la solution ...
Voilà ce que j'aimerais faire : j'ai un classeur ouvert dans le lequel j'aimerais copier une feuille venant d'un autre classeur excel que je laisserai fermé.
J'ai essayé un bout de code mais il me renvoie une erreur sur la méthode "Copy" ...

Voilà mon code :
Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlSheet As New Excel.Worksheet

Sub cmdGenerer_Click()
Set xlBook = xlApp.Workbooks.Open(chFichExtr)
Set xlSheet = xlBook.Sheets(1) ' si on veut utiliser une feuille
xlSheet.Copy Before:=Workbooks(aWBook).Sheets(3) <= problème !
Application.CutCopyMode = False
...
end sub

aWBook est le nom de mon classeur ouvert.

Avez-vous une idée svp ?

Merci d'avance et bon WE !!!

skoobi · 8 Avril 2008

Re : Copier une feuille d'un classeur fermé vers un classeur ouvert

Bonsoir,

sur le classeur ouvert, vérifie qu'il y a bien 3 feuilles et qu'il n'y a pas une feuille ayant déjà le même nom que celle à copier.

Pierrot93 · 8 Avril 2008

Re : Copier une feuille d'un classeur fermé vers un classeur ouvert

Bonjour a-tchittat, Skoobi

regarde dans les discutions similaires, en bas de ce post, entre autre l'excellent code de Michelxld, lien ci dessous:

https://www.excel-downloads.com/threads/feuilles-dun-classeur-ferme-vers-le-classeur-acti.60415/

bonne journée
@+

skoobi · 8 Avril 2008

Re : Copier une feuille d'un classeur fermé vers un classeur ouvert

Re Bonjour, salut Pierrot,

Set xlBook = xlApp.Workbooks.Open(chFichExtr)

Ton fichier n'est pas vraiment fermé...

a-tchittat · 14 Avril 2008

Re : Copier une feuille d'un classeur fermé vers un classeur ouvert

Pardon à tous, j'avais cru que j'avais coché l'option de recevoir des mails s'il y avait eu une réponse à mon post !!! Du coup, entre temps, je me suis effectivement penché sur les requêtes SQL dans excel ... je débute dans ce domaine, mais cela va régler mon problème !!

Donc merci à tous pour votre attention et vos réponses et bonne journée !

michel_m · 14 Avril 2008

Re : Copier une feuille d'un classeur fermé vers un classeur ouvert

Bonjour à tous,

A la bourre, copie d'une feuille d'un classeur restant fermé dans un nouvel onglet du classeur actif

Code:

         Fichier = ThisWorkbook.Path & "\tonclasseurfermé.xls"
          
          Set Source = New ADODB.Connection
          Source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
                          "data source=" & Fichier & ";" & _
                          "extended properties=""Excel 8.0;"""
                          
          texte_SQL = "SELECT * FROM [tonongletdansfermé$]"
                              
          Set Requete = New ADODB.Recordset
          Set Requete = Source.Execute(texte_SQL)
   
         'tu ajoutes une feuille a ton classeur ouvert
          ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) 
          ActiveSheet.Name = "lenomque tu veuxdonné à ton onglet"
         'on récupère les données
          ActiveSheet.Range("A1").CopyFromRecordset Requete
   
          'on ferme!
          Requete.Close
          Source.Close
           Set requete=nothing
            Set source=nothing

Copier une feuille d'un classeur fermé vers un classeur ouvert

a-tchittat

XLDnaute Nouveau

skoobi

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

skoobi

XLDnaute Barbatruc

a-tchittat

XLDnaute Nouveau

michel_m

XLDnaute Accro

Discussions similaires