Comment copier une feuille EXCEL sous ACCESS?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment copier une feuille EXCEL sous ACCESS?

PAULOM

Bonjour à tous, voici mon problème je n'arrive pas à copier le contenu d'une feuille EXCEL dans une autre feuille EXCEL du meme classeur.

Je dois transférer une table ACCESS vers EXCEL, bon ça j'y arrive je transfère ma table ACCESS (toute les semaines) vers la feuille EXCEL (SXX) et cette feuille ainsi créer doit être copier dans le meme classeur dans la feuille S0, en gros je dois avoir 2 feuilles identiques dans le meme classeur mais sous 2 noms différents, et j'aimerais également mettre mes champs si possible.

Je met pour l'instant pour mon code si ça peut vous aider.

Je vous remercie d'avance pour votre aide.

Code :

Option Compare Database
Sub ExportTblAccessInExcel()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Dim Xlapp As Excel.Application
Dim XlBook As Excel.Workbook
Dim XlSheet As Excel.Worksheet
Dim NomFeuille As String
Dim LigneCopiees As Long
On Error GoTo errOuvrirExcel
Set Xlapp = GetObject(, "Excel.Application" )
'On Error GoTo oups:
On Error GoTo 0
Xlapp.Visible = True
NomFeuille = "S" & DatePart("ww", Date) - 1
Set XlBook = Xlapp.Workbooks.Open("C:\Documents and Settings\A4382\Bureau\stage\Nvx_clients_par_BG_2006_S14.xls" )
If FeuilleExiste(NomFeuille, XlBook) Then
Set XlSheet = XlBook.Worksheets("NomFeuille" )
' efface les données
XlSheet.Cells.Clear
Else
' Ajouter nouvelle feuille en dernière position
Set XlSheet = XlBook.Worksheets.Add(, XlBook.Worksheets(XlBook.Worksheets.Count - 2))
XlSheet.Name = NomFeuille
End If
Set Db = CurrentDb
' Copie dans feuille (nouvelle ou effacée)
If DCount("*", "T31_Cumul_Nvx_clients_par_BG" ) > 0 Then
Set Db = CurrentDb
' Copie dans feuille (nouvelle ou effacée)
Set Rs = Db.OpenRecordset("T31_Cumul_Nvx_clients_par_BG", , dbOpenForwardOnly)
Rs.MoveFirst
LigneCopiees = XlSheet.Range("A1" ).CopyFromRecordset(Rs)
' Ferme les Var
Rs.Close: Set Rs = Nothing
Db.Close: Set Db = Nothing
Else
MsgBox "Pas de données"
End If
' Ferme les Var
Set XlSheet = Nothing
' Sauve le fichier
XlBook.Save
'XlBook.Close
Set XlBook = Nothing
Set Xlapp = Nothing
Exit Sub
errOuvrirExcel:
'Err 429 : Un serveur OLE Automation ne peut pas créer d'objet
' -> Excel n'est PAS encore ouvert.
If Err = 429 Then
Set Xlapp = CreateObject("Excel.Application" )
Resume Next
End If
oups:
MsgBox Err.Number & " - " & Err.Description
End Sub
Function FeuilleExiste(NomFeuille As String, Classeur As Excel.Workbook) As Boolean
Dim errNum As Long, strName As String
errNum = 0: Err.Clear
On Error Resume Next
strName = Classeur.Worksheets(NomFeuille).Name
errNum = Err.Number
On Error GoTo 0
If errNum = 0 Then FeuilleExiste = True Else FeuilleExiste = False
End Function

Publicité

kiki29

Dégrossis au macro recorder et optimise à la main

PAULOM

Ou la!
Je suis désolé je comprend pas , je suis pas tres bon en VB....

Qu'est ce le macro recorder?
Optimise à la main?

Merci à toi

kiki29

Dans l'environnement Excel Outils/Macros/Nouvelle Macro

kiki29

Si application de transfert en VB6 et non en VBA
le lien http://www.vb-helper.com/howto_access_to_excel.html
te donne un code qui fonctionne correctement
et pour copier sur une 2eme feuille Excel tu peux coller
un excel_app.Sheets("Sheet2" ).Select puis remouliner le transfert de données. Le code est très bien commenté et suffisamment explicite pour le compléter et le modifier afin que l'ensemble ne génere pas de msg d'erreur

Je viens de le faire de façon bestiale à partir du lien et ça marche

Message édité par kiki29 le 26-04-2006 à 21:34:21

PAULOM

Ouais mais bon c'est dommage que ce soit en anglais les commentaires.

Le code que tu m'a demandé c'est pour copier exactement?
Désolé mais j'ai du mal en VB lol

Merci de ton aide

kiki29

Si tu as une adresse email je t'envoie le programme modifié
mais ACHTUNG c'est bestial et pas propre au niveau codage
il faudrait redéfinir des fonctions etc mais ça marche

Pour l'Anglais c'est de l'Anglais basique et crois moi c'est indispensable
si tu veux avoir accès à certaines infos ou livres techniques

Message édité par kiki29 le 27-04-2006 à 13:26:21

PAULOM

Je t'ai envoyé mon adresse par MP merci à toi

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment copier une feuille EXCEL sous ACCESS?

Sujets relatifs
afficher la date au mois précédent sous excel	[C++] Comment copier dans un tableau les infos d'un fichier?
[VBA] Suppression d'un graphique Excel	Mise a jour feuille excel
[newb] Listes avec Excel	probleme d'execution de macros à l'ouverture d'excel
[PHP/MySQL] access denied, mais ca passe enligne de commande	Commentaires conditionnels dans une feuille CSS ?
Copier/coller une feuille Excel avec ACCES
Plus de sujets relatifs à : Comment copier une feuille EXCEL sous ACCESS?

Page générée en 0.049 secondes