VBScript code : Comment modifier la taille des cellules?
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
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
- VBScript code : Comment modifier la taille des cellules?
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
2 réponses
Bonjour,
Pour ajuster automatiquement les colonnes:
https://docs.microsoft.com/en-us/power-automate/desktop-flows/how-to/autofit-excel-columns-vbscript
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
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
