Discussion :

[$p00ky]

Hoy hoy !

J'ai un p'tit soucis en VBA-W pour coller une sélection de cellules d'un fichier excel au format image...

En gros je veux, sous Word, en VBA, ouvrir un fichier Excel, copier une zone, et la coller au format image (mode point si possible) dans Word.

Le problème est que j'ai aps trouvé le bon parametre dans le wdRecoverType :

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
 
Les constantes WdRecoveryType possibles sont les suivantes : 
wdChart  Colle un graphique Microsoft Excel en tant qu'objet OLE incorporé. 
wdChartLinked Colle un graphique Excel et le lie à la feuille de calcul Excel d'origine. 
wdChartPicture  Colle un graphique Excel en tant qu'image. 
wdFormatOriginalFormatting  Conserve la mise en forme d'origine des éléments collés. 
wdFormatPlainText  Colle les éléments en tant que texte brut sans mise en forme. 
wdFormatSurroundingFormattingWithEmphasis Applique au texte collé la mise en forme du texte qui l'entoure. 
wdListCombineWithExistingList  Fusionne une liste collée avec des listes voisines. 
wdListContinueNumbering  Poursuit la numérotation d'une liste collée à partir de la liste existante dans le document. 
wdListRestartNumbering  Recommence la numérotation d'une liste collée. 
wdSingleCellTable  Colle une cellule unique en tant que tableau distinct. 
wdSingleCellText  Colle une cellule unique en tant que texte. 
wdTableAppendTable  Fusionne des cellules collées dans un tableau existant en insérant les lignes collées entre les lignes sélectionnées. 
wdTableInsertAsRows  Insère un tableau collé sous forme de lignes entre deux lignes du tableau cible. 
wdTableOriginalFormatting  Colle un tableau ajouté sans fusionner les styles des tableaux. 
wdTableOverwriteCells  Colle les cellules d'un tableau en remplaçant celles du tableau existant.

Mon code est le suivant et j'ai deux problemes:

Code :

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

1
2
3
4
5
6
Sub test()
Excel.Workbooks.Open FileName:="C:\DATA\TDA\ESD_IHM_2005.xls", ReadOnly:=True
Range("A2:L52").Select
Excel.Selection.Copy
Selection.PasteAndFormat Type:=wdChartPicture
End Sud

1. Le type wdChartPicture n'est valable qu'avec des graphiques... moi je colle des cellules... (mais je leux veux en mode image, manuellement c possible)

2. Je ne trouve pas le fameux mode équivalent au mode manuel "edition > collage spécial > image en mode point"


Merci d'avance pour l'astuce !

[$p00ky]

Ohoh SilkyRoad, merci pour tout ça !

Aurais-tu pareil dans l'autre sens (contrôler Excel via Word) ?

[SilkyRoad]

bonjour

merci pour ton message .

tu peux essayer ces 2 synthaxes

Code :

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

Selection.PasteSpecial DataType:=wdPasteBitmap

Code :

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

Selection.PasteAndFormat (wdPasteDefault)

bon apres midi
michel

[$p00ky]

Merci beaucoup, c'est parfait (avec wdPasteBitmap)