Discussion :

[mbellemax]

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)

[tonton fred]

Bonjour,
il me semble avoir lu dans l'aide (pas excel la ou je suis) que chdir changeait uniquement le repertoire mais pas le disque par defaut. Peut etre que ca vient de la.

Essaye peut etre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim Chemin as string
'
'code...
'
'
 
Chemin = "C:\CPR\SCORE\" & Radical & ".xls"
      ActiveWorkbook.SaveAs Filename:=Chemin, FileFormat:= _
          xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

[mbellemax]

Bonjour !

Merci pour la réponse.
J'ai essayé mais cela ne marche toujours pas. L'enregistrement se fait sur D:\

Mon objectif est de sauvegarder le classeur (qui en lecture seule) dans C:\CPR\SCORE avec pour nom de classeur la valeur enregistrée dans la variable "Radical".

Je reste dans l'attente d'une solution.

[wilfried_42]

bonjour à tous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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

Je ne comprends pas tu rends visible une feuille que tu ne masque pas à la fin

Il n'est pa utile de la rendre visible et de la selectionnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim radical as string
radical = sheets("Saisie complémentaire").range("B3").value

ces deux ligne devraient remplacer les 6 lignes plus haut

ensuite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.SaveAs Filename:="C:\tonchemin\" & Radical & ".xls"

bonne soirée

[mbellemax]

A Tonton Fred,
Ta proposition marche contrairement à ce que j'ai d'abord précédemment indiqué. J'ai fait une erreur en modifant le code sur le Filename.
Toutes mes excuses et merci pour ta contribution.

Wilfried, merci à toi de m'avoir fait gagner des lignes de code.

Cordialement,