Déplacement d'un fichier commencant par ... [Résolu/Fermé]

Signaler
Messages postés
152
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
8 septembre 2019
-
picsoin
Messages postés
152
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
8 septembre 2019
-
Bonsoir à tous,

J'ai un bouton dans un formulaire Access2016 qui doit déplacer un fichier d'un dossier à un autre:
Private Sub TestDeplacFic_Click()
Name "C:\Sceau\DST0001014500.csv" _
As "I:\MyCloud\DSTNOUV.csv"
End Sub
Jusque là, pas de problème, ça marche.

Le problème est que mon fichier source change tout le temps et dans la réalité il commence toujours par DST000
Si j'écris:
Name "I:\Sceau\DST000*.csv" _
As "I:\MyCloud\DSTNOUV.csv"
Ca marche pô! :-(

Un gentil commentçamarchois pourrait il me donner la bonne syntaxe?

3 réponses

Messages postés
15012
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2020
1 223
Bonjour,

Vous ne deplacez pas le fichier, vous en faites une copie.
Connaissez-vous le nom du fichier a copier ou avez vous le moyen de le connaitre et alors mettre le nom de ce fichier dans une variable, ce dessous exemple de code

Sub test()
    Fichier = "Classeurori1.csv"
    Name "D:\_ACSV\" & Fichier As "D:\_ACSV\Février\" & Fichier
End Sub
Messages postés
152
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
8 septembre 2019
4
Bonjour,
Merci de votre intervention.

Le sujet principal de ce post est que je connais toujours une partie du nom. Il s'agit d'un fichier téléchargé régulièrement.
Pour l'exemple aujourd'hui c'est DST000452389.csv, demain ce sera peut-être DST000987541.csv

Dans votre code, la variable FICHIER est bonne pour un nom fix. Pas de bol, le nom change mais commence toujours par DST000

Je pense que l'on peut appeler "copie", un "déplacement" puisque il est supprimé dans le dossier source dans mon cas :-)
Messages postés
6577
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 février 2020
455
Bonjour,

essaie cela:

MsgBox "C:\Users\....\Documents\" & Dir("C:\Users\....\Documents\\DST000*")'adapter le chemin du dossier

picsoin
Messages postés
152
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
8 septembre 2019
4
Merci ... Je ne comprends pas ce que la MsgBox vient faire dans mon cas? pour tester si la recherche du fichier source est positif?
f894009
Messages postés
15012
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
26 février 2020
1 223 > picsoin
Messages postés
152
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
8 septembre 2019

Re,

Dans votre code, la variable FICHIER est bonne pour un nom fix Tout a fait Thiery, c'est un exemple pour avoir un nom de fichier dans une variable.

pour tester si la recherche du fichier source est positif? Si vous nous disiez comment vous choisissez le fichier CSV, ca ferait progresser le Schmilblic
cs_Le Pivert
Messages postés
6577
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 février 2020
455
Je ne comprends pas ce que la MsgBox vient faire dans mon cas?

Si tu l'avais essayé, tu te serais aperçu qu'il te donnait le chemin complet de ton fichier.
Ensuite remplacer le MsgBox par une variable.

C'est élémentaire mon cher watson!

@+ Le Pivert
picsoin
Messages postés
152
Date d'inscription
mardi 4 août 2009
Statut
Membre
Dernière intervention
8 septembre 2019
4 > cs_Le Pivert
Messages postés
6577
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
26 février 2020

Je n'était pas chez moi quand j'ai lu le message :-)
Et j'ai lu trop rapidement.
Et je te tire mon chapeau.

La soluce est donc:
FICHIER = "I:\DossierSource\" & Dir("I:\DossierSource\\TEST000*")
Name FICHIER _
As "I:\DossierDestination\NouveauNom.csv"


Merci beaucoup