Discussion :

[J.Michel]

Bonjour à tous,

Je suis face à un petit pb et je n'ai rien trouvé via mes différentes recherche.
En fait j'ouvre un fichier XL via VB6 et je souhaiterais pouvoir faire un backup de ce fichier uniquement si l'utilisateur fait un "save" (Copier Monfic.Xls en MonFic.Sav)
J'utilise donc l'évenement BeforeSave dans mon appli VB6 mais si je souhaites faire une copie du fichier à ce moment la, je me récupère une erreur 70 "Permission refusée" car ledit fichier est en cours d'utilisation ......

Si quelqu'un a une solution ou un conseil je suis preneur.

Merci d'avance

[OhMonBato]

Tu dois pouvoir faire un "Save as" auparavant avec le nom que tu veux, puis un nouveau "Save as" avec le nom d'origine.

[ThierryAIM]

J'utilise donc l'évenement BeforeSave dans mon appli VB6 ...

[OhMonBato]

M'avait échappé celle là, mais effectivement, ça sent le VBA non ?

[J.Michel]

Non non, c'est bien du VB6.

Je déclmare mes variable pour lancer Excel comme suit:

Code :

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

1
2
3
 
Public WithEvents xlApp As Excel.Application   'Application EXCEL
Public WithEvents xlBook As Excel.Workbook   'Fichier EXCEL

J'ouvre mon fichier Excel comme ça:

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
 
'Ouverture de fichier Excel
Public Sub OpenXlFile(XlFicName As String, VisuSeule As Boolean)
    On Error Resume Next
    'On essaye de retrouver une occurence de Excel
    'S'il n'est pas lancé, on aura une erreur
     Set xlApp = GetObject(, "Excel.Application")
    If Err Then
      'excel n'est pas démarré
      Set xlApp = CreateObject("Excel.Application")
    End If
    Set xlBook = xlApp.Workbooks.Open(XlFicName, , VisuSeule)
 
    xlApp.ActiveWorkbook = xlBook
    xlApp.Visible = True
End Sub

De ce fait je peut utiliser cette procédure:

Code :

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

1
2
3
4
5
6
 
'Sauvegarde du fichier avant enregistrement
Public Sub xlBook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    'Et c'est ici que je prends une erreur 70 
    'si je cherche à copier le fichier ouvert dans Excel
End Sub

[ThierryAIM]

oui, je m'en doutais bien un peu, mais ça aurait été plus rapide de mettre le code dès le premier post

et avec

Code :

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

xlBook.SaveCopyAs "test.sav"

ça ne marche pas ?

[J.Michel]

et avec

Code :

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

xlBook.SaveCopyAs "test.sav"

ça ne marche pas ?

J'avais essayé avec un SaveAs mais ca relancait le BeforeSave en boucle donc je n'avais pas testé SaveCopyAs
Je viens de faire le test et c'est pourtant pil poil ce qu'il me fallait

Merci pour votre aide