PasteSpecial de données Access dans Excel

Bonjour,

J'ai implémenter un module d'export vers Excel dans un programme récent.

Tout fonctionne parfaitement mais les données récupérées sont (quelque soit leur format d'origine dans ma table Access) systématiquement précédées d'une apostrophes dans Excel qui les interprète donc comme du texte ce qui est très ennuyeux pour les traitements ultérieurs.

J'ai donc imaginé d'effectuer directement au moment de l'export un copier / collage spécial / valeurs dans un nouvel onglet (ce qui fonctionne très bien dans Excel et supprime toutes les apostrophes).

Malheureusement, impossible de gérer dans Access les paramètres de PasteSpecial applicables dans Excel ("Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False") :calim2:.

Comment résoudre ce problème (cf code ci-dessous) ?

Merci d'avance !

Snoopy

[...]

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Dim xlApp As Excel.Application 'Application Excel Dim xlwb As Excel.Workbook 'Classeur Excel Dim xlws As Excel.Worksheet 'Feuille Excel Dim xlws_new As Excel.Worksheet 'Nouvelle feuille Excel ajoutée   'Ouverture de l'application Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False   'Ouverture d'un fichier Excel Set xlwb = xlApp.Workbooks.Open(cheminRepExport & "\" & site & "_Artcls_Export_" &   Date & ".xls")   ' xlws correspond à la feuille "articles_export" du classeur Set xlws = xlwb.Worksheets("articles_export") xlws.Cells.Select xlws.Cells.Copy   ' xlws_new correspond à la nouvelle feuille "artcls_export" ajoutée au classeur Set xlws_new = xlwb.Worksheets.Add xlws_new.Name = "artcls_export"   xlws_new.Range("A1").Select xlws_new.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,   Transpose:=False ' ne fonctionne pas sous Access !!!   xlws.Delete   xlwb.Save xlwb.Close 'Fermeture du classeur Excel xlApp.Quit 'Fermeture de l'application Excel   'Désallocation mémoire Set xlws = Nothing Set xlws_new = Nothing Set xlwb = Nothing Set xlApp = Nothing

---

[...]

Salut,

Une petite technique que j'utilise souvent, inspire toi d'une macro excel. pour la transposer sous access. le past spécial en valeur si j'ai bien compri marche trés bien je l'ai déja utilisé (enfin je croi) ;).

en éspérant t'avoir donné la voix

++

Bonjour,

Merci de votre réponse mais ... c'est justement comme cela que j'ai procédé !

Le problème est que les paramètres de "PasteSpecial" utilisables sous Excel ne sont pas acceptés dans Access !

Bonne journée !

Snoopy

Bonjour,
Il vaudrait mieux attaquer le problème à sa source et éviter l'apostrophe. Quel est le code de l'export ?

Bonjour,

Merci de votre message.

Voici le code en question :

Code:

---

DoCmd.TransferSpreadsheet acExport, 8, "articles_export", cheminRepExport & "\" & site & "_Artcls_Export_" & Date & ".xls", True, ""

---

Remarque : "cheminRepExport" et "site" sont des variables globales dont la valeur est définie dans un module "Parametres".

Bonne journée !

Snoopy

Avec la syntaxe ci-dessous je n'ai pas ce problème. C'est un peu plus lourd mais ça permet de mettre en forme le fichier, rajouter des entetes, des formules...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim objApp As Object, objBook As Object, objSheet As Object Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("SELECT ...") Set objApp = CreateObject("excel.application") Set objBook = objApp.Workbooks.Add Set objSheet = objBook.Worksheets(1) objApp.Visible = False 'si on veut visualiser With objSheet 'en-tete si nécessaire ... 'copie du fichier .Cells(1, 1).CopyFromRecordset rst 'formatage si necessaire ... wend   rst.Close objApp.Visible = True 'si on veut visualiser le résultat 'libère excel Set objSheet = Nothing Set objBook = Nothing Set objApp = Nothing DoCmd.Hourglass False

---