Discussion :

[dario69]

Bonjour à tous,

Voici ma question :

J'automatise des reportings mensuels. 5 fichiers par mois car 5 régions.

A coté, j'ai un fichier comparatif régions, qui comme son nom l'indique, compare les chiffres d'un même mois pour les 5 régions. Ce fichier est donc lié aux 5 reporting de régions.

Dans ce comparatif, on trouve une liste mois/année et un bouton MAJ.
Les noms des fichiers mensuels sont de la forme "reporting-région-01/2014".

Le bouton MAJ effectue un rechercher/remplacer sur la valeur de la liste mois/annee, ce qui va en fait juste changer le nom des fichiers liés.

Le problème est que : si on sélectionne un reporting qui n'existe pas (qui n'est pas dans le répertoire). Par exemple janvier 2015, ou même avril 2012, ca pose problème.

Excel ouvre autant de boite de dialogue que de formules à remplacer pour demander quel est le fichier avec lequel il faut faire le lien.

Une idée pour éviter ça?

Merci d'avance

[Invité]

Bonjour,

Il vous faut tester l'existence des fichiers avant de lancer vos procédures. Ci-dessous, une fonction qui teste l'existence d'un fichier dans un répertoire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub TesterExistenceFichier()
    If ExistenceFichier("Votre répertoire", "reporting-région-01/2015") = True Then
 
        MsgBox "Le programme continue"
 
    End If
 
End Sub
 
Function ExistenceFichier(ByVal RepertoireFichier As String, ByVal NomFichier As String) As Boolean
 
Dim Fso As Object
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    ExistenceFichier = Fso.FileExists(RepertoireFichier & "\" & NomFichier)
    Set Fso = Nothing
 
End Function

Cordialement.