Sauvegarde avec un chemin variable selon une cellule Résolu

Question

Bonjour,

J'ai un petit problème au niveau d'une sauvegarde que j'aimerai bien effectuer sur excel. J'aimerai bien que le fichier prenne le nom de la cellule A1 et qu'il se place dans un fichier ayant comme nom les 3 premiers caractères du contenu de la cellule A1.
Exemple: A1= "J07689"
Nom du fichier: J07689.xls
Sauvegardé dans le fichier: J07
Le fichier se renomme bien mais je n'arrive pas à intégrer une variable dans l'adresse du chemin d'accès  pour qu'il puisse aller dans le bon dossier. 
J'ai cette arborescence là :

Disque C
Documents 
J07
L39
C21
                                   
Mon code pour l'instant: 

Sub Sauvegarde ()

Dim fichier_correspondant As Variant

fichier_correspondant = Left (Range("A1"),3)

ActiveWorkbook.SaveAs Filename:= "C:\Documents\"fichier_correspondant"\" & Range("A1") & ".xls"

End sub

En fin de compte il faudrait rendre le chemin flexible et variable. Pensez-vous que c'est possible?

Je remercie d'avance celui ou celle qui arriverait à m'aider à trouver la solution.

Morgan

ThauTheme · Answer

Bonjour Morgan, bonjour le forum,

Dans ton explication, il semblerait que tu te sois mélangé les pinceaux entre Fichier et Dossier. Ça la rend difficile à comprendre...
Ton code a juste quelques petites erreurs, tu a laissé la variable dans les guillemets et il manque des &. Je verrais plutôt :
 
Sub Sauvegarde ()
Dim DC As string '(DC = Dossier Correspondant)
DC = "C:\Documents\" & Left(Range("A1").Value, 3) & "\"
ActiveWorkbook.SaveAs Filename:= DC & Range("A1").Value & ".xls"
End sub

f894009 · Answer

Bonjour,

Sub Sauvegarde()

Dim fichier_correspondant As Variant

fichier_correspondant = Left(Range("A1"), 3)

ActiveWorkbook.SaveAs Filename:="C:\Documents\" & fichier_correspondant & "\" & Range("A1") & ".xls"

End Sub

Sauvegarde avec un chemin variable selon une cellule

2 réponses

Votre réponse

Discussions similaires