[R] Largeur d'une cellule sous Excel

[tanguy53]

Bonjour à tous,
Mon problème :
J'aimerais que la largeur des colonnes soient adaptées à la longueur du texte ajouté ( enfin si c'est possible )

► Afficher le texte

#include <Excel.au3>

Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

For $i = 1 To 20 ;Loop
_ExcelWriteCell($oExcel, "I Wrote to This Cell", $i, 1) ;Write to the Cell
Next

MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary
_ExcelBookClose($oExcel) ; And finally we close out

Je suis en train de suivre une formation en bureautique et outils numériques, un peu comme dans une école communication à Lille où on travaille pas mal sur Excel et la mise en page.

Pour adapter automatiquement la largeur, tu peux sélectionner la ou les colonnes puis double-cliquer sur la bordure droite de l’en-tête de colonne (entre A et B par exemple). Excel ajuste alors la largeur au contenu le plus long.
Merci d'avance

[ZDS]

Bonjour,

Il suffit de passer par une commande "objet" pour ça :

► Afficher le texteRedimensionnement automatique de la colonne 1

Code : Tout sélectionner

#include <Excel.au3>

Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

For $i = 1 To 20 ;Loop
    _ExcelWriteCell($oExcel, "I Wrote to This Cell", $i, 1) ;Write to the Cell
Next
[color=#BF0000]$oExcel.ActiveSheet.Columns(1).AutoFit[/color]

MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Now we save it into the temp directory; overwrite existing file if necessary
_ExcelBookClose($oExcel) ; And finally we close out

A bientôt !

[tanguy53]

Merci Beaucoup !
Tanguy