Easy-Micro


ESPACEMEMBRE VBA
Objet Application

L'objet Application

Exemples
' 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"

VBA Procédure évènementielle

'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

VBA 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 ]
Samedi 23 février 2019 - Semaine 08 - Saint Lazare (Demain: Saint Modeste)
Aujourd'hui, c'est l'anniversaire de Louis Bertignac (1954-65 ans), musicien français (guitariste du groupe de rock français Téléphone). Autre 23 février: 1468 - Mort de Gutenberg, inventeur de l'imprimerie.
Haut de page Easy-Micro