Discussion :

[slakhdine]

bonjour tout le monde je reviens vers .si vous pourriez m'aider à résoudre mon problème je serai très reconnaissant
je souhaite supprimer un fichier si il est vide après l'avoir créer . j'ai utilisé "Kill " mais je crois que vu que le ficher se trouve sur un emplacement réseau ou parce avec mon programme il s'ouvre automatiquement après la création du coup l'erreur me dit permission refusé 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Function sms_non_envoyes()
 
Dim str, LePath As String
Dim Dl2, x As Long
    ' récupération nombre lignes non vides dans la page DATA pour extraire à partir de la ligne suivante
    With ws
    Dl = ws.Range("T" & ws.Rows.Count).End(xlUp).Row
 
        Set WBsms = Workbooks.Add
        WBsms.SaveAs Filename:=ThisWorkbook.Path & "\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx"
        ' boucle allant de 1 jusqu'à la dernière ligne non vide de la feuille DATA
            For x = Dl To 1 Step -1
                Dl2 = WBsms.Sheets(1).Range("A" & ws.Rows.Count).End(xlUp).Row
 
                ' si la cellule en T1 ... Tx est vide alors on copie la ligne entière dans le fichier wb_sms_non_envoyes
                str = ws.Range("T" & x)
                If ws.Range("T" & x) = "" Then
                ws.Rows(x).Cut Destination:=WBsms.Sheets(1).Rows(Dl2 + 1)
                ws.Rows(x).Delete
                Else
                    LePath = Dir("P:\PROG CREATION SMS\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx")
                    Do While LePath <> ""
                        Kill "P:\PROG CREATION SMS\" & LePath
                        LePath = Dir
                    Loop
                'suppression
                End If
            Next x
    End With
WBsms.Save
WBsms.Close
End Function

merci par avance
cdlt

[slakhdine]

finalement .j'ai décide de faire une fonction séparé du code principale ç'a ma enlever l'erreur précédent mais un autre erreur a du apparaître je ne l'ai pas bien compris mais il a un rapport avec la ligne " If IsEmpty ...."

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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Function sms_non_envoyes()
 
Dim str, LePath As String
Dim Dl2, x As Long
Dim fs As Object
 
    ' récupération nombre lignes non vides dans la page DATA pour extraire à partir de la ligne suivante
    With ws
    Dl = ws.Range("T" & ws.Rows.Count).End(xlUp).Row
 
        Set WBsms = Workbooks.Add
        WBsms.SaveAs Filename:=ThisWorkbook.Path & "\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx"
        ' boucle allant de 1 jusqu'à la dernière ligne non vide de la feuille DATA
            For x = Dl To 1 Step -1
                Dl2 = WBsms.Sheets(1).Range("A" & ws.Rows.Count).End(xlUp).Row
 
                ' si la cellule en T1 ... Tx est vide alors on copie la ligne entière dans le fichier wb_sms_non_envoyes
                str = ws.Range("T" & x)
                If ws.Range("T" & x) = "" Then
                ws.Rows(x).Cut Destination:=WBsms.Sheets(1).Rows(Dl2 + 1)
                ws.Rows(x).Delete
 
                End If
            Next x
    End With
WBsms.Save
WBsms.Close
End Function

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 supp()
Dim LePath As String
Dim fs As Object
Dim suppr As Variant
 
    LePath = "P:\Mercure\CONTENTIEUX OUTILS\PROG CREATION SMS\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set suppr = fs.GetFile("P:\Mercure\CONTENTIEUX OUTILS\PROG CREATION SMS\SMS NON ENVOYES DU " & Format(Now(), "dd mm yy") & ".xlsx") '= on veut supprimer le fichier
    If IsEmpty(WBsms.Sheets(1).Rows) Then
    suppr.Delete
    End If
 
End Function

[slakhdine]

quelqu'un pourrait m'aider s'il vous plait .
merci par avance.
cdlt