Discussion :

[Invité]

Bonjour à tous,

Je souhaiterais savoir s'il est possible de modifier les Chemins de recherche et d'emplacement des fichiers dans les Options d'AutoCAD via un code VBA?
Je travail dans un bureau d'études avec plusieurs utilisateurs d'AutoCAD et cela me permettra de gagner du temps en lançant le code plutôt que de passer sur chaque poste pour modifier/ajouter chaque liens vers notre serveur d'entreprise.

Je fait actuellement des tests sur mon poste pour pouvoir modifier l'emplacement de la sauvegarde automatique des fichiers (Voir image Enregistrement Auto en PJ), j'ai écrit un bout de code qui ne fonctionne pas:

Public Sub test()

'Définition des variables
Dim Chemin As String

'Définition de la valeur du chemin
Chemin = "C:\Users\Public\Desktop\1\2\3"

'Modification du chemin
Set ThisDrawing.Application.Preferences.Files.AutoSavePath = Chemin

End Sub

Lors de l'exécution il y a une erreur sur la dernière ligne (voir image Erreur en PJ). A priori, selon l'aide dans le message d'erreur, il faut que j'utilise des "procédures de propriétés" mais je ne sais pas comment cela fonctionne.

Merci d'avance pour votre aide.

[sabot'age]

Bonjour,

Je ne sais pas si le fil est toujours d'actualité, mais pour les curieux/futurs lecteurs :
Dans votre exemple, le chemin fourni est invalide :
Chemin = "C:\Users\Public\Desktop\1\2\3"
Il manque un antislash à la fin :

Code :

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

Chemin = "C:\Users\Public\Desktop\1\2\3\"

Ensuite personnellement sur mes tests j'ai eu des surprises, s'il y a des espaces dans le chemin d'accès j'avais une erreur également. J'ai du les remplacer par Space(1) pour corriger le problème.
Càd

Code :

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

Chemin = "C:\Users\Public User\Desktop\1\2\3\"

lève une erreur car "public user" est composé d'un espace. Mais

Code :

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

Chemin = "C:\Users\Public" & Space(1) & "User\Desktop\1\2\3\"

Ne lève pas d'erreur.

En espérant que cela puisse aider.

Bonne journée.