VBScript code : Comment modifier la taille des cellules?

Bonjour,

J'ai besoin d'aide svp !!

J'ai un automate programmable qui génère la création d'un fichier excel (le code est en VBscript), les données qui le remplissent sont extraite de l'API. Il y en a  des données qui dépacent la taille de la cellule ( elles ne s'affichent pas correctement) et donc j'ai besion de l'agrandir en utilisant le vbscrpit .

Le problème est que je suis encore débutant en vbscipt et vba et je connais pas toutes les instructions nécessaire.

J'ai besoin de votre aide

Merci d'avnce,
Windows / Chrome 104.0.0.0

2 réponses

  1. Contributeur

    bonjour,

    Si tu nous montres ton code, nous pourrons mieux te conseiller.
    Tiens compte de ceci: https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

    1. Sub Billette_script()
      
      Dim cheminDossier, creationDossier, renameFichier, Fichier, FichExist, openFich, ligne,cellule
      cheminDossier="C:\Users\ayl\Desktop\billette"
      Set creationDossier=CreateObject("Scripting.FileSystemObject")
      If Not creationDossier.FolderExists(cheminDossier) Then
      	creationDossier.CreateFolder cheminDossier
      End If
      
      renameFichier=Day(Now)&"_"&Month(Now)&"_"&Year(Now)&".csv"
      
      Set Fichier=CreateObject("Scripting.FileSystemObject")
      
      FichExist=Fichier.FileExists(cheminDossier&"\"&renameFichier)
      
      If FichExist=False Then
      	Fichier.CreateTextFile(cheminDossier&"\"&renameFichier)
      	Set openFich=CreateObject("Scripting.FileSystemObject")
      	Set ligne=openFich.OpenTextFile(cheminDossier&"\"&renameFichier,8)
      	ligne.WriteLine("mesure1,mesure2,mesure3,mesure4,mesure5")
      	ligne.Close
      	Set Fichier= Nothing
      End If
      
      Set Fichier=CreateObject("Scripting.FileSystemObject")
      Set cellule=Fichier.OpenTextFile(cheminDossier&"\"&renameFichier,8)
      
      cellule.WriteLine(SmartTags("Donnee1")&","&SmartTags("Donnee2")&","&SmartTags("Donnee3")&","&SmartTags("Donnee4")&","&SmartTags("Donnee5"))
      
      
      cellule.Close
      
      End Sub
    2. Contributeur
      @aylul

      Les noms de la plupart de tes variables ne correspondent pas à leur usage, cela ne facilite pas la lecture du script.

      Tu peux maintenant utiliser la suggestion faite le 20 août 2022 à 09:16 pour compléter ton script.

  2. Bonjour,

    Pour ajuster automatiquement les colonnes:

    https://docs.microsoft.com/en-us/power-automate/desktop-flows/how-to/autofit-excel-columns-vbscript