Easy-Micro


ESPACEMEMBRE VBA
Objet Application

L'objet Application

Procédures classiques sur l'objet Application

' Déclenchement d'une macro nommée "Test" à 9 Heures
Application.OnTime TimeValue("09:00:00"), "Test"

' Déclenchement d'une macro nommée "Test" dans 5 secondes
Application.OnTime Now + TimeValue("00:00:05"), "Test"

' Déclenchement d'une macro nommée "Test" lorsque l'utilisateur appuie sur "F3"
Application.OnKey "{F3}", "Test"

' Réduire Excel
Application.WindowState = xlMinimized
xlMinimized peut être remplacé par xlNormal ou xlMaximized

' Réduire un classseur
Windows("NomDuClasseur").WindowState = xlMaximized

' Plein ecran
Application.DisplayFullScreen = True

' Fermer Excel
Application.Quit

' Désactiver le rafraichissement de l'écran (ne pas oublier de le réactiver après traitement)
Application.ScreenUpdating = False

	
' Actualiser tous les calculs (formules et fonctions) d'Excel
Application.Calculate

'Demander à une Macro d'attendre 4 secondes avant de continuer :
MsgBox "Radio Galaswinda bonjour !"
Application.Wait Now + TimeValue("00:00:04")
MsgBox "Eh bien bonjour, il fait une journée splendide, l'eau est à 23 degrès, on annonce de la neige pour cet après midi et si vous vous baignez, couvrez vous bien !"

'Exécute une procédure monmessage qui se trouve dans un autre classeur
Application.Run "Classeur2.xlsm!monmessage"

Procédures évènementielles sur feuilles

'Déclancher une procédure si "oui" dans une cellule (procédure évènementielle sur feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
' Une procédure évènementielle (dans le module d'une feuille)
' Target est une variable à utiliser

If (Target.Value = "oui") Then
MsgBox "ok" ' ou appel d'une procédure distante
Else: Exit Sub
End If
End Sub

'Déclancher une action si "oui" dans cellule A1 (procédure évènementielle sur feuille)

Private Sub Worksheet_Activate()
If (Range("A1").Value = "oui") Then
MsgBox "ok"
End If
End Sub

Gestion des fichiers et des dossiers

  • Fonction DIR 'Renvoyer une valeur représentant le nom d'un fichier
  • Fonction CHDIR 'Changer le répertoire ou le dossier courant
  • Fonction CHDRIVE 'Changer le lecteur en cours
  • Fonction FileDateTime 'Renvoyer la date et heure de création du fichier
  • Fonction GetAttr 'Renvoyer une valeur indiquant les attributs du fichier
  • Fonction Filecopy 'Copier un fichier donné d'un emplacement vers un autre
  • Fonction GetOpenFilename 'Afficher la boîte de dialogue Fichier/Ouvrir
  • Fonction CurDir 'Afficher le chemin courant
    Exemple : [C10] = "Liste des fichiers du dossier :" & CurDir
  • Fonction Kill 'Supprimer un fichier
  • Fonction Name 'Renommer un fichier
  • Fonction FileDateTime 'Afficher la Date de création d'un fichier
  • Fonction MkDir 'Créer un dossier



Suivez les aventures des skippers aquitains sur EasyVoile.com
Flux RSS Easy-Micro - Abonnez-vous Easy-Micro [ François Bisch ]
Lundi 20 mai 2019 - Semaine 21 - Saint Bernardin (Demain: Saint Constantin)
Aujourd'hui, c'est l'anniversaire de Elsa Lunghini (1973-46 ans), chanteuse (T'en va pas) et actrice française (La Femme de ma vie).
Haut de page Easy-Micro