VBA-Excel Mauvais fonctionnement d'une macro
mbellemax
Messages postés
1
Statut
Membre
-
sncf Messages postés 122 Statut Membre -
sncf Messages postés 122 Statut Membre -
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)
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)
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
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
EssaieSub 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
