Export excel et incrément de nom de fichier

Version imprimable

Bonjour j'ai suivi le tuto de loufab sur le formulaire de recherche multicritère qui est extrêmement bien réalisé. J'arrive au terme et j'ai un petit soucis concernant l'exportation vers Excel.

Dans le tuto, la fonction va soit créer un nouveau fichier lorsqu'il n'en existe pas d'autre dans le répertoire, soit écrire à la suite du fichier précédent.

Moi ce que je voudrais, c'est que lorsque l'on constate que le fichier "export.xls" existe, Access crée un nouveau fichier appelé "export_1.xls" et ainsi de suite.

Mon problème est que j'ai déjà essayé de le faire sans incrémentation automatique comme ceci :
Code:

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 34 35 Function lf_Export2EXCEL(strSQL, Optional strNameFile As String) ' vérifie que le fichier xls n'existe pas dans le chemin If Len(strNameFile) = 0 Then strNameFile = "Export.xls" strNameFile = Environ("USERPROFILE") & "\Mes Documents\" & strNameFile If Len(Dir(strNameFile)) = 0 Then ' teste si le fichier existe ' crée la requete Temp avec la SQL select CurrentDb.CreateQueryDef "Temp", strSQL ' Crée une sortie au format EXCEL DoCmd.OutputTo acOutputQuery, "Temp", acFormatXLS, strNameFile, True ' supprime la query Temp CurrentDb.QueryDefs.Delete "Temp" ElseIf Len(strNameFile) = 1 Then strNameFile = "Export_1.xls" 'le fichier existe strNameFile = Environ("USERPROFILE") & "\Mes Documents\" & strNameFile If Len(Dir(strNameFile)) = 0 Then ' teste si le fichier existe ' crée la requete Temp avec la SQL select CurrentDb.CreateQueryDef "Temp", strSQL ' Crée une sortie au format EXCEL DoCmd.OutputTo acOutputQuery, "Temp", acFormatXLS, strNameFile, True ' supprime la query Temp CurrentDb.QueryDefs.Delete "Temp" End If End If End Function
Avec ce code la création fonctionne parfaitement lorsqu'il n'y a pas de fichier mais il ne se passe rien lorsque le fichier "Export.xls" existe.

Donc j'aimerais que la création de fichier si il y a déjà un fichier existe fonctionne mais en plus que le numéro s'incrémente tout seul en fonction du nom du fichier précédent.

voila je suis ouvert à vos réponses merci d'avance à vous tous et encore merci à Loufab pour son tuto.

Bonjour,

Ton elseIF ci dessous ne doit pas correspondre a tes attentes...

Code:

ElseIf Len(strNameFile) = 1 Then

Len() te renvoie la longueur d'une chaine et dans ce cas, tu rentres dans la condition si ton nom de fichier est long d'un caractère :)

Tu pourrais faire qqch du genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function lf_Export2EXCEL(strSQL, Optional strNameFile As String)
      Dim count As Integer
 
    ' vérifie que le fichier xls n'existe pas dans le chemin
    If Len(strNameFile) = 0 Then strNameFile = "Export.xls"
 
    strNameFile = Environ("USERPROFILE") & "\Mes Documents\" & strNameFile
 
    while (Len(Dir(strNameFile)) <> 0)
           strNameFile = "Export_" & count & ".xls"
           count = count + 1
    wend
 
        ' crée la requete Temp avec la SQL select
        CurrentDb.CreateQueryDef "Temp", strSQL
 
        '   Crée une sortie au format EXCEL
        DoCmd.OutputTo acOutputQuery, "Temp", acFormatXLS, strNameFile, True
        '   supprime la query Temp
        CurrentDb.QueryDefs.Delete "Temp"
 
End Function

On teste une premiere fois si le fichier existe. Si oui, on change le nom et on reteste TANT que le fichier existe ;)

30/06/2010, 11h13
vincent1746

Nikel tu pouvais pas mieux répondre c'est parfait tout fonctionne j'ai juste remplacer ma fonction par la tienne et ça marche parfaitement.

Un grand merci à toi tu viens de me sauver la mise.