Macro pour enregistrer sous une feuille dans un dossier

Bonjour

J'ai un classeur avec plusieurs feuille, devis, factures , historique-facture

J 'aimerais faire une macro qui enregistre qu'une feuille d'un classeur, dans un dossier

j'ai récupéré et modifier sur le forum cette macro Merci Diablo

Sub enregistrerdevis()

If Range("B8").Value = "" Then

MsgBox "***attention***"

Else

Dim extension As String, chemin As String, nomfichier As String

extension = ".xls"

chemin = "/Users/stephanedav/Documents/SAS DAV/devis/"

nomfichier = Sheets("devis").Range("F3") & Range("B8") & extension

Sheets("devis").Copy

ActiveWorkbook.SaveAs FileName:=chemin & nomfichier

End If

End Sub

mais elle bug un problème sur nomfichier = Sheets("devis").Range("F3") & Range("B8") & extension

merci de votre aide

stephane

Bonjour,

elle bug... c'est quoi l'erreur indiquée ?

Sinon j'ai ceci, qui est à modifier dans votre cas, mas c'est un peu le principe sauf que le classeur ne doit pas être "killed" après :

2videmment les lignes pour la messagerie peuvent être enlevées...

@ bientôt

LouReeD

Bonjour et Merci pour votre réponse

l'erreur est ( erreur d'exécution 9 L'indice est en dehors des dimensions du tableau

merci pour votre aides

stephane