1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
|
//**********************creation fichier vbs mise en forme excel*******************
// Déclaration des variables
sFic est une chaine = "CheminCompletDuFichierExcel"
NomCheminFichier1 est une chaîne
IdFichier1 est un entier
ResEcrit1 est un booléen = Vrai
ResFermeFichier1 est un entier
// Sélection du nom et du chemin du fichier
NomCheminFichier1 = CheminFichier+"\format.vbs"
// Création du fichier
IdFichier1 = fCrée(NomCheminFichier1)
// Affichage du message d'erreur si la création n'a pas été effectuée
SI IdFichier1 = -1 ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Traitements dans le fichier créé
ResEcrit1 = fEcritLigne(IdFichier1, "on error resume next")
ResEcrit1 = fEcritLigne(IdFichier1, "Dim xlapp, classeur, feuille, Selection")
ResEcrit1 = fEcritLigne(IdFichier1, "Set xlapp = CreateObject("+Caract(34)+"Excel.Application"+Caract(34)+")")
ResEcrit1 = fEcritLigne(IdFichier1, "xlapp.Visible = false")
ResEcrit1 = fEcritLigne(IdFichier1, "xlapp.DisplayAlerts = FALSE")
ResEcrit1 = fEcritLigne(IdFichier1, "Set classeur = xlapp.Workbooks.open("+Caract(34)+sFic+Caract(34)+")")
ResEcrit1 = fEcritLigne(IdFichier1, "Set feuille = classeur.ActiveSheet")
ResEcrit1 = fEcritLigne(IdFichier1, "Set Selection = feuille.Columns("+Caract(34)+"D:D"+Caract(34)+")")
ResEcrit1 = fEcritLigne(IdFichier1, "With Selection")
ResEcrit1 = fEcritLigne(IdFichier1, ".ColumnWidth = 80")
ResEcrit1 = fEcritLigne(IdFichier1, ".WrapText = True")
ResEcrit1 = fEcritLigne(IdFichier1, ".Orientation = 0")
ResEcrit1 = fEcritLigne(IdFichier1, ".AddIndent = False")
ResEcrit1 = fEcritLigne(IdFichier1, ".ShrinkToFit = False")
ResEcrit1 = fEcritLigne(IdFichier1, ".MergeCells = False")
ResEcrit1 = fEcritLigne(IdFichier1, "End With")
ResEcrit1 = fEcritLigne(IdFichier1, "Set Selection = feuille.Columns("+Caract(34)+"C:C"+Caract(34)+")")
ResEcrit1 = fEcritLigne(IdFichier1, "With Selection")
ResEcrit1 = fEcritLigne(IdFichier1, ".ColumnWidth = 30")
ResEcrit1 = fEcritLigne(IdFichier1, ".WrapText = True")
ResEcrit1 = fEcritLigne(IdFichier1, "End With")
ResEcrit1 = fEcritLigne(IdFichier1, "Set Selection = feuille.Columns("+Caract(34)+"A:A"+Caract(34)+")")
ResEcrit1 = fEcritLigne(IdFichier1, "With Selection")
ResEcrit1 = fEcritLigne(IdFichier1, ".ColumnWidth = 10")
ResEcrit1 = fEcritLigne(IdFichier1, ".WrapText = True")
ResEcrit1 = fEcritLigne(IdFichier1, "End With")
ResEcrit1 = fEcritLigne(IdFichier1, "classeur.Save")
ResEcrit1 = fEcritLigne(IdFichier1, "classeur.Close 'quitte en sauvant")
ResEcrit1 = fEcritLigne(IdFichier1, "xlapp.quit")
ResEcrit1 = fEcritLigne(IdFichier1, "Set classeur = Nothing")
ResEcrit1 = fEcritLigne(IdFichier1, "Set xlapp = Nothing")
// Fin des traitements dans le fichier créé
FIN
ResFermeFichier1 = fFerme(IdFichier1)
//*********************************************************************************
LanceAppliAssociée(NomCheminFichier1)
Multitache(200)
fSupprime(NomCheminFichier1) |
Partager