Discussion :

[mighty nagty]

Bonjour,

J'ai un problème avec ma macro d'export de mon tableau vers excel.
Je souhaite exporter un tableau dans XLS dans une page et mettre les sélections actives dans une autre page.
Lorsque que j'utilise la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Sub ExcelExtract()
	SET objet=ActiveDocument.GetSheetObject("CH05")
	objet.SendToExcel
End Sub

cela me donne le bon tableau dans excel mais je n'ai pas les sélections actives dans une autre page (je souhaite vraiment les avoir sur une autre page et pas à la suite du tableau comme peut le faire l'exportation BIFF > préférence utilisateur > exporter >exportation des sélections actives) et ne voit pas comment faire.

J'ai essayé une autre façon avec la macro utilisée via ce post http://www.developpez.net/forums/d12...trement-d-xls/ mais par contre, j'ai un autre problème : il y a des colonnes de mon tableau commençant pas "0" et avec l'export, XLS les supprime et considère cela comme du numérique (je voudrais les convertir en "text").

Est ce que quelqu'un d'entre vous a une idée pour répondre à mon besoin ?


Par avance merci,

[PhunkyBob]

Salut mighty !


Si tu veux jouer avec plusieurs onglets, il faudra passer par un objet de type "Excel".

J'ai modifié mon exemple de code donné dans l'autre thread pour faire ce que tu souhaites :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
sub ExportExcel
	SET XLApp = CreateObject("Excel.Application") 'on définie l'objet
	XLApp.Visible = True           'on veut que Excel soit visible
 
 
 	' On veut qu'Excel fasse par défaut des worbooks à 2 feuilles.
	XLApp.SheetsInNewWorkbook = 2
	' On crée un workbook (qui aura donc 2 feuilles).
	SET XLDoc = XLApp.Workbooks.Add
 
	SET table = ActiveDocument.GetSheetObject("CH01") 'on recupère l'objet qui nous intéresse, ici celui avec l'identifiant "TABLE_TEST"
	table.CopyTableToClipboard true 'on copie dans le presse-papier
 
	SET XLSheet = XLDoc.Worksheets(1) 'on se met sur la feuille qui nous intéresse
	XLSheet.Paste XLSheet.Range("A1") 'on colle le presse-papier à partir de la première cellule (A1)
	XLSheet.Name = "Donnees" 'on renomme la feuille
 
 
	ActiveDocument.CopyCurrentSelectionsToClipboard 'on copie les sélections dans le presse-papier
 
	SET XLSheet = XLDoc.Worksheets(2) 'on se met sur la feuille qui nous intéresse
	XLSheet.Paste XLSheet.Range("A1") 'on colle le presse-papier à partir de la première cellule (A1)
	XLSheet.Name = "Selections" 'on renomme la feuille
 
	XLDoc.SaveAs "c:\temp\test.xls" 'on enregistre dans un fichier
end sub

Il faudra faire en sorte que les macros aient les niveau de sécurités adéquats.



Dis moi si ça correspond à tes attentes.

[mighty nagty]

Salut PhunkyBob,

Merci pour ta réponse, cela correspond à ce je veux effectivement, mais on tombe dans mon 2ème problème : la suppression des premiers "0".
J'ai une colonne où les données sont du genre "001, 002, 003...", et après l'export excel, cela me donne "1, 2, 3..." ce qui n'est pas correct pour moi.
Y a t'il moyen de garder ces "0" dans l'export ?

[PhunkyBob]

Je ne constate pas ce problème.

Dans l'onglet "nombre", tu as mis autre chose que "Par défaut" ?
Si je mets un texte qui ne contient que des chiffres avec le format "par défaut", je conserve bien l'affichage dans Excel (et d'ailleurs, il me met la petites alerte "nombre stocké sous forme de texte").

Ton expression ressemble à quoi ?

[mighty nagty]

Ce n'est pas une expression mais une dimension de mon tableau simple
Ceci dit, j'ai essayé de la mettre en expression, de rajouter Text(mon champ) de faire un tcd ou une zone de table mais j'ai à chaque fois la même chose (colonne ISSNO) :

[PhunkyBob]

Effectivement, le comportement d'Excel est bizarre sur ce genre de donnée.

Une façon de faire pour contourner, c'est de mettre au format Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'="' & MonChamp & '"'

[mighty nagty]

Merci PhunkyBob,

j'ai un peu modifié ta formule qui ne marchait pour mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'=TEXTE(' & MonChamp & '; "000")'

(car je sais que mon champ fait 3 caractères),

Ça marche mais bon, m'oblige à avoir des tailles fixes.

[PhunkyBob]

Le fait de faire apparaitre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

="00010"

dans le tableau qui est exporté, fait que Excel a bien cette formule comme valeur de cellule. Et c'est (une des) façon de faire pour forcer Excel à ne pas appliquer sa p$%@!² de mise en forme automatique.
(comme quand on veut écrire "FRANCE" dans une cellule, et que Excel trouve ça marrant de le changer en "France")