Apprendre a manipuler excel

Soyez le premier à donner votre avis sur cette source.

Vue 91 710 fois - Téléchargée 3 740 fois

Télécharger le projet
Commenter

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.

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.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
déchire la capture
Signaler
-
C'est juste pour en mettre une, pour montrer que le prog il est pas compliqué.
Signaler
Zackarry
Messages postés
28
Date d'inscription
vendredi 13 juillet 2001
Statut
Membre
Dernière intervention
1 février 2002
 -
tout ca pour cette daub !!! arf !!
Signaler
gevaen
Messages postés
5
Date d'inscription
mardi 25 septembre 2001
Statut
Membre
Dernière intervention
24 mars 2004
 -
Au moins ça fonctionne. Pas mal.
Signaler
GarnetDiAlexandros
Messages postés
55
Date d'inscription
mercredi 31 juillet 2002
Statut
Membre
Dernière intervention
19 novembre 2004
 -
C très bien, très compréhensible et complet
10/10
Afficher les 34 commentaires
S'inscrire maintenant

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.