Mettre une variable dans le chemin de la cde du shell

Bonjour à Toutes et à Tous,

Je viens juste de vous rejoindre sur le forum, et vous remercie d'avance de votre patience et des conseils que vous pourrez m'apporter.

Question compétence, je suis un néophyte quasi complet en VBA; je cherche et bricole a partir du net.

Le contexte étant posé....

Pour faire simple, déjà mon code :

Private Sub CommandButton3_Click()
Shell ("forfiles /p ""D:\Tests\sauvegarde"" /s /m *.* /c ""cmd /c Del @path"" /d -30 ")
End Sub

Le but étant d'effacer les fichiers vieux de plus de 30 jours du rep "Sauvegarde"... et cela fonctionne.

Par contre, je souhaiterai remplacer "D:\Tests\sauvegarde" , par une "variable", Est ce faisable, si oui, avec quelle syntaxe ?

Merci

Bonjour,

Par exemple ...tu pourrais tester ...

Private Sub CommandButton3_Click()
Dim svar As string
svar = "D:\Tests\sauvegarde"
Shell ("forfiles /p " & svar &" /s /m *.* /c ""cmd /c Del @path"" /d -30 ")
End Sub

Bonjour Lebidouilleur

Essaye ça

Private Sub CommandButton3_Click()
  Dim MaVar as string
  MaVar = "D:\Tests\sauvegarde"
  Shell ("forfiles /p & """ & MaVar & """ & "/s /m *.* /c ""cmd /c Del @path"" /d -30 ")
End Sub

Sinon il y a une possibilité directement avec VBA

A+

Bonjour, a vous deux, et merci pour vos "Rapides" réponses...

Impressionnant

Je vais essayer vos solutions, et je vous tiens au courant.

Par contre tout en vba ??? j'ai eu beau rechercher un peux partout, ca se complique dur, et ce n'est pas toujours tres clair..

Mais pourquoi pas?

Un petit copier coller plus loin, ... et c'est nickel !

James et Bruno, encore Merci à vous deux, je ramais sur la syntaxe, sans trouver ou ça bloquait.

Pb de guillemets a priori, je n'en aurai jamais mis 3 séries.