« Macros-commandes VBA/Devenez un expert » : différence entre les versions
Contenu supprimé Contenu ajouté
modification de plan |
intégration du contenu du cours Visual Basic |
||
Ligne 132 :
Les objets des experts permettent de programmer des problématiques délicates ou complexes
Exemple : Object, Windows, Workbooks, Worksheets, Sheets, Font , Interior , Offset, Calendar, Charts, Names, CommandBars, Rows, Columns, UserForms, ...
=== Les objets Word ===
<source lang="vb">
Sub Edition()
dim ObjetWord as object
Set ObjetWord = CreateObject("Word.Application")
ObjetWord.Visible = True
ObjetWord.Documents.Open App.Path & "\document.doc" 'Ouverture d'un fichier existant
ObjetWord.Documents.Add 'Création d'un nouveau fichier
ObjetWord.Selection.TypeText "Texte écris." 'ou ObjetWord.Selection.TypeText Text:="Texte écris."
NomDuDocumentWord.Save 'Sauvegarder
ObjetWord.PrintOut 'Imprimer
ObjetWord.Quit
End Sub
</source>
=== Les objets Outlook ===
La fonction ''createitem'' de l'objet Outlook génère les différentes entités du logiciel<ref>http://msdn.microsoft.com/en-us/library/office/aa255722%28v=office.10%29.aspx</ref> :
# createitem(0) : un mail.
# createitem(1) : un RDV.
# createitem(2) : un contact.
# createitem(3) : une tâche.
# createitem(4) : un journal.
# createitem(5) : une note.
# createitem(6) : un post.
L'exemple ci-dessous envoi un email contenant un hyperlien et une pièce jointe :
<source lang="vb">
Sub EnvoyerMail()
Dim Outlook, Message As Object
Set Outlook = CreateObject("Outlook.Application")
Set Message = ObjOutlook.createitem(0)
With Message
.To = "moi@domaine.com"
.Subject = "Lien vers le cours de VBA"
.HTMLBody = "Bonjour,<br />Voici le lien vers le cours de VBA : <br /><A HREF=""http://fr.wikiversity.org/wiki/Visual_Basic"">"ici"</A>.<br />Cordialement."
.Attachments.Add (cheminPJ)
.Display (True)
.Send
End With
End Sub
</source>
=== Les objets ActiveX ===
On peut facilement insérer dans une feuille de calcul Excel ou dans une feuille Word divers objets (des "contrôles")comme
Ligne 145 ⟶ 191 :
Il suffit de cliquer sur l’icône "boîte à outils" de la barre d’outils VBA (ou bien Affichage / Barres d'outils / Commandes), de sélectionner le contrôle souhaité et de de le glisser via la souris à l’endroit désiré.
On peut également utiliser tous ces "contrôles" dans une boite de dialogue (Userform) que l’on peut créer dans VBA par formulaire / Userform, puis faire apparaître à l'exécution d'une macro par: Userform("truc").Show et disparaître par Userform("truc").Hide.
== Les procédures et les fonctions expertes ==
| |||