suppression d'un fichier en VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:
Envoyé par Naoned005
Re

J'avais déjà essayé. Tu proposes quelque chose comme ça$
Code:

1 2 3 4 5 6 7 8 ... Workbooks.Open (chemin & fichiers) If Range("C16") <> Veille Then Workbooks(chemin & fichiers).Close 'Je ferme le fichier pour pouvoir le supprimer ...
Citation:
Envoyé par bbil
bonsoir,

utilise une variable workboook pour agir sur ton classeur
Code:

1 2 3 4 5 6 7 8 Dim wk As workbook (...) set wk = Workbooks.Open (chemin & fichiers) (....) wk.close 'Fermeture du classeur

15/05/2012, 06h59
Daranc

le nom du fichier ?
possible que ce soit une interprétation sur le poste soit
le PC ou tu es considère le classeur en tant que "Classeur" soit il faut lui donné le nom de "Classeur.xls"
j'ai eu ce problème sur divers classeurs l'ouverture avec classeur marchait sur un PC mais la fermeture demandait l’extension ( et d'autre c'était le contraire :calim2: )

Slt

J'explique le contexte vite fait: Grace à une macro j'ai des PJ de mes mails qui arrivent dans un dossier du disque dur à partir de la je les renomme, mais avant ça j'aimerais les supprimer si en C16 la date est différente de la Veille

@Daranc what??? :)

@bbil! J'avais déjà essayé qq chose avec Set tu proposes quelque chose comme ça?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
chemin = "Z:\Risques et documentation OPCVM\Rapprochement Front Back\Confirmation Trades\Essai\"                        ' chemin a adapter
   'on va lister tout les fichiers de type excel en filtrant l'extention
   filtre = "*.xls" ' ou le filtre que tu veux ... par exemple "*.txt" ou même "toto*.*"
 
   fichiers = Dir(chemin & filtre, vbNormal Or vbHidden) 'on prend meme ce qui sont caché
   'c'est parti
   Do While fichiers <> "" '
 
    Set wk = Workbooks.Open(chemin & fichiers)
 
   If Range("C16") <> Veille Then
 
 
 
    wk.Close
 
    wk.DeleteFile (chemin & fichiers)
 
    End If
 
 
    If Range("B13") = "" Then
 
(....)

Mais ça me met erreur d'automation sur la ligne wk.close 8O

Ma fonction veille

Code:

1
2
3
4
5
6
Private Function Veille() As Date
Dim d As Byte
 
d = DatePart("w", Date, vbSunday)                'Si Date est Dimanche ou Lundi, on prend Vendredi comme étant la veille. 'Sinon, on prend j-1
Veille = Date - IIf(d <= 2, d + 1, 1)
End Function

15/05/2012, 13h18
SfJ5Rpw8

bonjour,
Il n'y as pas de raison pour que cela ne marche pas .. relis les reactions a tes precedents essais avec set..
Revois aussi l'organisation de ton code tu dois fermer ton fichier excel qu'il soit de la veille ou pas .... Memorise la valeur de ta cellule.. Ferme le classeur puis utilise kill ou pas pour effacer ton fichier
Si tu ne maitrise pas a fond le VBA d'excel , son fonctionnement et le fonctionnement de l'utilisateur de ton code precise TOUJOURS la feuille concernèe devant tes instructions range..cells..

Code:

IF wk.sheets("feuille1").range("C16").,,,

N'invente pas des procedure : deletefile? Je connais pas..

Mais si ça existe regarde sur les derniere ligne mon petit bout de code s'incere dans

Code:

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
81
82
83
84
85
86
87
88
  Sub change_le_nom_des_xls()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
  Dim chemin As Variant
Dim filtre As Variant
Dim fichiers As Variant
Dim Workbook As Variant
Dim objFSO As Variant
 
 
 
