Enrigistrer fichier excel dans dossier en vba

bonjour,
Un début à adapter..

Sub SauverClasseur()
    Dim Chemin As String
    Dim Fich As String
    With Sheets("NomDeLaFeuille")
        If .Range("E13") <> "" Then
            Chemin = "C:\Repertoire\Repertoire\" & .Range("E13") & "\"
        Else
            Chemin = "C:\Repertoire\Repertoire\a classer\"
        End If
    End With
    With ThisWorkbook
    Fich = .Name
    .SaveAs (Chemin & Fich)
    End With
End Sub

A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.

bonjour
merci beaucoup pour la reponse mais par contre si le nom du client du devis ne corresond pas exactement au nom du client du fichier comment peut on faire est ce qu'il faut que ce soit exactement les memes caracteres

Ha ça, les pc n'ont pas encore de boule de cristal pour "deviner" mais ont peut quand même contrôler si ça correspond au répertoire.

Sub SauverClasseur()
    Dim Chemin As String
    Dim Fich As String
    Fich = ThisWorkbook.Name
    With Sheets("NomDeLaFeuille")
        If .Range("E13") <> "" Then
            Chemin = "C:\Repertoire\Repertoire\" & .Range("E13") & "\"
            If Dir(Chemin) = "" Then
                MsgBox "Le répertoire au nom du client " & .Range("E13") & Chr(13) _
                & "n'existe pas, rectifier l'ortographe Svp."
                Exit Sub
            End If
        Else
            Chemin = "C:\Repertoire\Repertoire\a classer\"
        End If
    End With
    ThisWorkbook.SaveAs (Chemin & Fich)
End Sub

bonjour
je sais ce que je demande est tres compliqué mais on sait jamais
je vais essayer ce que vous m'avez donné et je vous tient au courant

merxci beaucoup

rebonjour

je voudrais connaitre la ligne de commande pour enregistrer le fichier excel en lecture seule et que lorsqu'il le reouvre il ne me pose pas la question il s'ouvre automatiquement en lecture seule

tu sélectionne SaveAs (en surbrillance) et tu tape F1

bonjour
et merci pour vos reponse

pour la lecture seule il me faut la cde sous vba car je vais l'intégrer dans le programe

par contre pour le programe plus haut il me met une erreur il souligne en rouge la 4éme ligne
alors que j'ai mis le nom de la feuille

ARRÊTE de demander le code.... tu doit aussi un peu travailler, Non ?
Bien sûr tu doit aussi adapter la ligne 4 au nom exact du chemin où se trouve tes répertoires.
A moins que.. Dis un peu le chemin COMPLET du répertoire de ton classeur.
Par exemple C:\MesClasseurs\MaListeDeClient
Et où sont les répertoires de tes clients, aussi avec le chemin complet.
Et question subsidiaire... les répertoires de tes client.. y existe déjà ?

RE
travailler n'est pas un probleme mais quand on debute c'est tres compliqué
pour la ligne 4 je l'ai adapté au nom du fichier
j'ai aussi modifié les chemin d'acces et les repertoire des clients existe deja

je vais essayer encore un peu seul sinon je t'enverai mon prog complet

c est bon merci ca fonctionne

par contre je voudrais qu'il s'enregistre automatiquement en lecture seule dans la prog en vba
comment je peut faire