chemin suivant cellule

MASSJIPE · 1 Novembre 2011

Bonjour
je cherche un bout de code pour enregistrer mon classeur en fonction du chemin de la cellule D2 (qui est une ligne de validation de plusieurs chemin défini)
En C2 c'est le nom du clacseur
merci
Private Sub CommandButton1_Click()
' Macro enregistrée le 24/10/2011 par jean-paul
Dim i
ChDir "C:\Users\jean-paul\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\jean-paul\Desktop\Tableau.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:=[C2].Value
''
Sheets("FOS").Visible = True
Sheets("FOS").Select
For i = 1 To 20
Sheets("FOS").Copy Before:=Sheets(i)
ActiveSheet.Name = "FOS" & i
ActiveWorkbook.Sheets("FOS" & i).Tab.ColorIndex = 5
Next
Sheets("FOS").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Delete
Sheets(Array("Tableau", "Verso1")).Select
Sheets("Tableau").Activate
Sheets(Array("Tableau", "Verso1")).Move Before:=Sheets(1)
End Sub

Yaloo · 1 Novembre 2011

Re : chemin suivant cellule

Bonjour massjipe, le forum,

Un truc dans ce goût là :

VB:

rep = Cells(2, 4).Value
ActiveWorkbook.SaveAs rep & [C2].Value

ou

VB:

ActiveWorkbook.SaveAs [D2].Value & [C2].Value

A+

Dranreb · 1 Novembre 2011

Re : chemin suivant cellule

Bonjour.
Je dirais:

VB:

ChDrive [D2].Value: ChDir [D2].Value
ActiveWorkbook.SaveAs [C2].Value

ou

VB:

ActiveWorkbook.SaveAs [D2].Value & "\" & [C2].Value

À +

MASSJIPE · 1 Novembre 2011

Re : chemin suivant cellule

Re
maintenant comment nommer la cellule D1 de l'onglet tableau comme le nom du classeur ex tabeau de controle 663
merci

Dranreb · 1 Novembre 2011

Re : chemin suivant cellule

Pourquoi voulez vous créer un nom de plage pour la cellule D1 qui soit différent d'un classeur à l'autre ? Ça ne vas sûrement pas faciliter son utilisation !
Les espaces ne sont pas admis dans les noms de plages. Il faut : tabeau_de_controle_663
Vous devriez joindre un fichier en y expliquant ce que vous voulez faire.
À +

Yaloo · 1 Novembre 2011

Re : chemin suivant cellule

Re massjipe, bonjour Dranreb,

Dranreb à dit:
Bonjour.

VB:

ActiveWorkbook.SaveAs [D2].Value & "\" & [C2].Value

À +

Tout dépends de ce que l'on a en D2

Si c'est : C:\TOTO ça c'est ta version ou C:\TOTO\ ça c'est la mienne

Yaloo

MASSJIPE · 1 Novembre 2011

Re : chemin suivant cellule

Re
J'ai trouvé cette formule
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;
SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-1)
merci à tous

Dranreb · 1 Novembre 2011

Re : chemin suivant cellule

Oui, je m'en doutais un peu, ça n'a strictement rien à voir avec le fait de nommer une cellule.
Cette formule renvoit le nom du classeur qui la porte.
En VBA cette information s'obtient par l'expression ThisWorkbook.Name
Cordialement.

chemin suivant cellule

MASSJIPE

XLDnaute Impliqué

Yaloo

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

MASSJIPE

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Yaloo

XLDnaute Barbatruc

MASSJIPE

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Discussions similaires