Forres

Développement d’Addins Outlook avec VSTO 3 Introduction Afin d’assurer la succession du langage VBA (Visual Basic for Applications) qui était auparavant la seule manière d’étendre les applications de la gamme Office, Microsoft propose depuis quelques années Visual Studio Tools for Office qui permet de se passer totalement de VBA pour écrire des Addins pour Word, Excel, Powerpoint ou encore Outlook en bénéficiant de tous les avantages du monde .net. VSTO est un complément de Visual Studio qui

des données - traitement - résultats Lorsqu’il est traduit dans un langage compréhensible par un ordinateur, l’algorithme devient un programme Les langages de programmation les plus connus sont Visual Basic, C++, java et PHP VBA : visual Basic for applications (langage adapté à la suite bureautique de Microsoft) Exemple : algorithme de calcul de ristourne accordée aux clients Déclaration des variables utilisées Début Saisir le numéro du client Saisir le chiffre d’affaires du client

contenu Init : Initialise la liste1 avec 20 éléments  : Copie les données sélectionnées dans la liste1 18 Code > Private Sub CmdCopie_Click() ListBox2.Clear For i% = 0 To (ListBox1.ListCount - 1) If (ListBox1.Selected(i%) = True) Then ListBox2.AddItem ListBox1.List(i%) End If Next i% End Sub Private Sub Cmdinit_Click() ListBox1.Clear Init For i% = 1 To 20 ListBox1.AddItem Trim$(Str(i%)) + "donnée" Next i% End Sub 19 Autre Exemple : avec excel • Comment sélectionner une donnée à partir d’une liste

tabeau (doit être affecté à un Variant) – Erase efface le tableau de la mémoire Instructions conditionnelles Syntaxe en VB: Dim a As Integer, b As Integer a=5 If a < 10 Then b=1 Else b=2 End If Boucles – For Syntaxe: Dim a As Integer For a = val1 To val2 Next a Boucles – While Différence avec For: on ne connaît pas toujours la fin de la boucle à l’avance Dim a As Integer a = val1 While a < val2 …a =a+1 Wend LES MESSAGES : Lors d'une procédure, les messages servent à communiquer avec l'utilisateur

n'est pas indiqué, le nouvel élément sera placé à la fin de la liste. 'La liste peut se remplir par la procédure suivante Private Sub UserForm_Initialize() 'Appel de la procédure Liste située dans un module Liste End Sub Sub Liste() Dim i As Integer For i = 1 To 14 MaBoite.ListBox1.AddItem Range("A1").Offset(i) Next i End Sub A. Mellouk, Page 54 'Ajout d'un élément situé en 2ème position MaBoite.AddItem "FRED", 2 La propriété ListCount d'une zone de liste renvoie le nombre d'éléments qu'elle

useful for my future professional life. My dream is to run a concert hall. Thus attracting patrons and having regular clients by creating memorable experiences is central to this project. Thus the consumer’s perspective of a memorable experience has to be considered. Arts organisations need to develop their attractiveness in advertising campaigns, meet patrons’ needs and expectations, and build a strong reputation in quality live performances to be successful. Knowing people’s motivations for attending

La ligne rouge de Terrence Malick (1998), Fight Club de David Fincher (1999), Une vie volée (1999) de James Mangold, et le très controversé American Psycho. La même année, sa performance d'acteur est saluée dans le film de Darren Aronofsky, Requiem for a Dream, adaptation d'un roman d'Hubert Selby, Retour à Brooklyn, pour lequel il perd treize kilos afin d'entrer dans la peau d'un jeune junkie. En 2002, il retrouve David Fincher à l'affiche de Panic Room. Par la suite, il change de registre en 2004

Oliver, ça va ? O : bah écoute super, je t'ai pas trop fait attendre ? T : non je viens d'arriver, pourquoi tu me demande ça O : j’étais au cinéma, le film a durée plus longtemps que prévu T : ah ouais ? C'était quoi le film O : Thank you for smoking de Jason Reitman sorti en 2006 mais la il le diffuse de nouveau parce que a Ville d'Avray il sorte toujours les films en retard T : Ok, pourquoi t'es aller le voir, t'es chelou toi O : parce que j'ai vu une enquête a la télé sur les lobby

heure < 22 Then mes = "Bonne soirée" Else mes = "Bonne nuit" End If Range("A1").Value = mes End Sub 3.4 Répéter les mêmes actions VBA fournit deux structures pour répéter en boucle les mêmes instructions : l’instruction Do...Loop et l’instruction For...Next. La boucle Do...Loop La boucle Do...Loop est utilisée lorsque l’on veut que la répétition des instructions s’arrête quand une condition donnée est vérifiée. On distingue plusieurs syntaxes possibles. Do While condition Instructions Loop ‘Tant

Excel[modifier] Il est possible d'enregistrer une macro en Visual Basic for Applications dans Excel lors de la génération d'un tableau croisé dynamique. Le code généré peut être édité et modifié pour contrôler la formation du tableau. Il faut commencer par sélectionner une plage de cellules : Range(« A1:E16 »).Select Puis il faut créer le tableau. L'objet associé s'appelle PivotTables : ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "Feuil1!R1C1:R16C5").CreatePivotTable