VBA-Excel Mauvais fonctionnement d'une macro
mbellemax
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
sncf Messages postés 121 Date d'inscription Statut Membre Dernière intervention -
sncf Messages postés 121 Date d'inscription Statut Membre Dernière intervention -
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)
A voir également:
- VBA-Excel Mauvais fonctionnement d'une macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Fonction si et excel - Guide
- Word et excel gratuit - Guide
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
Essaie
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