OVH Cloud OVH Cloud

deplacement fichier

2 réponses
Avatar
christian
bonjour,

Je voudrais créer une macro en vba ou en script VB ou autre qui me
permettrait de déplacer en automatique les fichiers d'un répertoire vers un
autre.

Je m'explique.Je posséde deux repertoire: rep1 et rep2 dans rep1 on m'envoie
des fichiers via le réseau que je dois transferer dans rep2 de façon
systématique(dés qu'il y a un fichier dans rep1).

Je pensais pour ce faire créer une macro sur excel qui se lancerait a
l'ouverture du classeur executerait son code et se fermerait automatiquement
mais je ne connais pas d'avance le nom des fichiers ni leur nombre et je
dois dire que là je bloque.

Quelqu'un aurait_il une idée.


Merci d'avance.

2 réponses

Avatar
docm
Bonjour christian.

Pour déplacer les fichiers :

Sub tt()

rep1 = "c:repOrigine" ' Définit le chemin d'accès origine

rep2 = "c:repDestination" ' Définit le chemin d'accès destination.
' Extrait la première entrée.
fichier = Dir(rep1)
Do While fichier <> "" ' Commence la boucle.
Name rep1 & fichier As rep2 & fichier 'Déplace le fichier vers rep2
fichier = Dir ' Extrait l'entrée suivante.
Loop

End Sub

Saluts.

"christian" wrote in message
news:41659341$0$22603$
bonjour,

Je voudrais créer une macro en vba ou en script VB ou autre qui me
permettrait de déplacer en automatique les fichiers d'un répertoire vers
un

autre.

Je m'explique.Je posséde deux repertoire: rep1 et rep2 dans rep1 on
m'envoie

des fichiers via le réseau que je dois transferer dans rep2 de façon
systématique(dés qu'il y a un fichier dans rep1).

Je pensais pour ce faire créer une macro sur excel qui se lancerait a
l'ouverture du classeur executerait son code et se fermerait
automatiquement

mais je ne connais pas d'avance le nom des fichiers ni leur nombre et je
dois dire que là je bloque.

Quelqu'un aurait_il une idée.


Merci d'avance.




Avatar
Philippe.R
Bonsoir Christian,
Une adresse à visiter,
http://frederic.sigonneau.free.fr/
qui traite du sujet avec ceci par exemple :
http://frederic.sigonneau.free.fr/code/Fichiers/CopieTousLesFichiers.txt
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"christian" a écrit dans le message de news: 41659341$0$22603$
bonjour,

Je voudrais créer une macro en vba ou en script VB ou autre qui me
permettrait de déplacer en automatique les fichiers d'un répertoire vers un
autre.

Je m'explique.Je posséde deux repertoire: rep1 et rep2 dans rep1 on m'envoie
des fichiers via le réseau que je dois transferer dans rep2 de façon
systématique(dés qu'il y a un fichier dans rep1).

Je pensais pour ce faire créer une macro sur excel qui se lancerait a
l'ouverture du classeur executerait son code et se fermerait automatiquement
mais je ne connais pas d'avance le nom des fichiers ni leur nombre et je
dois dire que là je bloque.

Quelqu'un aurait_il une idée.


Merci d'avance.