macro pour déplacer l'ensemble des répertoires d'un Dossier avec leurs fichiers?
2 réponses
fred
Bonjour,
Comment faire à l'aide d'une macro pour déplacer l'ensemble des répertoires
d'un Dossier avec leurs fichiers.
J'ai C:\MonDossier qui comporte plusieurs répertoires Archives1, Archives2
etc...qui possédent des fichiers.xls
J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers
C:\MonDossier\Archives
Merci
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
fred
Je donne un plus de précisions J'utilise cette macro pour lister le contenu d'un Dossier sur une feuille. Dim a As Integer Dim x As Integer a = 0 x = 1 MyPath = "C:MonDossier" MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" ' Ignore le répertoire courant et le répertoire contenant le répertoire courant If MyName <> "." And MyName <> ".." Then ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire. If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then ReDim Preserve Liste(a) Liste(a) = MyName Range("A" & x).Value = MyName x = x + 1 End If ' End If MyName = Dir ' Extrait l'entrée suivante Loop
Dans MonDossier il existe des répertoires Archives20_09_2006,Archives21_09_2006,..etc... J'aimerais en fait que lorsque Archives30_09_2006...(Archives fin de mois existe)..que l'ensemble des répertoire Archives du mois soit déplacer vers un répertoire ArchivesSeptembre. Merci
"fred" a écrit dans le message de news: 45191403$0$5210$
Bonjour, Comment faire à l'aide d'une macro pour déplacer l'ensemble des répertoires d'un Dossier avec leurs fichiers. J'ai C:MonDossier qui comporte plusieurs répertoires Archives1, Archives2 etc...qui possédent des fichiers.xls J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers C:MonDossierArchives Merci
Je donne un plus de précisions
J'utilise cette macro pour lister le contenu d'un Dossier sur une feuille.
Dim a As Integer
Dim x As Integer
a = 0
x = 1
MyPath = "C:MonDossier"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
' Ignore le répertoire courant et le répertoire contenant le
répertoire courant
If MyName <> "." And MyName <> ".." Then
' Utilise une comparaison au niveau du bit pour vérifier que
MyName est un répertoire.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
ReDim Preserve Liste(a)
Liste(a) = MyName
Range("A" & x).Value = MyName
x = x + 1
End If '
End If
MyName = Dir ' Extrait l'entrée suivante
Loop
Dans MonDossier il existe des répertoires
Archives20_09_2006,Archives21_09_2006,..etc...
J'aimerais en fait que lorsque Archives30_09_2006...(Archives fin de mois
existe)..que l'ensemble des répertoire Archives du mois soit déplacer vers
un répertoire ArchivesSeptembre.
Merci
"fred" <fredgarlon@free.fr> a écrit dans le message de news:
45191403$0$5210$626a54ce@news.free.fr...
Bonjour,
Comment faire à l'aide d'une macro pour déplacer l'ensemble des
répertoires d'un Dossier avec leurs fichiers.
J'ai C:MonDossier qui comporte plusieurs répertoires Archives1, Archives2
etc...qui possédent des fichiers.xls
J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers
C:MonDossierArchives
Merci
Je donne un plus de précisions J'utilise cette macro pour lister le contenu d'un Dossier sur une feuille. Dim a As Integer Dim x As Integer a = 0 x = 1 MyPath = "C:MonDossier" MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" ' Ignore le répertoire courant et le répertoire contenant le répertoire courant If MyName <> "." And MyName <> ".." Then ' Utilise une comparaison au niveau du bit pour vérifier que MyName est un répertoire. If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then ReDim Preserve Liste(a) Liste(a) = MyName Range("A" & x).Value = MyName x = x + 1 End If ' End If MyName = Dir ' Extrait l'entrée suivante Loop
Dans MonDossier il existe des répertoires Archives20_09_2006,Archives21_09_2006,..etc... J'aimerais en fait que lorsque Archives30_09_2006...(Archives fin de mois existe)..que l'ensemble des répertoire Archives du mois soit déplacer vers un répertoire ArchivesSeptembre. Merci
"fred" a écrit dans le message de news: 45191403$0$5210$
Bonjour, Comment faire à l'aide d'une macro pour déplacer l'ensemble des répertoires d'un Dossier avec leurs fichiers. J'ai C:MonDossier qui comporte plusieurs répertoires Archives1, Archives2 etc...qui possédent des fichiers.xls J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers C:MonDossierArchives Merci
Pierre Fauconnier
Bonjour
En utilisant le FileSystemObject (cocher la référence à Microsoft Scripting runtime) et en utilisant ceci:
Sub DeplacerDossier() Dim fso As New Scripting.FileSystemObject Dim Dossier As Scripting.Folder Dim Source As String Dim Cible As String
Source = "c:Archives Source" Cible = "c:donnéesArchives" Set Dossier = fso.GetFolder(Source) Dossier.Copy Cible fso.DeleteFolder Source, True Set Dossier = Nothing Set fso = Nothing End Sub
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"fred" a écrit dans le message de news: 45191403$0$5210$
Bonjour, Comment faire à l'aide d'une macro pour déplacer l'ensemble des répertoires d'un Dossier avec leurs fichiers. J'ai C:MonDossier qui comporte plusieurs répertoires Archives1, Archives2 etc...qui possédent des fichiers.xls J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers C:MonDossierArchives Merci
Bonjour
En utilisant le FileSystemObject (cocher la référence à Microsoft Scripting
runtime) et en utilisant ceci:
Sub DeplacerDossier()
Dim fso As New Scripting.FileSystemObject
Dim Dossier As Scripting.Folder
Dim Source As String
Dim Cible As String
Source = "c:Archives Source"
Cible = "c:donnéesArchives"
Set Dossier = fso.GetFolder(Source)
Dossier.Copy Cible
fso.DeleteFolder Source, True
Set Dossier = Nothing
Set fso = Nothing
End Sub
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam) (Skype:
pierre_fauconnier)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"fred" <fredgarlon@free.fr> a écrit dans le message de news:
45191403$0$5210$626a54ce@news.free.fr...
Bonjour,
Comment faire à l'aide d'une macro pour déplacer l'ensemble des
répertoires d'un Dossier avec leurs fichiers.
J'ai C:MonDossier qui comporte plusieurs répertoires Archives1, Archives2
etc...qui possédent des fichiers.xls
J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers
C:MonDossierArchives
Merci
En utilisant le FileSystemObject (cocher la référence à Microsoft Scripting runtime) et en utilisant ceci:
Sub DeplacerDossier() Dim fso As New Scripting.FileSystemObject Dim Dossier As Scripting.Folder Dim Source As String Dim Cible As String
Source = "c:Archives Source" Cible = "c:donnéesArchives" Set Dossier = fso.GetFolder(Source) Dossier.Copy Cible fso.DeleteFolder Source, True Set Dossier = Nothing Set fso = Nothing End Sub
Ok?
-- Pierre Fauconnier () (Skype: pierre_fauconnier) "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"fred" a écrit dans le message de news: 45191403$0$5210$
Bonjour, Comment faire à l'aide d'une macro pour déplacer l'ensemble des répertoires d'un Dossier avec leurs fichiers. J'ai C:MonDossier qui comporte plusieurs répertoires Archives1, Archives2 etc...qui possédent des fichiers.xls J'aimerais déplacer ces répertoires Archives1, Archives2 etc...vers C:MonDossierArchives Merci
