Enregistrer une feuille excel dans un autre classeur sans ouvrir le deuxième cla

Question

Bonjour,
dans le cadre de mon stage,j'ecris un programme vb sur excel afin de r&#233;aliser des devis pour une entreprise.Pour le moment j'ai fait la mise en page,puis quelques macros.Et en faite sur la feuille de DEVIS je voudrais cr&#233;er un bouton qui permettrait d'enregistrer UNIQUEMENT la feuille DEVIS dans un autre classeur excel sans l'ouvrir.Ce deuxi&#232;me classeur me servira en gros de base de donn&#233;es.
Ce proc&#233;d&#233; est il possible?C'est vraiment urgent.MERCI d'avance

michelxld · Answer

bonsoir

cette macro pourra peut etre t'aider avec quelques adaptations

Sub Export_VersNouvelleFeuille_ClasseurExcelFerme()
'transf&#233;rer la feuille "devis" dans un nouvel onglet d'un classeur ferm&#233;
Dim oRS As ADODB.Recordset
Dim oConn As ADODB.Connection
Dim maFeuille As String, prepaTable As String
Dim j As Integer, i As Integer


'nom(sans espace!) de la feuille Excel qui va etre cr&#233;&#233;e dans le classeur ferm&#233;
maFeuille = "ArchiveDevis002"


Set oConn = New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Classeur1_Ferm&#233;.xls;" & _
               "Extended Properties=""Excel 8.0;HDR=NO;"""
    
For i = 1 To 10 'nombre de colonnes &#224; transf&#233;rer
'param&#233;trage ent&#234;tes de colonnes et types de donn&#233;es
prepaTable = prepaTable & "Colonne" & i & " Memo ,"
Next i


prepaTable = Left(prepaTable, Len(prepaTable) - 1)
'creation nouvelle Feuille Excel
oConn.Execute "create table " & maFeuille & "(" & prepaTable & ")"


Set oRS = New ADODB.Recordset
oRS.Open "Select * from " & maFeuille, oConn, adOpenKeyset, adLockOptimistic
    
For j = 1 To 40 'nombre de lignes &#224; transferer
    oRS.AddNew
        For i = 1 To 10 'nombre de colonnes &#224; transf&#233;rer
        oRS.Fields(i - 1) = Sheets("devis").Cells(j, i)
        Next i
    oRS.Update
Next j
    
oRS.Close
oConn.Close
End Sub

bonne soiree
michel

erti1711 · Answer

Bonjour,j'ai adapter votre macro.Ca me dit qu'il y a des erreurs de types.
Ca me met exactement: Erreur de compilation - Type dd&#233;finit par l'utilisateur non d&#233;fini aux 2 premi&#232;res lignes en rouge.

Private Sub btnvaldevis_Click()
    Dim oRS As ADODB.Recordset
    Dim oConn As ADODB.Connection
    Dim maFeuille As String, prepaTable As String
    Dim j As Integer, i As Integer
    
    maFeuille = "DEVIS0001"
    
    Set oConn = New ADODB.Connection
    oConn.Open "Provider=Microsoft.jet.OLEDB.4.0;" & _
                    "Data Source=C:\Archives_Devis.xls;" & _
                    "Extended Properties=""Excel 8.0;HDR=NO;"""
    
    For i = 1 To 33
        prepaTable = prepaTable & "Colonne" & i & "Memo ,"
    Next i
    
    prepaTable = Left(prepaTable, Len(prepaTable) - 1)
    oConn.Execute "create table " & maFeuille & "(" & prepaTable & ")"
    Set oRS = New ADODB.Recordset
    oRS.Open "Select * from " & maFeuille, oConn, adOpenKeyset, adLockOptmistic
       
    For j = 1 To 70
        oRS.AddNew
            For i = 1 To 33
                oRS.Fields(i - 1) = Sheets("DEVIS").Cells(j, i)
            Next i
        oRS.Update
    Next j
    
    oRS.Close
    oConn.Close
End Sub

Comment r&#233;soudre ce probl&#232;me SVP?
Merci.

michelxld · Answer

bonjour


as tu activ&#233; la r&#233;f&#233;rence activer la r&#233;f&#233;rence Microsoft ActiveX Data Object 2.x Library ( x d&#233;pend de la version que tu utilises )


dans l'editeur de macros :
Menu Outils
References
coches la ligne "activer la r&#233;f&#233;rence Microsoft ActiveX Data Object 2.x Library"
cliques sur OK pour valider



bonne journee
michel

erti1711 · Answer

Rebonjour,avant tout merci de l'aide que vous m'apporter
j'ai fais ce que vous m'avez dit et maintenant ca me met:
Erreur d'&#233;cx&#233;cution '-2147217900(80040e14)':
Erreur de syntaxe dans l'instruction CREATE TABLE

Enregistrer une feuille excel dans un autre classeur sans ouvrir le deuxième cla

4 réponses

Discussions similaires