Discussion :

[une_tite_question]

Bonjour ,

Je enregistre des fichiers xls en xlsx par le code suivant

Code :

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

1
2
 
ActiveWorkbook.SaveAs "C:\test2\" & nom & ".xlsx", FileFormat:=51

Le fichier se crée bien, par contre dans mon fichier j'ai une colonne date, voilà ce qui s'affiche à la place des dates : #####

Sur le tutoriel de Silkyroad, il est indiqué que c'est du au fait que la colonne est trop petite pour afficher la date. En effet, quand j'agrandis la colonne, la date s'affiche bien.
Donc je voudrais agrandir la colonne.
Je pensais faire quelque chose comme :

Code :

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

1
2
 
Workbooks(nom & ".xlsx").Worksheets("Sheet1(3)").Range("Date livraison").ColumnWidth = 17

J'ai un message

File name or class name not found during automation

J'ai un doute concernant l'utilisation de la notation : Range("nom de colonne")
Avez vous une autre solution pour aggrandir les cellules par code ou un conseil pour l'utilisation de la notation Range("nom de colonne") qui m'a l'air bien pratique

Merci d'avance pour votre aide

[Chipss]

Essaye avec ceci:

Code :

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

1
2
 
Workbooks(nom & ".xlsx").Worksheets("Sheet1(3)").Columns("nom de la colone").ColumnWidth = 17

Pas pu testé et pas sur de moi du tout :/
Sinon remplace "nom de la colone" directmeent par sa valeur genre A ou D...

Chips

[Gorfael]

Salut une_tite_question et le forum
Pourquoi, juste avant de l'enregistrer, ne pas adapter la colonne ? Ça me semble plus simple...

Code :

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

1
2
ActiveWorkbook.Worksheets("Sheet1(3)").Range("Date livraison").ColumnWidth = 17
ActiveWorkbook.SaveAs "C:\test2\" & nom & ".xlsx", FileFormat:=51

A+

[une_tite_question]

Bonjour Chipss et Gorfael

Pourquoi, juste avant de l'enregistrer, ne pas adapter la colonne ? Ça me semble plus simple...

Effectivement c'est plus simple et plus logique.

Merci à vous deux, ça marche

Bonne journée