[VBA] supprimer un Classeur Excel

**beurnoir** · 09/11/2005, 14h17

Bjr,

J'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
Function macro_suppr_IMP()
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
fso.deletefile "C:\Documents and Settings\pommbe01\Bureau\IMP.xls"
 
End Function

Ce dernier me permet de supprimer un classeur Excel IMP.xls.

Tout fonctionnait bien jusqu'à aujourd'hui ou maintenant j'ai l'erreur d'execution suivante : Permission Refusée.

Comment faire pour avoir cette permission???

Merci à tous.

**cafeine** · 09/11/2005, 14h29

Sinon tu as la fonction Kill()

évidemment tu ne pourras supprimer un fichier que si personne ne l'a ouvert ...
il faut tester avant si tu as un accès en écriture ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

**beurnoir** · 09/11/2005, 14h44

Meme probleme avec la fonction Kill.

J'essaie de voir avec le test.

**beurnoir** · 09/11/2005, 15h41

J'ai essayé ton test mais j'ai le message d'erreur suivant :

Impossible pour Microsoft Office Access de trouver le nom "strFic" entré dans l'expression.

Pourtant cette variable est bien déclarée???[/code]

**beurnoir** · 09/11/2005, 17h11

J'ai vérifié le fichier Excel IMP n'est pas protégé en ecriture.

J'ai passé toute l'après midi la dessus j'ai tout essayé et rien!!!

Le sincerement je sais plus quoi faire.

**cafeine** · 09/11/2005, 17h17

que renvoie IsFileOpen() sur ton fichier ?

**beurnoir** · 09/11/2005, 18h18

Fichier en cours d'utilisation

IMP.XLS est vérouillé pour modification.

**cafeine** · 09/11/2005, 18h21

non, c'est un booléen soit True, soit False

**beurnoir** · 10/11/2005, 08h13

Justement il me renvoit rien il bloque des la premier ligne :

Code :

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

Function IsFileOpen(ByVal strFic As String) As Boolean

Et j'ai alors le message suivant :

Impossible pour Microsoft Office Access de trouver le nom "strFic" entré dans l'expression.

**cafeine** · 10/11/2005, 10h15

Tu dois rentrer cette fonction dans un module ...

je ne vois pas ce qui pourrait faire bloquer la compilation dans ce code

**beurnoir** · 10/11/2005, 13h06

Oui elle est dans un module.

Ensuite j'ai fait un executer code au niveau de ma macro et j'ai choisi ce module.

Mais j'ai comme meme ce message d'erreur.

**cafeine** · 10/11/2005, 14h15

Tu mets quoi dans ta macro ?

**beurnoir** · 10/11/2005, 14h49

C'est une macro Autoexec.

Je réalise d'abord une action Transférer Feuil Calcul grace à laquelle j'exporte le résultat d'une requete dans Excel.
Ensuite j'execute un code qui est le suivant :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Function macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/10/2005 par pommbe01
'
    Dim appXl As Excel.Application
    Set appXl = CreateObject("Excel.Application")
 
    'Pour ne pas avoir d'avertissement si le fichier est déjà créé
    appXl.DisplayAlerts = False
 
    'Affiche (True) ou pas (False) la fenêtre Excel
    appXl.Visible = False
 
    appXl.AskToUpdateLinks = False
    appXl.Workbooks.Open Filename:="C:\Documents and Settings\pommbe01\Bureau\IMP"
 
 
    Dim c As Variant, compte As Integer
 
    compte = 0
    '
    appXl.Range("A1:B1").Select
    appXl.Selection.Font.Bold = True
    appXl.Columns("A:A").EntireColumn.AutoFit
    appXl.Columns("B:B").EntireColumn.AutoFit
 
    appXl.Range("A2").CurrentRegion.Select
    appXl.Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
    For Each c In Range("A2", appXl.Range("A2").End(xlDown).Address)
        c.Select
 
        'faire le calcul
        If c.Offset(-1, 0) = c Then
            compte = c.Offset(-1, 1) + c.Offset(0, 1)
            c.Offset(0, 3) = compte
        Else
            c.Offset(0, 3) = c.Offset(0, 1)
            compte = 0
        End If
    Next
 
    'nettoyer les résultats superflus
    For Each c In Range("A2", Range("A2").End(xlDown).Address)
        If c.Offset(1, 0) = c Then
            c.Offset(0, 3) = ""
        End If
    Next
 
    'effacer les lignes
    appXl.Range("A2").End(xlDown).Select
