enregistrement sous du fichier selon le nom de la cellue

[Sylvain59]

Bonjour a tous

dans la macro suivante j'enregistre une feuille de mon fichier vers je dossier
D\rapport d'axe avec un nom qui dépend de la valeur d'une cellule

j'aimerais pousser plus loin et enregistrer ma feuille dans le dossier

D\rapport d'axe \ aze
si la valeur de la cellule b1 est aze

D\rapport d'axe \ rty
si la valeur de la cellule b1 est rty

c'est a dire créer le chemin en fonction de la valeur de la cellule

Sub SauvegardeFeuille4()
Dim NOM1 As String
NOM1 = ThisWorkbook.Sheets("utilitaires").Range("a1")
'ActiveSheet.Unprotect
'ActiveSheet.Unprotect Password:="1234"
ThisWorkbook.Sheets("utilitaires").Copy
For Each cel In ActiveWorkbook.ActiveSheet.UsedRange
cel.Formula = cel.Value
Next cel
On Error Resume Next
ActiveWorkbook.SaveAs Filename:="D:\rapport d'axe\" & NOM1 & ".xls"
If Err <> 0 Then MsgBox "impossible de trouver dossier d'enregistrement"
ActiveWorkbook.Close
'ActiveSheet.Protect Password:="1234"
MsgBox ("Enregistrement de la feuille utilitaires terminé")
End Sub

Là j'avoue que je coince

si quelqu'un peux m'aider

Merci

 

[Guest]

Re : enregistrement sous du fichier selon le nom de la cellue

Bonsoir,

Ce devrait être:

With ThisWorkbook.Sheets("utilitaires")
    NOM1 = .Range("B1") & "\" & .Range("a1")
End With

A+

 

[Sylvain59]

Re : enregistrement sous du fichier selon le nom de la cellue

Merci Hasco

ta modif fonctionne a la perfection


merci