Discussion :

[olivier-tig]

Bonjour
Je veux copier un dossier a partir de usb "J" sur le disque dur. Le code fonctionne bien sur XP mais le probleme est que sur Vista il y a une protection qui interdit toute action sans autorisation de l'administrateur. VBA me renvoie donc ERREUR 70 Permission Refusée. Il y a t il un moyen de contourné cette protection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CopierJ()
Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    Application.DisplayAlerts = False
    fs.CopyFolder "J:\ITM", "C:\Program Files\"    'ou  "C:\Windows\"  pour Vista
    Application.DisplayAlerts = True
End Sub

[jfontaine]

Bonjour,

As tu essayé de modifier les paramètres de sécurité du repertoire c:\windows
en donnant les droits contrôle total a Utilisateur

[Invité]

Bonjour

Autre chose, es-tu sûr que c'est la même lettre qui est prise pour le port USB entre l'ordinateur sous XP et celui sous VISTA ?

Philippe

[olivier-tig]

En ce qui concerne le chemin il n'y a pas de soucis...
Et modifier les paramètres de sécurité du repertoire c:\windows
en donnant les droits contrôle total a Utilisateur est justement ce qu'il faudrai arrivé a faire par macro . A moins qu'il y est une autre posssibilité

[jfontaine]

Et modifier les paramètres de sécurité du repertoire c:\windows
en donnant les droits contrôle total a Utilisateur est justement ce qu'il faudrai arrivé a faire par macro

Si tu y arrrives avec une simple macro, il va falloir se pencher sérieusement sur la sécurité du système informatique.

Personnellement, je copierais le répertoire sur une partie du disque qui est en accès total.