 |
|
|
|
|
|
|
 |
|
|
|
|
|
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}))
|
|
|
|
|
|
