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 : 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
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