[VBA] impoter une feuille excel. Fermé

Question

Bonjour a tous,

Je souhaiterais importer une feuille excel dans un projet excel différent.

Voile le code que j'ai tapé actuellement :



    Windows(vnomfichier).Activate '''''Nom du fichier contenant la feuille a importer
    Worksheets("extstk").Select    '''''Feuille a impoter
    Selection.Copy
    Windows("rupture.xls").Activate  '''tableur de reception de la feuille
    Worksheets(2).Select                  '''' feuille dans laquelle je dois copier les données
    Worksheets(2).Range("A1").Select
    ActiveSheet.Paste



Voila mon problème :

Ce code ne fonctionne pas comme je le souhaite, en effet, pour importer les données de la feuille "extstk" je dois dabord pré selectionner toute les cellules de la feuille.

Je recherche aide qui me permettrais dans l'idéal de ne pas avoir a ouvrir le classeur contenant la feuille "extstk" ("vnomchier" dans mon code).

Merci de votre aide.

Max
Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

Salut,
Voici une réponse à ton souci, si les 2 classeurs sont ouverts...
Workbooks(vnomfichier).Sheets("extstk").Copy Workbooks("rupture.xls").Sheets("Feuil2")

Sinon pour écire et lire dans les classeurs fermés je te recommande fortement toute cette lecture : https://silkyroad.developpez.com/VBA/ClasseursFermes/

dct33 · Answer

Bonsoir

pour copier un page il faut tout sélectionner dans le classeur actif dans la feuille active 

on peut choisir la feuille active en tapant ex Sheets(1).select 

Cells.Select                              ' sélectionne toute la feuille 
Selection.Copy 

 Windows("rupture.xls").Activate  ' sélectionne le classeur 

 Sheets(2).select                       ' sélectionne la feuille 

Range("A1").Select 
    ActiveSheet.Paste


Bonne programmation

Polux31 · Answer

Bonjour,    

Voilà une procédure pour extraire le contenu d'une feuille d'un fichier Excel sans avoir besoin de l'ouvrir:    

Il faut pour que ça fonctionne, cocher la référence: Microsoft ActiveX Data Objects x.x Library :    

Menu Outils > Références > Cochez la ligne "Microsoft ActiveX Data Objects x.x Library".    

Sub Recup_Donnees_XL_Ferme(ByVal vnomFichier As String)   'vnomfichier = chemin complet du fichier source fermé    
    Dim Cnx As ADODB.Connection    
    Dim xlSheet As String    
    Dim Query As String    
    Dim Rs As ADODB.Recordset    

    'Nom de la feuille dans le fichier source fermé    
    xlSheet = "extstk"    
    '    
    Set Cnx = New ADODB.Connection    
    '    
    'Connection     
    With Cnx    
        .Provider = "Microsoft.Jet.OLEDB.4.0"    
        .ConnectionString = "Data Source=" & vnomFichier & _    
            ";Extended Properties=Excel 8.0;"    
        .Open    
    End With    
    '        
    'Ecriture de la requête.    
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.    
    Query = "SELECT * FROM [" & xlSheet & "$]"    
    '    
    Set Rs = New ADODB.Recordset    
    Set Rs = Cnx.Execute(Query)    
    '    
    'Copie le résultat de la requête dans la cellule A2 de la feuille 1    
    ThisWorkbook.Worksheets(1).Range("A2").CopyFromRecordset Rs 
    '    
    'Fermeture de la connexion et du recordset et libération de la mémoire.    
    Cnx.Close    
    Set Cnx = Nothing    
    Rs.Close    
    Set Rs = Nothing    

End Sub    


Un exemple pour utiliser cette procédure :    

Call Recup_Donnees_XL_Ferme("C:\Temp\monFichier.xls")

Bon courage    

;o)    
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»     
Nicolas Boileau

[VBA] impoter une feuille excel.

3 réponses

Discussions similaires