|
? Excel 2010 est livré avec Visual Basic pour Applications ( VBA ), qui est un langage de programmation simple que vous pouvez utiliser pour manipuler votre feuille de calcul Excel. VBA peut également effectuer certaines tâches informatiques simples , comme ouvrir ou modifier un fichier spécifié . Si votre code VBA Excel a besoin de travailler avec des fichiers , il peut être utile pour déterminer si un fichier existe avant que le code tente d'exécuter . Vous pouvez mettre en place une fonction VBA pour rechercher l'existence du fichier, puis appeler la fonction chaque fois que vous devez rechercher un fichier. Instructions
1 Ouvrez une nouvelle feuille de calcul Excel 2010 . Appuyez sur "Alt" et "F11" pour ouvrir la console VBA.
2 Faites un clic droit sur "Sheet1" sur le côté gauche de la console . Déplacez votre souris sur "Insérer" dans le menu pop-up et choisir "Module ". Double- cliquez sur le module qui apparaît dans la liste des éléments sur le côté gauche de l'écran.
3 Cliquez sur l'espace vide sur le côté droit de la console VBA. Tapez le code suivant :
checkfile de fonction (filename As String ) As Boolean
checkfile = ( Dir ( filename) <> "" )
End Function
Cela va créer une fonction appelée " checkfile " que vous pouvez appeler à partir d'autres sections du code VBA. La fonction est booléenne comme il retournera soit un oui ou un non , et il faut que vous entrez un nom de fichier lorsque vous appelez la fonction . La fonction va utiliser la commande " Dir" pour mettre le fichier en mémoire. Si le fichier n'existe pas, la commande Dir retourne une entrée vide et " checkfile " sera faux.
4 Appuyez sur " Entrée" pour arriver à une nouvelle ligne sous la fonction que vous venez de créer. Entrez le code suivant :
Sub test sur fichiers ()
Si checkfile ( "c: \\ screenshot1.bmp ") Then
MsgBox " Yup "
Sinon
MsgBox "Non "
End If End Sub
c'est juste une simple macro qui va utiliser votre fonction checkfile et retourner une " Yup »ou « message Nan " , selon que le fichier existe ou non. Remplacez " C: \\ screenshot1.bmp " à tout ce fichier que vous recherchez. Cliquez sur le bouton vert "Play" dans la barre de commande de VBA pour exécuter la macro et vérifier l'existence du fichier.
|
