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
Là j'avoue que je coince
si quelqu'un peux m'aider
Merci
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
Code:
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