Bonjour !

Je débute dans le langage VBA-E. Dans la cadre de mon travail j'ai développé le code suivant pour permettre l'enregistrement automatique d'un classeur dans un dossier C:\CPR\SCORE.

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
16
17
18
Sub SAUVEGARDE()
' Affichage d'une feuille de saisie
Sheets("Saisie complémentaire").Visible = True
Sheets("Saisie complémentaire").Select
' Affectation de la valeur contenue dans B3 à la variable Radical
Dim Radical As Variant
Range("B3").Select
Radical = ActiveCell.FormulaR1C1
' Suppression des alertes avant l'enregistrement
Application.DisplayAlerts = False
' Enregistrement du fichier sous le non de la variable dans C:\CPR\SCORE
ChDir "C:\CPR\SCORE"
      ActiveWorkbook.SaveAs Filename:=Radical, FileFormat:= _
          xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
' Activation des alertes après enregistrement
Application.DisplayAlerts = True
End Sub

Le programme semble fonctionner correctement sur certains postes de travail MAIS sur d'autres il enregistre dans un endroit différent.
Comment puis-je m'assurer que la sauvegarde se fera à l'endroit voulu ?

Je travaillle sous Excel 2000 (9.0 3821 SR-1)