Outils logiciels pour les cours Paris II

Cours Paris II

Stages/ Thèses/ Séminaires

Laboratoire

edit SideBar

Cours 11

Résumé du cours

Informatique Microsoft: Excel, Solveur, VBA, Office

  • Feuille de calcul
    • formules
    • graphe de dépendence
  • Programmation linéaire
    • Modèle:
    Max ct.x tel que A . x < b
    L'algorithme du simplex permet de trouver une solution rationnelle lorsqu'elle existe: trouver une solution entière est difficile.
    • Solveur
    Programme qui résoud des problèmes linéaires, non-linéaires, avec solution rationnelle ou entière.
    Le Simplex est l'algorithme de base, qui peut être exponentiel dans certains cas. Il existe cependant des algorithmes polynomiaux, mais moins efficaces en moyenne. Le Simplex est polynomial pour la complexité de lissage (smooth complexity).
    • Applications:
      • Allocation de ressources
      • Problèmes de flot
      • Jeux à somme nulle
  • Instructions VBA
    • Procedures, fonctions,
    • Assignation x=5 y ="hello"
    • If ... then ... else ... end if
    • Boucles: For et while
  • Algorithmes en VBA
    • Tri rapide
    • Recherche dichotomique
    • Marche aléatoire
    • Insertion dans une liste triée
  • Objets Office en VBA
    • Lire un fichier Word
    • Envoyer un message par Outlook
      • Lire un fichier Word (Correction incluant la fermeture du fichier)
 Sub lireword()
 '
 ' Macro pour lire le 1er mot du fichier aa.doc qui doit ETRE FERME', puis tous les mots.
 ' Macro modifiée le 20.04.2020
 '
Dim i, NbreMots As Long
  Dim WdApp As Word.Application
    Set WdApp = New Word.Application

    With WdApp
            .Documents.Open Filename:="C:\paris2\aa.doc"
            With .Selection
                .EndKey Unit:=wdStory
                .TypeParagraph
            End With
        .ActiveDocument.Save
        .Visible = True
        Cells(1, 2) = .ActiveDocument.Words.First
        Cells(2, 2) = .ActiveDocument.Words.Last
  '   On trouve le nombre de mots
        NbreMots = .ActiveDocument.Words.Count
  '   On écrit les mots dans la colonne A
        For i = 1 To NbreMots
        Cells(i, 1) = .ActiveDocument.Words(i)
        Next i


    End With
 WdApp.Quit
 Set WdApp = Nothing

 End Sub
  • Attention
 Dim WdApp As Word.Application
 Set WdApp = New Word.Application

 Cela suppose une référence à la "Microsoft Word Object Library"  (Tools-> References )

ou

 Dim WdApp as Object
 WdApp = CreateObject("Word.Application")
  • Fermeture du fichier
  WdApp.Quit
UP2