Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel copie de fichiers

copie de fichiers

3 réponses
Avatar
karoli
bonjour =E0 tous,

Avec un FoundFiles, je recupere des noms de fichier=20
pr=E9c=E9d=E9s de leur emplacement, du style "c:\rep1
\toto.xls"...
je voudrais les deplacer vers "w:\rep1\"

j'ai essay=E9=20
For i =3D 1 to .FoundFiles.count
Dim Destination As String
Destination =3D "W:\rep1\" & XXXX
FileCopy .FoundFiles(i), Destination
next i

Ma question : que mettre a la place des XXXX pour ne=20
recuperer que le nom du fichier et non le chemin complet ?

Merci d'avance
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Karoli,

La fonction "Split" n'est pas disponible sur les versions antérieurs à excel 2000.

Dim OldName As String
Dim NomFichier As String
Dim Destination As string

For i = 1 to .FoundFiles.count
OldName = .FoundFiles(i)
NomFichier = split(OldName,"")(ubound(split(OldName,""))
Destination = "w:rep1" & NomFichier
Name OldName as Destination
Next


Salutations!


"karoli" a écrit dans le message de
news:1425f01c3f9f4$1af16530$
bonjour à tous,

Avec un FoundFiles, je recupere des noms de fichier
précédés de leur emplacement, du style "c:rep1
toto.xls"...
je voudrais les deplacer vers "w:rep1"

j'ai essayé
For i = 1 to .FoundFiles.count
Dim Destination As String
Destination = "W:rep1" & XXXX
FileCopy .FoundFiles(i), Destination
next i

Ma question : que mettre a la place des XXXX pour ne
recuperer que le nom du fichier et non le chemin complet ?

Merci d'avance
Avatar
karoli
bonjour et merci
je suis sous Excel 97 :-(
mais j'ai trouve une alternative avec dir...

Merci qd meme !
Bonne journée

-----Message d'origine-----
Bonjour Karoli,

La fonction "Split" n'est pas disponible sur les versions
antérieurs à excel 2000.


Dim OldName As String
Dim NomFichier As String
Dim Destination As string

For i = 1 to .FoundFiles.count
OldName = .FoundFiles(i)
NomFichier = split(OldName,"")(ubound(split
(OldName,""))

Destination = "w:rep1" & NomFichier
Name OldName as Destination
Next


Salutations!




Avatar
Pascal Engelmajer
Salut,
.FoundFiles(i).Name
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"karoli" a écrit dans le message de
news: 1425f01c3f9f4$1af16530$
bonjour à tous,

Avec un FoundFiles, je recupere des noms de fichier
précédés de leur emplacement, du style "c:rep1
toto.xls"...
je voudrais les deplacer vers "w:rep1"

j'ai essayé
For i = 1 to .FoundFiles.count
Dim Destination As String
Destination = "W:rep1" & XXXX
FileCopy .FoundFiles(i), Destination
next i

Ma question : que mettre a la place des XXXX pour ne
recuperer que le nom du fichier et non le chemin complet ?

Merci d'avance