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 Déplacer des classeurs

Déplacer des classeurs

3 réponses
Avatar
garnote
Bonjour, Bonjour,

Sur mon ordi, j'ai deux disques durs :
Un disque local C et un deuxième partitionné en D, E et F.
Comment faire en VBA pour tranférer dans le dossier Maths
du disque local C tous le fichiers .xls de la partition F ?
Chemin complet du dossier Maths :
C / Documents and Settings / Verreault / Mes documents / Maths.

Merci, Merci
Serge
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
Daniel
Bonjour.
Teste avc prudence :

Sub test()
Dim Fich As String
Const Source = "F:Maths '*** à modifier"
Const Cible = "C / Documents and Settings / Verreault / Mes documents /
Maths"
Fich = Dir(Source & "*.xls")
Do While Fich <> ""
Name Source & Fich As Cible & Fich
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"garnote" a écrit dans le message de news:

Bonjour, Bonjour,

Sur mon ordi, j'ai deux disques durs :
Un disque local C et un deuxième partitionné en D, E et F.
Comment faire en VBA pour tranférer dans le dossier Maths
du disque local C tous le fichiers .xls de la partition F ?
Chemin complet du dossier Maths :
C / Documents and Settings / Verreault / Mes documents / Maths.

Merci, Merci
Serge





Avatar
Daniel
Oups.
Erreur de copier coller :
Remplace la ligne Const Cible ... par :
Const Cible = "C:Documents and SettingsVerreaultMes documentsMaths"
Daniel
"Daniel" a écrit dans le message de news:

Bonjour.
Teste avc prudence :

Sub test()
Dim Fich As String
Const Source = "F:Maths '*** à modifier"
Const Cible = "C / Documents and Settings / Verreault / Mes documents /
Maths"
Fich = Dir(Source & "*.xls")
Do While Fich <> ""
Name Source & Fich As Cible & Fich
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"garnote" a écrit dans le message de news:

Bonjour, Bonjour,

Sur mon ordi, j'ai deux disques durs :
Un disque local C et un deuxième partitionné en D, E et F.
Comment faire en VBA pour tranférer dans le dossier Maths
du disque local C tous le fichiers .xls de la partition F ?
Chemin complet du dossier Maths :
C / Documents and Settings / Verreault / Mes documents / Maths.

Merci, Merci
Serge









Avatar
garnote
Bonjour Daniel,

Le F contient plusieurs dossiers.
Puis-je me contenter d'écrire :
Const Source = "F"
ou faut-il mentionner le nom de chaque dossier du F ?

Et à bien y penser, je pourrais peut-être me contenter de
déplacer les icônes des dossiers à partir de l'explorateur Windows ?

Serge

"Daniel" a écrit dans le message de news:
Bonjour.
Teste avc prudence :

Sub test()
Dim Fich As String
Const Source = "F:Maths '*** à modifier"
Const Cible = "C / Documents and Settings / Verreault / Mes documents / Maths"
Fich = Dir(Source & "*.xls")
Do While Fich <> ""
Name Source & Fich As Cible & Fich
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"garnote" a écrit dans le message de news:
Bonjour, Bonjour,

Sur mon ordi, j'ai deux disques durs :
Un disque local C et un deuxième partitionné en D, E et F.
Comment faire en VBA pour tranférer dans le dossier Maths
du disque local C tous le fichiers .xls de la partition F ?
Chemin complet du dossier Maths :
C / Documents and Settings / Verreault / Mes documents / Maths.

Merci, Merci
Serge