VBA-Excel Mauvais fonctionnement d'une macro

Question

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

sncf · Answer

Bonsoir

Es tu sur que le répertoire existe sur les autres postes
Comme tu as désactivé les alertes, mùeme s'il ne peut trouver e répertoire C:\CPR\SCORE, l'absence de messages d'alertes ne te permet pas de la voir 
Donc il enregistre sur le répertoire par défaut


Essaie 
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

' Enregistrement du fichier sous le non de la variable dans C:\CPR\SCORE
ChDir "C:\CPR\SCORE"
' Suppression des alertes avant l'enregistrement
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=Radical, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
' Activation des alertes après enregistrement
Application.DisplayAlerts = True
End Sub

VBA-Excel Mauvais fonctionnement d'une macro

1 réponse

Discussions similaires

Newsletters