go:
    If appXl.Selection.Address <> "$A$2" Then
        If appXl.Selection.Offset(-1, 0) = appXl.Selection Then
            appXl.Selection.Offset(-1, 0).EntireRow.Delete
        End If
        appXl.Selection.Offset(-1, 0).Select
        GoTo go
    End If
 
    appXl.Range("B1").Select
    appXl.Selection.Copy
    appXl.Range("D1").Select
    appXl.ActiveSheet.Paste
    appXl.Columns("B:B").Select
    appXl.Application.CutCopyMode = False
    appXl.Selection.Delete Shift:=xlToLeft
    appXl.Columns("C:C").Select
    appXl.Selection.Cut
    appXl.Columns("B:B").Select
    appXl.ActiveSheet.Paste
 
    Set appXl = Nothing
 
End Function

Ce module me permet d'additionner les valeurs dans la colonne B lorsque leurs dates dans la colonne A sont identiques.

Le fichier est lié à une table dans Access.

Enfin je lance ce module qui me pause probleme.

J'espere que ces informations vont permettre de trouver la solution.

Merci de m'accorder ton aide.

**cafeine** · 10/11/2005, 14h56

Manifestement, tu ne lis pas nos réponses, ton appli s'étale sur une demi douzaine de threads sur les forum Access et VB.

Or, je ne vois pas dans ton code de fermeture de fichier, ni de fermeture d'Excel ... comment dès lors comptes-tu effacer un fichier encore ouvert ?

Ce thread est là pour savoir comment effacer un fichier, nous y avons répondu.

à toi de savoir refermer le fichier et Excel.

**beurnoir** · 10/11/2005, 15h10

Je le ferme mais par un autre module.

J'ai 6 module et au moins 20 Macros j'ai juste indique celle qui concerne directement le fichier IMP.

En fait j'ai un autre module qui realise la chose suivante :

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
17
18
19
20
21
22
23
24
25
26
 
Function Fermer_test()
 
Dim appXl As Excel.Application
Dim oClasseur As Excel.Workbook
 
Set appXl = CreateObject("Excel.Application")
 
'Pour ne pas avoir d'avertissement si le fichier est déjà créé
    appXl.DisplayAlerts = False
 
    'Affiche (True) ou pas (False) la fenêtre Excel
    appXl.Visible = False
 
    appXl.AskToUpdateLinks = False
    Set oClasseur = appXl.Workbooks.Open("C:\Documents and Settings\pommbe01\Bureau\Copie de Test")
 
appXl.ActiveWindow.Close SaveChanges:=False
 
appXl.Quit
 
Set appXl = Nothing
 
Set oClasseur = Nothing
 
End Function

Je réalise donc les choses dans cet ordre : action Transférer Feuil Calcul grace à laquelle j'exporte le résultat d'une requete dans Excel puis j'execute le code de la macro1 ensuite le code cité juste avant (Fermer test) et enfin j'essai le test pour savoir si le fichier est ouvert.

Dsl de pas avoir tout indique mais ma base est assez consequente donc je peux pas tout indiquer dans mes messages.

Je lis tous vos post avec attention surtout qu'il me reste que ce probleme pour que ma base tourne correctement mais la sincerement j'ai beau tout essayer je galere pour savoir d'ou vient le probleme.

J'ai parfaitement conscience que tu passes bcp de temps sur ces problemes et je t'en remercie.

**cafeine** · 10/11/2005, 15h17

Tu ne peux pas fermer un fichier ouvert par une instance d'Excel avec une autre instance.
Ton ouverture et ta fermeture doivent utiliser le meme objet Excel.

Je ne passe pas trop de temps sur ces problèmes, je veux juste ne pas répéter 10 fois les même choses.

Je vois plus les choses comme ça :

