VBScript code : Comment modifier la taille des cellules?

Fermé

aylul - 20 août 2022 à 00:46
yg_be Messages postés 23490 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 mars 2025 - 21 août 2022 à 10:16

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

A voir également:

VBScript code : Comment modifier la taille des cellules?
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

2 réponses

Réponse 1 / 2

hypothetix Messages postés 212 Date d'inscription dimanche 19 janvier 2020 Statut Membre Dernière intervention 19 mars 2025 60
Modifié le 20 août 2022 à 09:16

Bonjour,

Pour ajuster automatiquement les colonnes:

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

Réponse 2 / 2

yg_be Messages postés 23490 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 mars 2025 Ambassadeur 1 570
20 août 2022 à 09:17

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

aylul
Modifié le 21 août 2022 à 04:21

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

yg_be Messages postés 23490 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 20 mars 2025 1 570 > aylul
21 août 2022 à 10:16

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.

Discussions similaires

sertissage des cables rj45

Bonjour,
Je voudrais savoir quel est le code de couleur pr le sertissage dun cable reseau droit et croise. De plus comment faire pr sertir les cables pr monter des switch en cascade?

Configuration: Android / Firefox 50.0

--

Code de renvoi d'appel : Ooredo, Mobilis...

Bonjour,

Je voudrais connaitre les codes du renvoi d'appel et exactement un code qui fait que lorsqu'on m'appelle on croit que je suis occupé.

Comme le code *21*5504# quand je compose ce code on croit que mon numéro est faux et merci d'avance

Réinitialisation d'un téléphone mobile chinois avec touche

Bonjour, y-a-t-il s'il vous plaît une technique de réinitialisation d'un téléphone mobile chinois avec touche (itel par exemple)?
NB: le téléphone est codé par un mot de passe et fermé .