Apprendre a manipuler excel
Soyez le premier à donner votre avis sur cette source.
Vue 92 086 fois - Téléchargée 3 777 fois
Description
Bon, c'est pas extraordinaire mais ça montre les commandes de bases pour manipuler Excel avec Vb.
On peut voir comment modifier quelques propriétés comme la police, la taille de la case, ...
C'est surtout fait pour les débutants.
D'abord, cliquer sur Creer le fichier , puis quand on clique sur Ouvrir fichier existant, ça va modifier le premier fichier (la date et l'heure).
Si on appuie sur Ouvrir Excel, Excel apparait et on voit le texte que se met en place tout seul.
On peut voir comment modifier quelques propriétés comme la police, la taille de la case, ...
C'est surtout fait pour les débutants.
Source / Exemple :
'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
Conclusion :
D'abord, cliquer sur Creer le fichier , puis quand on clique sur Ouvrir fichier existant, ça va modifier le premier fichier (la date et l'heure).
Si on appuie sur Ouvrir Excel, Excel apparait et on voit le texte que se met en place tout seul.
Codes Sources
A voir également
- Manipuler excel avec vb net
- Apprendre a manipuler - Meilleures réponses
- Apprendre la manipulation - Meilleures réponses
- Apprendre à manipuler excel (graphique et tableau) les fichiers textes (lecture) - Codes sources - Visual Basic / VB.NET (VBA)
- Interop.Excel Bordure cellules ✓ - Forum - VB.NET
- Ecrire dans un fichier excel avec VB6????? ✓ - Forum - Visual Basic
- Ouvrir un fichier excel avec vb.net - Forum - Visual Basic
- Manipulation Excel avec VB.NET - Forum - VB.NET
Commentaires
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.