Bonjour à tous,

Je cherche à envoyer mon dossier personnal à plusieurs utilisateurs et que lorsqu'ils l'ouvre, celui ci se place automatiquement dans leur dossier.

Le problème est que mon code ne fonctionne pas:


edit:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Workbook_Open()
ActiveWorkbook.SaveAs Filename:= ChDir Environ("APPDATA") & "\Microsoft\Excel\XLSTART", _
        FileFormat:=xlExcel12, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges
End Sub
Avez-vous une idée?

Merci de votre aide!
Alain