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)
Partager