Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Comment à l'aide d'une macro déplacer un répertoire?

Comment à l'aide d'une macro déplacer un répertoire?

7 réponses
Avatar
fred
Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant des
fichiers.xls?
J'ai C:\MonDossier\repertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:\MonDossier\RepGénéral
Merci de votre aide
Signaler un problème avec ce contenu

7 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
isabelle
bonjour Fred,

il faut cocher la référence à Microsoft Scripting runtime dans VBE au menu, Outils, Références.

isabelle


Je ne comprends pas ...j'ai erreur de compilation dès le départ??

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub


ceci doit répondre à la question

Salutations

RGI


Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant des
fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:MonDossierRepGénéral
Merci de votre aide







Avatar
fred
Non je l'avais déjà activé...
C'est un prob de compil sur sub test()...mais je ne vois pas...
"isabelle" a écrit dans le message de news:

bonjour Fred,

il faut cocher la référence à Microsoft Scripting runtime dans VBE au
menu, Outils, Références.

isabelle


Je ne comprends pas ...j'ai erreur de compilation dès le départ??

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub


ceci doit répondre à la question

Salutations

RGI


Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant des
fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:MonDossierRepGénéral
Merci de votre aide








Avatar
RGI
Bizarre ça fonctionne sur mon poste et je viens de reprendre le code
pour voir

c'est bon

je n'ai pas comme le suggère Isabelle la référence à Microsoft
Scripting runtime de cochée

RGI



Je ne comprends pas ...j'ai erreur de compilation dès le départ??

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub


ceci doit répondre à la question

Salutations

RGI

Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant des
fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:MonDossierRepGénéral
Merci de votre aide








Avatar
fred
Impossiblme pour moi..tantpis!!!

"RGI" a écrit dans le message de
news:
Bizarre ça fonctionne sur mon poste et je viens de reprendre le code pour
voir

c'est bon

je n'ai pas comme le suggère Isabelle la référence à Microsoft Scripting
runtime de cochée

RGI



Je ne comprends pas ...j'ai erreur de compilation dès le départ??

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub


ceci doit répondre à la question

Salutations

RGI

Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant des
fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:MonDossierRepGénéral
Merci de votre aide









Avatar
FxM
Bonjour fred,

déplacer un répertoire = créer le répertoire destination + copier le(s)
fichier(s), détruire le(s) fichier(s) de l'origine puis le répertoire
d'origine s'il est vide (enfin me semble-t-il).

@+
FxM



C'est ok ça fonctionne correctement avec les fichiers...j'avais un
problème de path.
Mais le déplacement s'opère uniquement sur les fichiers mais pas sur les
répertoires...
Merci bcp tout de même!!!

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
voir ceci

http://cjoint.com/?jCsyOrngW2

RGI

Impossiblme pour moi..tantpis!!!

"RGI" <mailto: a écrit dans le message de
news: <mailto:...

Bizarre ça fonctionne sur mon poste et je viens de reprendre le code pour
voir

c'est bon

je n'ai pas comme le suggère Isabelle la référence à Microsoft Scripting
runtime de cochée

RGI




Je ne comprends pas ....j'ai erreur de compilation dès le départ??

"RGI" <mailto:
<mailto: a écrit dans le
message de news: <mailto:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub


ceci doit répondre à la question

Salutations

RGI


Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant des
fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:MonDossierRepGénéral
Merci de votre aide















Avatar
RGI
Fred regarde ton calendrier tu as un problème de date

RGI

En conclusion et avec l'aide apportée j'ai choisi 2 répertoires différents
et utiliser les différentes possibilités de copie, de suppression de
répertoire et de fichiers.

Dim FSO As New FileSystemObject
Dim LesFichiers, AutresFichiers, Origine, Destination as String
Set FSO = CreateObject("Scripting.FileSystemObject")
Origine = "C:MonDossier"
Destination = "C:Archives"
LesFichiers = Origine & "" & "*.*"
FSO.CopyFile LesFichiers, "C:Fichiers", True 'copie les fichiers du
répertoire Origine vers "C:Fichiers"
FSO.CopyFolder Origine, Destination 'Pour copier le répertoire Origine vers
Destination
FSO.DeleteFolder Origine 'Supprimer le répertoire Origine
AutresFichiers = "C:Fichiers" & "*.*"
FSO.DeleteFile AutresFichiers 'Supprimer les Fichiers du répertoire Fichiers



