Export et vérification fichier ouvert

Version imprimable

Bonjour à tous,

Je dispose d'un bouton sur lequel je clic pour créer un fichier excel nommé "export"

Si le fichier existe déjà, excel va automatiquement me demander si je veux le remplacer donc pas de soucis.

voici le code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton1_Click() On Error Resume Next Workbooks("Export.xls").Activate If Err <> 0 Then MsgBox "Le Fichier Export.xls doit être ouvert sur votre poste, vous devez le fermer et relancer l'export" End If If Err <> 0 Then Dim exc As New Excel.Application Workbooks.Add Sheets("Feuil1").Select Sheets("Feuil1").Name = "Export_AccroSoft" ActiveCell.FormulaR1C1 = "Export réalilsé le " & Now ActiveCell.Font.Bold = True ActiveWorkbook.SaveAs Filename:="C:\Export.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False End If End Sub
Cependant si le fichier export est déjà créé ET ouvert du coup je cumule 2 erreurs. Et ma méthode resume next ne fonctionne pas.

Comment puis-je résoudre cela?

Merci pour votre aide.

Elumastebit

09/01/2009, 08h01
Elumastebit

bonjour du jour,

Je lance une idée: est-ce qu'une méthode "On Error GoTo" pourrait fonctionner?

Merci.

elumatebit

Bonjour,

peut-être une piste.

1) Si tu veux voir si le fichier existe tu fais le teste avec DIR et tu agis comme tu le souhaites si vraiment tu veux confirmer quelquechose, mais à ta place je ne m'en préoccuperais pas car tu semble toujours utiliser le même nom en export. Tu peux te contenter de faire le DIR

2) Si tu veux voir si le fichier est utilisé, tu essaies de le supprimer avec la méthode KILL juste avant ton saveas. Si le Kill échoue, alors tu sais qu'il est utilisé.

En résumé.
Code:

1 2 3 4 5 6 7 res = DIR(nom fichier complet) if res <> "" then kill nom_fichier_complet 'a toi de gerer l'erreur sur le kill comme tu le souhaites" endif ActiveWorkbook.SaveAs Filename:="C:\Export.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Bonjour Godzestla et merci pour ta réponse,

J'ai donc modifié mon code avec tes infos:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
    'On Error Resume Next
    ''Workbooks("Exports.xls").Activate
        'If Err <> 0 Then
        'MsgBox "Le Fichier Exports.xls doit être ouvert sur votre poste, vous devez le fermer et relancer l'export"
        'End If
            'If Err <> 0 Then
            'Dim exc As New Excel.Application
            Workbooks.Add
            Sheets("Feuil1").Select
            Sheets("Feuil1").Name = "Export"
            ActiveCell.FormulaR1C1 = "Export réalisé le " & Now
            ActiveCell.Font.Bold = True
            res = Dir(Exports.xls)
            If res <> "" Then
            Kill Exports.xls
                        End If
            ActiveWorkbook.SaveAs Filename:="C:\Exports.xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
            'End If
End Sub

J'ai une erreur 424 objet requis.

Cependant j'ai réfléchi au fonctionnement de mon appli, et en fait je vais contourner ce problème puisque il n'y a aucun intérêt à enregistrer ce fichier. Ainsi c'est l'utilisateur qui l'enregistrera ou non et à l'emplacement qu'il souhaite et ainsi durant cet enregistrement il mettra le nom qu'il veut au fichier.

Mon code devient simplement:

Code:

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
 
            Workbooks.Add
            Sheets("Feuil1").Select
            ActiveCell = "Export réalisé le " & Now
            ActiveCell.Font.Bold = True
            Sheets("Feuil1").Name = "Export"
 
End Sub

C'est bien plus simple de cette manière et moins contraignant pour l'utilisateur.

Merci à toi pour ton aide.

Elumastebit

09/01/2009, 10h21
Godzestla
Ok.

Tu n'avais pa lu ce que j'ai écrit :evilred: car ceci est faux.
Code:

1 2 res = Dir(Exports.xls)
Regarde l'aide sur DIR.

A+