Referencer une cellule dans une macro

Bonjour, je vous sollicite aujourd'hui pour la chose suivante :

Sub Archiver()

'Permet d'enregistrer le fichier généré

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = "Bibliothèques\Documents\"
nomfichier = ActiveSheet.Range("B2") & extension
With ActiveWorkbook
   .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
    End With

End Sub

Le chemin :

chemin = "Bibliothèques\Documents\"

est défini ici,

je souhaiterai à la place, simplement indiquer une cellule spécifique d'une feuille spécifique.

Cela me permet de changer le chemin plus facilement, depuis ma feuille, plus pratique que d'avoir à modifier la macro.

Par exemple, je souhaiterai que le chemin soit le texte contenur dans le cellule B1 de la feuille 'Guide"

Je vous remercie d'avance.

bonjour,

tu fais avec chemin comme tu fais avec nomfichier

chemin = activesheet.range("B1")

Bonjour h2so4,

Merci pour ta réponse, cependant, comment puis je préciser la feuille ?

bonjour,

ainsi

chemin = sheets("feuil1").range("B1")

où feuil1 est le nom de la feuille

Bonjour à tous,

[quote="à la fin de son énoncé initial, frencky"]

je souhaiterai que le chemin soit le texte contenu dans le cellule B1 de la feuille "Guide"[/quote]

je propose donc ces 3 instructions VBA (au choix) :

chemin = Worksheets("Guide").Range("B1")

chemin = Worksheets("Guide").[B1]

chemin = [Guide!B1]

devinez laquelle des trois est la plus courte à écrire et à lire

(après, c'est selon les goûts de chacun )

dhany