Pour copier des donners d'un point a un autre
Ozlemagicien
Messages postés
2
Date d'inscription
jeudi 3 octobre 2002
Statut
Membre
Dernière intervention
3 janvier 2003
-
31 déc. 2002 à 15:33
Ozlemagicien Messages postés 2 Date d'inscription jeudi 3 octobre 2002 Statut Membre Dernière intervention 3 janvier 2003 - 3 janv. 2003 à 20:10
Ozlemagicien Messages postés 2 Date d'inscription jeudi 3 octobre 2002 Statut Membre Dernière intervention 3 janvier 2003 - 3 janv. 2003 à 20:10
A voir également:
- Pour copier des donners d'un point a un autre
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
- L'exception point d'arret un point d'arret a été atteint - Forum Delphi / Pascal
- Vba copier une feuille dans un autre classeur sans ouvrir - Forum Visual Basic
- Copier une feuille excel en conservant le format du tableau - Forum Visual Basic
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
3 réponses
cs_FPatrick
Messages postés
122
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
8 août 2014
1
31 déc. 2002 à 16:17
31 déc. 2002 à 16:17
Le mieux peut-être est la méthode manuel
Dim Nom_Fichier as string
Nom_Fichier = Dir("A:\*.*")
Do while Nom_Fichier <> "" Then
Filecopy "a:" & Nom_Fichier , "c:\temp"
Nom_Fichier = Dir
Loop
A toi de voir pour les répertoires et sous répertoires en faisant des fonctions qui s'appellent elles-mêmes pour toute une arborescence
En espérant avoir été claire , bonne fête de fin d'année
Dim Nom_Fichier as string
Nom_Fichier = Dir("A:\*.*")
Do while Nom_Fichier <> "" Then
Filecopy "a:" & Nom_Fichier , "c:\temp"
Nom_Fichier = Dir
Loop
A toi de voir pour les répertoires et sous répertoires en faisant des fonctions qui s'appellent elles-mêmes pour toute une arborescence
En espérant avoir été claire , bonne fête de fin d'année
cs_wape
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
12
31 déc. 2002 à 16:34
31 déc. 2002 à 16:34
On peut aussi utiliser le "FileSystemObject" :
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "A:\*.*", "C:\Temp"
Slts et bonne année 2003
wape
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "A:\*.*", "C:\Temp"
Slts et bonne année 2003
wape
Ozlemagicien
Messages postés
2
Date d'inscription
jeudi 3 octobre 2002
Statut
Membre
Dernière intervention
3 janvier 2003
3 janv. 2003 à 20:10
3 janv. 2003 à 20:10
Merci les gars de m'avoir repondu bonne année a tous et merci encore!!!!