"FxM" a écrit dans le message de news:


Bonjour fred,

déplacer un répertoire = créer le répertoire destination + copier le(s)
fichier(s), détruire le(s) fichier(s) de l'origine puis le répertoire
d'origine s'il est vide (enfin me semble-t-il).

@+
FxM



C'est ok ça fonctionne correctement avec les fichiers...j'avais un
problème de path.
Mais le déplacement s'opère uniquement sur les fichiers mais pas sur les
répertoires...
Merci bcp tout de même!!!

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
voir ceci

http://cjoint.com/?jCsyOrngW2

RGI


Impossiblme pour moi..tantpis!!!

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...


Bizarre ça fonctionne sur mon poste et je viens de reprendre le
code pour voir

c'est bon

je n'ai pas comme le suggère Isabelle la référence à Microsoft
Scripting runtime de cochée

RGI





Je ne comprends pas ....j'ai erreur de compilation dès le départ??

"RGI"
<mailto:
<mailto: a écrit
dans le
message de news:
<mailto:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier & ""

End Sub


ceci doit répondre à la question

Salutations

RGI



Bonjour,
Comment à l'aide d'une macro déplacer un répertoire contenant
des fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général comme
C:MonDossierRepGénéral
Merci de votre aide






















Avatar
fred
Merci RGI...j'avais changé de date pour des tests avec Date (mm-yyyy)
J'ai remis!!!

"RGI" a écrit dans le message de
news:

Fred regarde ton calendrier tu as un problème de date

RGI

En conclusion et avec l'aide apportée j'ai choisi 2 répertoires
différents et utiliser les différentes possibilités de copie, de
suppression de répertoire et de fichiers.

Dim FSO As New FileSystemObject
Dim LesFichiers, AutresFichiers, Origine, Destination as String
Set FSO = CreateObject("Scripting.FileSystemObject")
Origine = "C:MonDossier"
Destination = "C:Archives"
LesFichiers = Origine & "" & "*.*"
FSO.CopyFile LesFichiers, "C:Fichiers", True 'copie les fichiers du
répertoire Origine vers "C:Fichiers"
FSO.CopyFolder Origine, Destination 'Pour copier le répertoire Origine
vers Destination
FSO.DeleteFolder Origine 'Supprimer le répertoire Origine
AutresFichiers = "C:Fichiers" & "*.*"
FSO.DeleteFile AutresFichiers 'Supprimer les Fichiers du répertoire
Fichiers



"FxM" a écrit dans le message de news:


Bonjour fred,

déplacer un répertoire = créer le répertoire destination + copier le(s)
fichier(s), détruire le(s) fichier(s) de l'origine puis le répertoire
d'origine s'il est vide (enfin me semble-t-il).

@+
FxM



C'est ok ça fonctionne correctement avec les fichiers...j'avais un
problème de path.
Mais le déplacement s'opère uniquement sur les fichiers mais pas sur
les répertoires...
Merci bcp tout de même!!!

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...
voir ceci

http://cjoint.com/?jCsyOrngW2

RGI


Impossiblme pour moi..tantpis!!!

"RGI"
<mailto: a écrit dans le
message de news:
<mailto:...


Bizarre ça fonctionne sur mon poste et je viens de reprendre le
code pour voir

c'est bon

je n'ai pas comme le suggère Isabelle la référence à Microsoft
Scripting runtime de cochée

RGI





Je ne comprends pas ....j'ai erreur de compilation dès le
départ??

"RGI"
<mailto:
<mailto: a écrit
dans le
message de news:
<mailto:
<mailto:...
Bonjour

Sub test()
DéplacerFichiers "C:dossier_ajeter", "C:dossier_agarder"
End Sub

Sub DéplacerFichiers(Dequel_dossier$, A_queldossier$)
Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

fso.MoveFile Dequel_dossier & "*.xls", A_queldossier &
""

End Sub


ceci doit répondre à la question

Salutations

RGI



Bonjour,
Comment à l'aide d'une macro déplacer un répertoire
contenant des fichiers.xls?
J'ai C:MonDossierrepertoire1
Comment déplacer repertoire1 vers un répertoire général
comme
C:MonDossierRepGénéral
Merci de votre aide