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 :
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