Sujet Précédent Sujet Suivant

VBA-Excel Mauvais fonctionnement d'une macro

Fermé
mbellemax Messages postés 1 Date d'inscription mercredi 6 juin 2007 Statut Membre Dernière intervention 6 juin 2007 - 6 juin 2007 à 17:05
sncf Messages postés 121 Date d'inscription lundi 7 juillet 2003 Statut Membre Dernière intervention 11 septembre 2011 - 6 juin 2007 à 21:12
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)
A voir également:

1 réponse

Réponse 1 / 1
sncf Messages postés 121 Date d'inscription lundi 7 juillet 2003 Statut Membre Dernière intervention 11 septembre 2011 14
6 juin 2007 à 21:12
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
0