Enregistrer un fichier sous un nom différentRésolu

Question

Alors voil&#224; je suis une programeuse en herbe et j'ai un probl&#232;me ! Je fait appel a votre grande connaissance &#224; en voir par le nombre de questions pos&#233;es ds ce forum.
J'ai un classeur Excel qui doit porter le nom de la cellule par exemple A1 = toto 
Je sais aller le mettre dans le r&#233;pertoire qu'il faut &#224; l'aide d'une variable "Dim rep" ou rep est le nom d'un r&#233;pertoire. Le probl&#232;me c'est que cette technique ne marche pas pour renommer le fichier. 
Actuellement mon fichier s'enregistre dans le bon r&#233;pertoire mais s'appelle toujours classeur1 
Au Secours !! Cela fait trois jours que je suis la dessus !!! 
Merci d'avance

Tuning Max · Accepted Answer

sur excel :

Sub Savewbk()
Dim rep As String, fich As String, wbk As Workbook


Set wbk = ActiveWorkbook
rep = "c:	emp"
fich = wbk.Worksheets(1).Cells(1, 1).Value
With wbk
        .SaveAs rep & fich
End With
End Sub

cs_JULES60 · Answer

Merci bcp pour ton aide Tuning max. Maintenant je vais pouvoir avancer en adaptant ta technique &#224; mon projet. C'est cool ce site !! Vraiment tr&#233;s rapide ta r&#233;ponse merci encore

Merci Jules

Tuning Max · Answer

de rien!

cs_JULES60 · Answer

Est ce que j'abuse si je te demande encore quelque chose !!!
J'arrive maintenant &#224; modifier le nom du fichier sans probl&#232;me !! &#231;a c'est cool 
Mais ce qui n'est pas cool c'est que mon r&#233;pertoire de destination du fichier est aussi al&#233;atoire en fonction d'une cellule Excel. J'arrivai &#224; le faire mais en adaptant ta m&#233;thode &#231;a ne colle plus 
comment faire pour que  rep = "c:	emp\XXXX" avec XXXX en fonction d'une cellule 
J'ai essayer Dim ini as string 
avec ini = activecell 
rep = "c:	emp\ini 
ca ne marche pas 
snif snif 

Merci d'avance Jules

Tuning Max · Answer

pas de pb

Sub Savewbk()
Dim rep As String, fich As String, wbk As Workbook, ini As String


Set wbk = ActiveWorkbook
' selectionne la cellule contenant le sous repertoire
ini = wbk.Worksheets(1).Cells(1, 2).Value
' selectionne la cellule contenant le nom du fichier
fich = wbk.Worksheets(1).Cells(1, 1).Value
rep = "c:	emp" & ini
With wbk
        .SaveAs rep & fich
End With
End Sub

Enregistrer un fichier sous un nom différent

5 réponses

Discussions similaires