Pb de backup d'un fichier XL avant le "save"

Version imprimable

10/07/2008, 13h21
J.Michel

Pb de backup d'un fichier XL avant le "save"

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
10/07/2008, 13h32
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.
10/07/2008, 13h38
ThierryAIM

Citation:

Envoyé par J.Michel

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

:koi:
10/07/2008, 13h43
OhMonBato

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

Non non, c'est bien du VB6.

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

Code:

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:

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:

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

10/07/2008, 14h19
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:

xlBook.SaveCopyAs "test.sav"

ça ne marche pas ?
10/07/2008, 14h53
J.Michel

Citation:

Envoyé par ThierryAIM

et avec

Code:

xlBook.SaveCopyAs "test.sav"

ça ne marche pas ?

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

Merci pour votre aide