Autres Copie de répertoire (mais avec son icone)

Michou9 · Lundi à 08:00

Bonjour à tous
J'utilise une macro pour copier des dossiers
Mais bizarrement lors de cette copie je perds son icone
Je ne comprends pas d'où cela peut venir
Et je viens chercher de l'aide sur le Forum
J'utilise Excel 2007

Sub CopieDossier()
Dim fs As Object, copie As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Set copie = fs.GetFolder _
("C:\M\MonDossier")
copie.Copy "F:\Repertoire\A\1\"
End Sub

Michou9 · Aujourd'hui à 14:55

dysorthographie à dit:
bonjour,
et avec robocopy ?

VB:

Sub CopieDossier() Dim cmd As String cmd = "robocopy ""C:\M\MonDossier"" ""F:\Repertoire\A\1\MonDossier"" /E /COPYALL /R:0 /W:0" Shell cmd, vbHide End Sub

Bonjour job75, dysorthographie, re patricktoulon

Job785
Bien sûr, si il ne s’agissait juste de copier un répertoire avec ses sous-répertoires et ses icones
Je n’aurai pas demandé tout cela

Ce code est destiné à être intégré dans un autre code que j’ai déjà réalisé sur Excel
Et qui va permettre de mettre des données dans des dossiers
Pour pouvoir faire cela il faut que les dossiers soient réalisés pendant l’exécution de mon code

dysorthographie
Je viens de faire plusieurs essais,
Je n’ai pas d’erreur, mais il ne se copie rien du tout ?

patricktoulon · Aujourd'hui à 15:04

A BEN UNE FOIS copié le dossier est system don implcitement en lecture seule tu peux pas le faire 50 fois

Michou9 · Aujourd'hui à 15:13

Re Patrick
Je viens d'essayer ce code
et j'arrive en ligne de commande, mais aucune copie

Michou9 · Aujourd'hui à 15:17

A BEN UNE FOIS copié le dossier est system don implcitement en lecture seule tu peux pas le faire 50 fois

Je n'ai pas compris ??

patricktoulon · Aujourd'hui à 15:34

re

VB:

Sub test()
    Dim Source As String, NewName As String, Destination As String, copie As Boolean
    Source = "C:\Users\patricktoulon\Desktop\dossiertesticon"
    NewName = "toto"
    Destination = "F:\Repertoire\A\1\" & NewName
    'copie = CopyFolderAddAttrSystem2(Destination, Source)
    copie = CopyFolderAddAttrSystem2(Destination, Source, True) 'avec pause sur la fenêtre cmd pour lire le log
    MsgBox copie
End Sub

Function CopyFolderAddAttrSystem2(ByVal Destination As String, ByVal Source As String, Optional ByVal Log As Boolean = False) As Boolean
    Dim cmd$, Wshell As Object, returnBool
    Set Wshell = CreateObject("WScript.Shell")
    ' mkdir sans test (puisque n'écrase pas )
    Wshell.Run "cmd /c mkdir """ & Destination & """", 0, True
    'commande  robocopy [DAT]
    '   D = Data :le contenu du fichier
    '   A  :Attributes les  attributs (lecture seule, caché, système, archive…)
    '   T : Timestamps les dates (création, modification, accès)
    cmd = "cmd /c robocopy """ & Source & """ """ & Destination & """ /E /COPY:DAT /R:0 /W:0" & IIf(Log, " & pause", "")
    returnBool = Wshell.Run(cmd, 1, True)
    CopyFolderAddAttrSystem2 = (returnBool < 8) ' return de robocopy
End Function

job75 · Aujourd'hui à 15:37

Michou9 à dit:
Job785
Bien sûr, si il ne s’agissait juste de copier un répertoire avec ses sous-répertoires et ses icones
Je n’aurai pas demandé tout cela

Ce code est destiné à être intégré dans un autre code que j’ai déjà réalisé sur Excel
Et qui va permettre de mettre des données dans des dossiers
Pour pouvoir faire cela il faut que les dossiers soient réalisés pendant l’exécution de mon code

Qu'est-ce qui vous empêche de créer les dossiers par copier-coller manuel et de les traiter ensuite par VBA ?

TooFatBoy · Aujourd'hui à 15:57

job75 à dit:
En effet je constate que le copier-coller manuel conserve les icônes.

C'est pour ça que je demandais s'il avait essayé de faire la copie par une commande DOS.
Ca devrait probablement garder toutes les icônes, quel que soit le niveau dans l'arborescence.

Michou9 · Aujourd'hui à 16:11

job75 TooFatBoy

Il y a une première action qui traite les données sur Excel donc
Une 2ème action qui enregistre ce travail dans des dossiers
Une 3ème action toujours sur excel

La copie des dossiers se fait donc dans une étape intermédiaire
Le plus logique en gain de temps et en simplicité c’est de tout faire sur Excel

TooFatBoy · Aujourd'hui à 16:16

Michou9 à dit:
Le plus logique en gain de temps et en simplicité c’est de tout faire sur Excel

D'où ma question en #15 : As-tu essayé de faire la copie par "DOS" ?, bien sûr sous-entendu commande "DOS" envoyée par une macro, avec un truc genre Shell, etc.

job75 · Aujourd'hui à 16:19

Michou9 à dit:
Le plus logique en gain de temps et en simplicité c’est de tout faire sur Excel

Vous croyez ? Copier-coller manuellement 1000 dossiers est très simple et prend très peu de temps.

Michou9 · Aujourd'hui à 16:44

Bien sur que faire une copie sous dos c'est extrêmement facile et rapide
Mais c'est plus rapide de faire tout sur Excel

Se mettre sur Excel
Passer sur Windows
Revenir sur Excel
Pour l'avoir fait, c'est bien plus long, illogique et source d'erreur

patricktoulon · Aujourd'hui à 16:45

TooFatBoy à dit:
D'où ma question en #15 : As-tu essayé de faire la copie par "DOS" ?, bien sûr sous-entendu commande "DOS" envoyée par une macro, avec un truc genre Shell, etc.

proposition faite et operationnelle sur 2013 et 2016 avec robocopy DAT

TooFatBoy · Aujourd'hui à 16:51

Michou9 à dit:
Bien sur que faire une copie sous dos c'est extrêmement facile et rapide
Mais c'est plus rapide de faire tout sur Excel

Se mettre sur Excel
Passer sur Windows
Revenir sur Excel
Pour l'avoir fait, c'est bien plus long, illogique et source d'erreur

Toi parler französich ? Toi comprendre moi ?

LOL 🤡

job75 · Aujourd'hui à 17:05

Michou9 à dit:
Bien sur que faire une copie sous dos c'est extrêmement facile et rapide

Bah encore plus facile et rapide manuellement 😍

TooFatBoy · Aujourd'hui à 18:48

job75 à dit:
Bah encore plus facile et rapide manuellement 😍

Bonjour Job, quand tu dis "manuellement", tu veux dire avec la souris ?

Autres Copie de répertoire (mais avec son icone)

Michou9

XLDnaute Occasionnel

Michou9

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

Michou9

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Michou9

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires

Autres Copie de répertoire (mais avec son icone)

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency