Soyez le premier à donner votre avis sur cette source.
Vue 92 562 fois - Téléchargée 3 805 fois
'Déclaration Public DocExcel as Object 'on dit que l'objet est de type feuille excel et ouvre Excel Set DocExcel = CreateObject("Excel.Application") 'mettre à True pour l'afficher à l'écran , mettre à False pour pas qu'Excel reste invisible If AfficherExcel = True Then DocExcel.Visible = True Else DocExcel.Visible = False End If 'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ... DocExcel.DisplayAlerts = False 'ajoute un nouveau classeur If NouveauFichier Then DocExcel.Workbooks.Add 'selectionne la feuille du classeur DocExcel.Sheets("Feuil2").Select 'on supprime cette feuille DocExcel.ActiveWindow.SelectedSheets.Delete 'on fait pareil avec la feuille 3 DocExcel.Sheets("Feuil3").Select DocExcel.ActiveWindow.SelectedSheets.Delete 'on selectionne la feuille 1 (la seule qui reste) DocExcel.Sheets("Feuil1").Select 'on change le nom de celle ci DocExcel.Sheets("Feuil1").Name = "Mon Document Excel" Else 'on ouvre un fichier existant de nom NomFichier DocExcel.Workbooks.Open FileName:=NomFichier, Editable:=True End If 'on change la largeur de la colonne DocExcel.Columns("A:A").ColumnWidth = 20 'on met selectionne la cellule A1 DocExcel.Range("A1").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE09, False, False, 0, False) 'on met la date et l'heure DocExcel.ActiveCell.FormulaR1C1 = "Fait le : " & Date & " à " & Time 'du texte DocExcel.Range("A2").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE11, False, False, 0, False) DocExcel.ActiveCell.FormulaR1C1 = "Par un petit programme Vb" 'une fusion de cellule DocExcel.Range("A5:D5").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE14, False, False, 0, True) DocExcel.ActiveCell.FormulaR1C1 = "Fusion des Cellules" 'on change la police DocExcel.Range("A6:G6").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE09, True, True, 4, True) DocExcel.ActiveCell.FormulaR1C1 = "On change la police et on met en gras, en italic et on aligne à droite" 'une opération DocExcel.Range("B8").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE11, False, False, 0, False) DocExcel.ActiveCell.FormulaR1C1 = 12 DocExcel.Range("B9").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE11, False, False, 0, False) DocExcel.ActiveCell.FormulaR1C1 = 56 DocExcel.Range("A10").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE11, False, False, 0, False) DocExcel.ActiveCell.FormulaR1C1 = "Somme =" DocExcel.Range("B10").Select test = ParametreExcel(DocExcel, "MS Sérif", TAILLEPOLICE11, True, False, 0, False) DocExcel.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)" 'on sauvegarde la feuille sous le nom contenu dans NomFichier DocExcel.ActiveWorkbook.SaveAs FileName:=NomFichier, _ FileFormat:=17, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'on quitte excel DocExcel.Application.Quit '' Maintenant, la fonction ParametreExcel Public Function ParametreExcel(MyObject As Object, Police As String, TaillePolice As Integer, Gras As Boolean, Italique As Boolean, AlignementH As Integer, Fusion As Boolean) As Boolean 'les différents paramètres des cellules, il n'y sont pas tous With MyObject.Selection.Font .Name = Police .Size = TaillePolice .Strikethrough = False .subscript = False .OutlineFont = False .shadow = False .colorIndex = xlAutomatic .Italic = Italique .Bold = Gras End With With MyObject.Selection .WrapText = False .Orientation = 0 .Addindent = False .ShrinkToFit = False .MergeCells = Fusion 'True = on fusionne les cellules End With If AlignementH <> 0 Then With MyObject.Selection .HorizontalAlignment = AlignementH End With End If ParametreExcel = True End Function
car moi j'ai vb expresse 2005 et je n'arrive pas à savoir si excel est ouvert ou pas
et je n'arrive pas a modifie excel si il es déjà ouvert et non enregistré
mais si c moi qui ouvre excel et exécute la macro il y a pa de soucie
quelqu'un peut il m'aidé
merci
je crois que c'est et dans format de la celluleet dans l'onglet alignement, on choisi ce que l'on désire comme alignement.
bonne journée
Est-ce que quelqu'un saurait me dire comment aligner le texte de toutes mes cellules à droite ?
merci d'avance pour votre aide
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.