chemin = "Z:\Risques et documentation OPCVM\Rapprochement Front Back\Confirmation Trades\Essai\"                        ' chemin a adapter
   'on va lister tout les fichiers de type excel en filtrant l'extention
   filtre = "*.xls" ' ou le filtre que tu veux ... par exemple "*.txt" ou même "toto*.*"
 
   fichiers = Dir(chemin & filtre, vbNormal Or vbHidden) 'on prend meme ce qui sont caché
   'c'est parti
   Do While fichiers <> "" '
 
    Workbooks.Open (chemin & fichiers)
 
 
 'Et je commence a renommer mes fichier  
 
    If Range("B13") = "" Then
 
    'Macro pour la date et le sens de l'odre
 
    Range("E15") = "=YEAR(R[-8]C[-3])"
 
    Range("F15") = "=MONTH(R[-8]C[-4])"
 
    Range("G15") = "=DAY(R[-8]C[-5])"
 
    Range("D25") = "=R[-10]C[1]&R[-10]C[2]&R[-10]C[3]"
 
    If Range("C20") = "Vente" Then Range("C20").Value = "SELL"
    If Range("C20") = "Achat" Then Range("C20").Value = "BUY"
 
  'on sauve le classeur sous le nom
    ActiveWorkbook.SaveAs Filename:=chemin & Range("C22") & "_" & Range("C20") & "_" & Range("B8") & "_" & Range("D25") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 ActiveWorkbook.Close
 
   'on va supprimer le fichier portant l'ancien nom
   Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile (chemin & fichiers)
 
     fichiers = Dir
 
 
 
   End If
 
   If Range("B13") = "OPERATION N°" Then
 
   'Macro pour la date et le sens de l'ordre
 
   Range("E15") = "=YEAR(R[-7]C[-3])"
 
    Range("F15") = "=MONTH(R[-7]C[-4])"
 
    Range("G15") = "=DAY(R[-7]C[-5])"
 
    Range("D25") = "=R[-10]C[1]&R[-10]C[2]&R[-10]C[3]"
 
 
    If Range("C20") = "Vente" Then Range("C20").Value = "SELL"
    If Range("C20") = "Achat" Then Range("C20").Value = "BUY"
 
 
   'on sauve le classeur sous le nom
    ActiveWorkbook.SaveAs Filename:=chemin & Range("C22") & "_" & Range("C20") & "_" & Range("B9") & "_" & Range("D25") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
 ActiveWorkbook.Close
 
   'on va supprimer le fichier portant l'ancien nom
   Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile (chemin & fichiers)
 
 fichiers = Dir
 
 End If
 
 Loop
 
End Sub

Ce code fonctionne parfaitement donc je ne vois pas pourquoi tu dis

Citation:

tu dois fermer ton fichier excel qu'il soit de la veille ou pas

Je comprend toujours pas pourquoi ça ne marche pas kan apres

Code:

Workbooks.Open (chemin & fichiers)

je fais ça

Code:

1
2
3
4
5
6
7
8
9
 If Range("C16") <> Veille Then
 
   Workbooks(chemin & fichiers).Close  'Je ferme le fichier pour pouvoir le supprimer
 
'Et je le suprimme
Set objFSOA = CreateObject("Scripting.FileSystemObject")
objFSOA.DeleteFile (chemin & fichiers)
 
End If

ça serait plus logique là je ne comprend pas le mot clef set même avec F1 et le net 8O

15/05/2012, 19h17
SfJ5Rpw8

Oui mais cette procédure ne s'applique pas à un objet workbook ! et wk et un objet workbook

pour ce qui est du "set wk.. " il y as quantités d'exemples sur ce forum ..

oubli ton ...

Code:

Workbooks(chemin & fichiers).Close

tu utilise la un mauvais index pour ta collection workbooks. C'est vraiment plus clair et plus facile à gérer avec une variable workbook.
16/05/2012, 11h56
patricktoulon

re

bonjour

dis moi si je ne me trompe pas b8 ou b9 c'est bien la cellule a droite de la cellule ou il y a le mot reference ????? selon les présentations

au plaisir

Voir 40 message(s) de cette discussion en une page