1- une fonction d'export Excel (grâce à TransferSpreadsheet) [sans instancier Excel]
2- une fonction d'automation Excel qui prend en charge le traitement de A à Z (avec ouverture puis fermeture) [avec instanciation Excel]
3- une fonction d'effacement de fichier [sans instancier Excel]

est-ce compatible ?

**beurnoir** · 10/11/2005, 15h22

A priori oui je vais essayer de modifier tout ca pour voir si ca l'est.

Merci

**beurnoir** · 10/11/2005, 15h37

Petite derniere question instancier ca veut dire quoi exactement??

**cafeine** · 10/11/2005, 15h50

c'est quand tu crées un objet Excel

ex :

Code :

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

Set appXl = CreateObject("Excel.Application")

**beurnoir** · 14/11/2005, 10h10

Bjr,

Alors j'ai suivi tes instructions.

J'ai donc une action Transférer Feuil Calcul qui Exporte ma table vers Excel.
Ensuite j'execute le code suivant :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
Function macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/10/2005 par pommbe01
'
    Dim appXl As Excel.Application
    Set appXl = CreateObject("Excel.Application")
 
    'Pour ne pas avoir d'avertissement si le fichier est déjà créé
    appXl.DisplayAlerts = False
 
    'Affiche (True) ou pas (False) la fenêtre Excel
    appXl.Visible = False
 
    appXl.AskToUpdateLinks = False
    appXl.Workbooks.Open Filename:="C:\Documents and Settings\pommbe01\Bureau\IMP"
 
 
    Dim c As Variant, compte As Integer
 
    compte = 0
    '
    appXl.Range("A1:B1").Select
    appXl.Selection.Font.Bold = True
    appXl.Columns("A:A").EntireColumn.AutoFit
    appXl.Columns("B:B").EntireColumn.AutoFit
 
    appXl.Range("A2").CurrentRegion.Select
    appXl.Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
                   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
    For Each c In Range("A2", appXl.Range("A2").End(xlDown).Address)
        c.Select
 
        'faire le calcul
        If c.Offset(-1, 0) = c Then
            compte = c.Offset(-1, 1) + c.Offset(0, 1)
            c.Offset(0, 3) = compte
        Else
            c.Offset(0, 3) = c.Offset(0, 1)
            compte = 0
        End If
    Next
 
    'nettoyer les résultats superflus
    For Each c In Range("A2", Range("A2").End(xlDown).Address)
        If c.Offset(1, 0) = c Then
            c.Offset(0, 3) = ""
        End If
    Next
 
    'effacer les lignes
    appXl.Range("A2").End(xlDown).Select
go:
    If appXl.Selection.Address <> "$A$2" Then
        If appXl.Selection.Offset(-1, 0) = appXl.Selection Then
            appXl.Selection.Offset(-1, 0).EntireRow.Delete
        End If
        appXl.Selection.Offset(-1, 0).Select
        GoTo go
    End If
 
    appXl.Range("B1").Select
    appXl.Selection.Copy
    appXl.Range("D1").Select
    appXl.ActiveSheet.Paste
    appXl.Columns("B:B").Select
    appXl.Application.CutCopyMode = False
    appXl.Selection.Delete Shift:=xlToLeft
    appXl.Columns("C:C").Select
    appXl.Selection.Cut
    appXl.Columns("B:B").Select
    appXl.ActiveSheet.Paste
 
    Workbooks("IMP.XLS").Close SaveChanges:=False
 
    Set appXl = Nothing
 
End Function

Ce fichier "IMP.XLS" est lié à une table dans Access.
J'execute alors à partir de cette table une requete.

Enfin J'execute le code suivant :

Code :

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

1
2
3
4
5
6
7
8
 
Function macro_suppr_IMP()
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
fso.deletefile ("C:\Documents and Settings\pommbe01\Bureau\IMP.xls")
 
End Function

J'ai donc bien suivi le plan donné (en surveillant les instanciations):

1 Export Excel
2 Fonction Automation
3 Fonction effacement fichier

Mais j'ai toujours le message d'erreur suivant :
Erreur d'execution 70 : Permission refusée.

Je continue d'inspecter mes macros mais je vois pas ou est le problème.

Merci

[VBA] supprimer un Classeur Excel

Access

Discussions similaires

Partager

Partager