XL 2021 VBA comment utiliser "contient" ?

Dranreb

XLDnaute Barbatruc

• 27 Décembre 2023

• #2

Bonjour.
Les "*" ne sont compris comme caractères génériques que par la fonction Dir. Utilisez donc celle ci pour récupérer le nom complet du fichier que vous pourrez ensuite spécifier au Kill, concaténé au chemin.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 27 Décembre 2023

• #3

re
Bonjour
ben c'est simple
tu fait un dir dessus pour avoir le nom complet avec une partie du nom recherché

VB:

Dim chemin$,partfichier$,fichier$
chemin ="C:\Users\" & util & "\"'ne pas oublier ce slach a la fin
partfichier="Export_SUIVI_CDE"
fichier=dir (chemin & partfichier &"*.*")
if fichier<>"" then kill chemin & fichier

voila

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 27 Décembre 2023

• #4

Bonjour @Attila451

Edit Bonjour Bernard et Patrick

Je te propose en supposant que le chemin que tu as donné soit le bon et que le nom que tu as mis soit toujours de cette forme

Kill ("C:\Users\" & util & "\Downloads\" & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 27))

Cliquez pour agrandir...

Merci de ton retour

 

Dernière édition: 27 Décembre 2023

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 27 Décembre 2023

• #5

Bonjour,
Merci mais ça ne fonctionne pas..
Le fichier ne se supprime pas.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Décembre 2023

• #6

Vérifiez que la fonction Dir renvoie bien une chaine non vide. Sinon c'est que le masque spécifié ne correspondait pas à un fichier existant.

 

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 27 Décembre 2023

• #7

Bonjour Phil69970,
Merci pour le retour mais le pb est que la fin du fichier change à chaque nouveau téléchargement.

Cdlt

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Décembre 2023

• #8

Re

Attila451 à dit:

Merci pour le retour mais le pb est que la fin du fichier change à chaque nouveau téléchargement.

Cliquez pour agrandir...

Et bien on s'en fout car si tu lis et comprends le code qu j'ai mis tu verras que je supprime la fin de ton fichier qui correspond à la date + l'heure .

Essaye ceci

Kill ("C:\Users\" & util & "\Downloads\" & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 27 )& ".xls")

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 27 Décembre 2023

• #9

Bonjour, je m'excuse de vous donner l'impression d'expliquer la physique nucléaire à une huître mais si j'avais compris le code, je n'aurais pas re posé la question. Donc non, je n'ai pas compris.

==> " & util & " : pour pouvoir supprime par utilisateur.

Pour simplifier, le chemin est:
"C:\Users\ami\Downloads\ + le nom du fichier qui varie mais commence toujours de la même manière

Un grand merci

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Décembre 2023

• #10

Re

Et est ce que cela fonctionne ?

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 27 Décembre 2023

• #11

Re

Et essaye ceci qui devrait fonctionner quelque soit l'utilisateur

Kill ("C:\Users\" & Application.UserName & "\Downloads\" & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 27 )& ".xls")

Cliquez pour agrandir...

Et explication de Application.UserName

==> https://learn.microsoft.com/fr-fr/office/vba/api/excel.application.username

Merci de ton retour

 

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 27 Décembre 2023

• #12

Phil69970 à dit:

Re

Et essaye ceci qui devrait fonctionner quelque soit l'utilisateur



Et explication de Application.UserName

==> https://learn.microsoft.com/fr-fr/office/vba/api/excel.application.username

Merci de ton retour

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 27 Décembre 2023

• #13

Re, désolé, non ça ne fonctionne pas.

Kill ("C:\Users\" & Application.UserName & "\Downloads\" & Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 27) & ".xls")

Par contre, le fichier à supprimer n'est pas celui sur lequel est la macro. J'ai un fichier A sur lequel j'ai la macro qui va chercher des infos sur un fichier téléchargé B, ce fichier B sera re - téléchargé X fois.

C'est ce fichier B qui sort avec une extension qui varie mais qui garde toujours le même début.
Avant, quand le fichier B était téléchargé une première fois, j'allais le supprimer de suite après en sachant qu'il s'appelait Export_SUIVI_CDE.
Mais maintenant, il se télécharge avec des extensions qui ne sont jamais les mêmes.

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 27 Décembre 2023

• #14

Version plus étoffée :

VB:

Option Explicit
Sub Test()
   Dim Chemin As String, NomFic As String
   Chemin = "C:\Users\" & Application.UserName & "\Downloads"
   Const Masque = "Export_SUIVI_CDE*"
   On Error Resume Next
   ChDrive Chemin: ChDir Chemin
   If Err Then MsgBox "Impossible d'accéder à """ & Chemin & """." _
      & vbLf & Err.Description, vbCritical: Exit Sub
   NomFic = Dir(Masque)
   If NomFic = "" Then MsgBox "Il n'existe aucun de fichier de la forme """ & Masque & """" _
      & vbLf & "sur """ & CurDir & """.", vbCritical: Exit Sub
   Do
      If MsgBox("Supprimer """ & NomFic & """ sur" & vbLf & CurDir _
         & " ?", vbInformation + vbYesNo) = vbYes Then
         Err.Clear: Kill NomFic
         If Err Then MsgBox "Kill """ & NomFic & """ => Err. " & Err _
            & vbLf & Err.Description, vbExclamation
         End If
      NomFic = Dir: Loop Until NomFic = ""
   End Sub

 

Vote positif 0 Vote négatif

A

Attila451

XLDnaute Occasionnel

• 27 Décembre 2023

• #15

Bonjour, merci beaucoup pour vos réponses.

En reprenant également l'exemple de patrickToulon => toulonaiiiiis, alleeeez, alleeeeez, alleeeeez !!!!

J'ai également celle ci qui fonctionne:

Sub SuprFichier()

Dim chemin$, partfichier$, fichier$
chemin = "C:\Users\ami\Downloads\" 'ne pas oublier ce slach a la fin
partfichier = "export_DOSSIER_COLIS ("
fichier = Dir(chemin & partfichier & "*.*")
While fichier <> ""
Kill chemin & fichier
fichier = Dir(chemin & partfichier & "*.*")
Wend

End Sub

 

Vote positif 0 Vote négatif