Déplacement d'un fichier commencant par ...

Résolu/Fermé

picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 - 27 nov. 2015 à 21:33
picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 - 28 nov. 2015 à 18:45

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?

A voir également:

Déplacement d'un fichier commencant par ...
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 28/11/2015 à 08:37

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

Réponse 2 / 3

picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 5
Modifié par picsoin le 28/11/2015 à 11:30

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

Réponse 3 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2015 à 11:57

Bonjour,

essaie cela:

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

picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 5
28 nov. 2015 à 14:06

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > picsoin Messages postés 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023
28 nov. 2015 à 16:02

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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2015 à 17:57

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 158 Date d'inscription mardi 4 août 2009 Statut Membre Dernière intervention 24 juin 2023 5 > cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024
Modifié par picsoin le 28/11/2015 à 19:28

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

Discussions similaires

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters