Commandes VISUAL BASIC vues dans les manuels
Le sommaire :
L’instruction MKDir permet de créer un dossier.
La syntaxe :
MKDir «CheminChaîne
La description :
CheminChaîne est une chaîne de caractères pouvant être placée entre guillemets ou représentée par une variable de type String. Il s’agit du chemin et du nom du dossier à créer.
Dans l’exemple qui suit, nous allons créer le dossier Test dans la racine du disque dur :
MKDir « C:\Test»
L’instruction CHDir permet d’entrer dans un dossier.
La syntaxe :
CHDir CheminChaîne
La description :
CheminChaîne est une chaîne de caractères placée entre guillemets ou représentée par une variable de type String. Il s’agit du chemin et du dossier à atteindre.
Dans l’exemple qui suit, nous créons le dossier Voyage, nous entrons dans ce dossier, et nous créons les 3 sous dossiers France, Italie et Belgique.
MKDir « c:\Voyage »
CHDir « C:\Voyage »
MKDir « France »
MKDir « Belgique »
MKDir « Italie »
L’instruction RMDir permet de supprimer le dossier passé en paramètre.
La syntaxe :
RMDir CheminChaîne
La description :
CheminChaîne est une chaîne de caractères placée entre guillemets ou représentée par une variable de type String. Il s’agit du chemin et du nom du dossier à supprimer.
L’exemple qui suit va permettre la suppression du dossier Courriers :
RMDir « C:\Courriers »
Dans l’exemple qui suit, nous allons créer le dossier Voyages dans la racine du disque dur, et à l’intérieur de celui-ci, 3 sous dossiers, France, Italie et Belgique.
Ensuite, une boîte de message demandera à l’utilisateur si les dossiers doivent être supprimés.
Si l’utilisateur répond oui, la procédure SupprimeDossiers sera alors exécutée et aura pour fonction de supprimer ces 4 dossiers.
' Déclaration de la variable Résultat
' Qui contiendra la réponse de la boîte de message
Dim Résultat As Integer
' Création des dossiers
MkDir "c:\Voyages"
MkDir "c:\Voyages\FRANCE"
MkDir "c:\Voyages\ITALIE"
MkDir "c:\Voyages\BELGIQUE"
' Demande à l'utilisateur si les dossiers doivent être supprimés
Résultat = MsgBox("Voulez-vous supprimer les dossiers ?", vbYesNo, "grande décision")
' Traitement de la réponse de l'utilisateur
If Résultat = 6 Then
' L'utilisateur a répondu oui
SupprimeDossiers
End If
Voici le code pour supprimer les dossiers :
' Suppression des dossiers
RmDir "c:\Voyages\FRANCE"
RmDir "c:\Voyages\ITALIE"
RmDir "c:\Voyages\BELGIQUE"
RmDir "c:\Voyages"
' Affichage d'un message de fin de suppressions
MsgBox ("Bravo le ménage a été fait !")
Cette instruction permet de copier un fichier à partir d’un chemin source vers un chemin de destination.
La syntaxe :
FileCopy CheminSource_Document, Chemin_Destination_Document
La description :
CheminSource_Document = C’est une chaîne de caractères qui doit désigner le chemin et le nom du fichier à copier. Le chemin peut contenir le lecteur et une liste des dossiers.
CheminDestination_Document = C’est une chaîne de caractères qui doit désigner le chemin et le nom du fichier de destination. Le chemin peut contenir le lecteur et une liste des dossiers.
Attention, les deux arguments doivent être séparés par une virgule.
A l’intérieur d’un chemin complet, chaque lecteur, dossier et nom du fichier doivent être séparés par un BackSlach, soit une barre oblique inversée que vous obtiendrez par l’intermédiaire du raccourci clavier ALT +GR +Souligné du pavé alphanumérique.
Voici un exemple :
Nous allons copier le document texte Mon_Document.txt du dossier intitulé, Dossier_Départ, vers le dossier intitulé, Dossier_Arrivée.
Après cette opération qui sera réalisée avec FileCopy, nous allons supprimer Mon_Document.txt du dossier source, c’est-à-dire du Dossier_Départ.
Ainsi, il ne s’agira plus d’une procédure qui réalisera une copie, mais un déplacement.
L’instruction FileCopy va être utilisée pour la copie, et l’instruction Kill sera utilisée pour l’opération de suppression.
' Effectue la copie de Mon_Document.txt
FileCopy "C:\Dossier_Départ\Mon_Document.txt", "C:\Dossier_Arrivée\Mon_Document.txt"
' Supprime Mon_Document.txt du dossier source
Kill "C:\Dossier_Départ\Mon_Document.txt"
' Affiche un message de fin d'opération de déplacement
MsgBox ("Bravo l'opération a été réalisée avec succès !")
Cette instruction permet de supprimer le fichier passé en paramètre.
La syntaxe :
Kill CheminEtFichierASupprimer
Voici un exemple de code dans lequel nous allons déclarer la variable FichierASupprimer de type String.
Dans cette variable, nous allons affecter le chemin et le fichier à supprimer.
La variable sera donc le paramètre de l’instruction Kill.
‘ Déclaration de la variable contenant le chemin et le fichier à supprimer
Dim FichierASupprimer As String
FichierASupprimer = "C:\Program Files\MonFichier.txt"
‘ Ici, le fichier à supprimer s’appelle MonFichier.txt et il est dans le dossier Program Files
Kill FichierASupprimer
Permet de convertir une chaîne de caractères en un entier.
La syntaxe :
VariableEntier = CInt (VariableChaîne)
Permet de convertir un numérique en une chaîne.
La syntaxe :
VariableChaîne = CStr (Numérique)
Description :
Cette fonction permet d’extraire une sous chaîne de caractères à l’intérieure d’une chaîne de caractères.
La syntaxe :
Résultat = Mid(Chaîne,Numéro_Départ,Nombre_Caractères)
Résultat = est une variable qui reçoit le résultat de l’extraction de la fonction « Mid ». La valeur retournée est bien sûr de type String.
Chaîne = est la chaîne entière dans laquelle l’extraction va s’appliquer.
Numéro_Départ = C’est un entier qui indique la position du premier caractère inclus dans l’opération d’extraction.
Nombre_Caractères = est le nombre de caractères à extraire à partir de Numéro_Départ.
Voici un exemple d’extraction.
Dans cet exemple, nous allons affecter la chaîne de caractères :
« Bonjour madame la marquise », dans la variable ChaineComplète de type string.
Ensuite, nous allons extraire 6 caractères à partir du neuvième caractère et que nous allons affecter dans la variable SousChaine de type String.
Pour finir, nous afficherons la variable SousChaine par l’intermédiaire d’une boîte de message.
' Déclaration de la variable ChaineComplète
Dim ChaineComplète As String
' Déclaration de la variable SousChaine qui contiendra le résultat de l'extraction
Dim SousChaine As String
' Affectation d'une chaîne de caractères dans ChaineComplète
ChaineComplète = "Bonjour madame la marquise"
' Extraction de la sous chaîne de caractères "Madame"
SousChaine = Mid(ChaineComplète, 9, 6)
' Ici nous venons d'extraire une sous chaîne de 6 caractères à partir du neuvième caractère
' Affichage de SousChaine dans une boîte de message
MsgBox (SousChaine)
Description :
La fonction Len retourne une valeur entière qui correspond au nombre de caractères de la chaîne passée en paramètre.
La syntaxe :
NombreCaractères = Len(MaChaine)
NombreCaractères = Est un entier qui correspond à la taille de la chaîne de caractères MaChaine.
MaChaine = Est une chaîne de caractères.
Description :
LTrim Renvoie une chaîne de caractères correspondant à la chaîne de caractères passée en paramètre mais débarrassée de tous les espaces se trouvant à gauche.
RTrim Renvoie une chaîne de caractères correspondant à la chaîne de caractères passée en paramètre mais débarrassée de tous les espaces se trouvant à droite.
AllTrim Renvoie une chaîne de caractères correspondant à la chaîne de caractères passée en paramètre mais débarrassée de tous les espaces se trouvant à gauche et à droite.
La syntaxe :
RésultatString = LTrime(MaChaine)
RésultatString = RTrime(MaChaine)
RésultatString = AllTrime(MaChaine)
Description :
Cette fonction renvoie la partie entière de la valeur passée en paramètre.
La syntaxe :
MonEntier = Int(MaValeur)
Description :
La fonction Val retourne un nombre si la chaîne de caractères passée en paramètre contient des chiffres.
La syntaxe :
MonEntier = Val(MaChaine)
Description :
La fonction Str retourne sous forme de chaîne de caractères les chiffres d’un nombre passé en paramètre.
La syntaxe :
MaChaine = Str(MonNombre)
Permet d’écrire le texte passé en paramètre et à la position courante du curseur.
Permet de déplacer le curseur au mot précédent.
NombreDemots est un entier qui correspond au nombre de mots précédents à réaliser.
Attention, les ponctuations sont considérées comme des mots à part entières…
Par exemple, pour se déplacer de 10 mots précédents :
Selection.MoveLeft
Unit:=wdWord, Count:=10
Permet de déplacer le curseur au mot suivant.
NombreDemots est un entier qui correspond au nombre de mots suivants à réaliser.
Attention, les ponctuations sont considérées comme des mots à part entières…
Par exemple, pour se déplacer de 10 mots suivants :
Selection.MoveRight
Unit:=wdWord, Count:=10
Déplace le curseur au début du document, c’est l’équivalence de CTRL +Origine.
Si vous remplacez la constante WdStory par WDLine, la commande déplace le curseur au début de la ligne courante, c’est l’équivalence de la touche Origine.
Déplace le curseur à la fin du document, c’est l’équivalence de CTRL +Fin.
Si vous remplacez la constante WdStory par WdLine, le curseur est déplacé à la fin de la ligne courante, c’est l’équivalence de la touche Fin.
Déplace le curseur à “N” ligne précédente, don’t “N” est une valeur affectée à Count.
Par exemple, pour remonter de 3 ligne précédentes :
Selection.MoveUp
Unit:=wdLine, Count:=3
Déplace le curseur aux lignes suivantes don’t “N” représente le nombre de lignes suivante, il s’agit d’une valeur numérique.
Par exemple, pour avancer de 3 lignes suivantes dans le document :
Selection.MoveDown
Unit:=wdLine, Count:=3
Permet de réaliser un saut de page à l’endroit où se trouve le curseur.
Déclenche un retour chariot, (La touche entrée.)
Équivaut à l’utilisation de la fenêtre « atteindre ».
Permet d’atteindre la cellule dont les références sont passées en paramètres et entre guillemets.
Le numéro de la ligne est précédé d’un R et le numéro de la colonne par un C.
« R » comme « Rang », « C » comme « Column ».
Voici la ligne de commande qui permet de se déplacer vers la cellule A1 :
Application.Goto Reference:="R1C1"
Permet d’écrire dans une cellule.
La syntaxe :
ActiveCell.Value = « Texte à écrire »
Cette fonction peut ausssi retourner la valeur de la cellule courante.
La syntaxe :
If ActiveCell.Value = « Valeur » Then
Traitement
End If
Permet de se déplacer depuis la cellule courante.
La syntaxe :
ActiveCell.OffSet(NombreLignes,NombreColonnes).Select
La description :
NombreLignes est une valeur numérique qui définit le déplacement vertical, donc, de ligne en ligne.
0, aucun déplacement.
Une valeur positive, déplacement à la ligne suivante, 1 pour une ligne, 2 pour 2 lignes, 3 pour 3 lignes Etc.
Une valeur négative, déplacement à la ligne précédente, -1 pour une ligne Etc…
NombreColonnes est une valeur numérique qui définit le déplacement horizontal, donc, de colonne en colonne.
0, aucun déplacement.
Une valeur positive, déplacement à la colonne suivante, 1 pour une colonne, 2 pour 2 colonnes, 3 pour 3 colonnes Etc.
Une valeur négative, déplacement à la colonne précédente, -1 pour une colonne Etc…
Par exemple, pour déplacer le curseur à la ligne précédente :
ActiveCell.OffSet(-1,0).Select
Permet d’atteindre le début ou la fin d’une région de données.
La syntaxe :
Selection.End(Direction).Select
La description :
Direction peut prendre deux valeurs :
XlUp pour atteindre la première ligne de la région de données.
XlDown pour atteindre la dernière ligne de la région de données.
Philippe BOULANGER