Bonjour,

J'aimerais mettre ne place une gestions des erreurs pour les fichier, mais je sais pas trop comment faire.

VOici mon code :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Function CreationFichierSuiviAna(ByRef pStrNomFic As String) As Boolean
On Error GoTo err
 
    Dim strMaquetteDeSuiviAna As String      ' Nom du fichier Suivi Analytique
    Dim strRepertoireSuiviAna As String      ' Path du fichier Suivi Analytique
 
    'Set App.Workbook = Workbooks("COMPTA.xlsm")
 
    strMaquetteDeSuiviAna = Dir(Workbooks("COMPTA.xlsm").Path + "\bin\" + NOM_FIC_SUIVIANA, vbNormal)
 
    If strMaquetteDeSuiviAna = "" Then
        MsgBox "Le fichier maquette de Suivi Analytique : " + Chr(10) + strMaquetteDeSuiviAna + Chr(10) + "n'existe pas "
        'InitCompta = False
        CreationFichierSuiviAna = False
        Exit Function
    End If
 
    strRepertoireSuiviAna = App.DirRacine + "\" + gStrAnneeTraitee + "\compta\suiviana"
    FileCopy App.Workbook.Path + "\bin\" + NOM_FIC_SUIVIANA, strRepertoireSuiviAna + "\" + pStrNomFic + ".xlsm"
 
 
    CreationFichierSuiviAna = True
err:
    Select Case err.Number
        Case 58: MsgBox "Le fichier existe déjà"
        Case Else: MsgBox "Erreur inconnue"
        CreationFichierSuiviAna = False
 
    End Select
 
 
End Function
j'ai lu que l'utilisation du On Error GoTo n'était pas recommendée.... qu'en pensez-vous?

Merci

Nath

PS :A quelle moment faudrait t'il penser a faire une gestion des erreur en plus des fichiers???