Bonjour,
je reviens encore vers vous car j'ai un problème que j'arrive pas à régler.

En fait je doit mettre à jour mes fichiers qui sont dans XLSTART, ces fichiers servent à faire fonctionner les macros qui sont dans la barre d'outils perso. Voici la macro
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub essai()
 
Dim fso 'As FileSystemObject
Dim chemin1 As String
Dim chemin2 As String
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
chemin1 = "chemin du dossier où je prend les fichiers\"
chemin2 = "C:\Program Files\Microsoft Office\OFFICE12\XLSTART\" 'chemin pour XLSTART
fso.CopyFile chemin1 & "macros.xlsm", chemin2 & "macros.xlsm", True 'copier le fichier "macros" vers xlstart
 
Set fso = Nothing
MsgBox "fichier bien mis à jour"
End Sub
Mais j'ai un message d'erreur "Erreur d'execution '70': Permission refusée
Je ne sais pas pourquoi!
Pouvez vous m'aider svp?
Merci d'avance