 |
 |
 |
 |
 |
 |
|
 |
|
 |
|
 |
|
Astuce de l'instant (Vba) |
|
 |
|
Tester si un fichier existe ou pas
Dim MonFichier As String MonFichier = "C:\Mes documents\Toto\Lulu.xls"
If Dir(MonFichier) = "" Then MsgBox "Le Fichier " & Right(MonFichier, 16) & " n'est pas là !", vbCritical, "Opération impossible, ce fichier est obligatoire" Exit Sub End If
' Autre façon de faire:
If Dir("C:\Mes documents\Toto\Lulu.xls") <> "" Then MsgBox "Le fichier est bien là !" Else: MsgBox "Le Fichier n'est pas là !" End If
'La même chose avec une fonction: Function FichierExiste(MonFichier As String) As Boolean If Dir(MonFichier) <> "" Then FichierExiste = True End Function
|
|
|
|
 |
|
Astuce de l'instant (sans VBA) .... |
|
 |
|
Comment calculer la somme des x plus grandes valeurs d'une colonne de chiffres (colonne A par exemple) ?
EX: Pour calculer la somme des 3 plus grandes valeurs qui se trouvent dans la colonne A entre A1 et A100, voici la formule:
=SOMME(GRANDE.VALEUR(A1:A100;{1;2;3}))
|
|
|
|
 |
|