Enrigistrer fichier excel dans dossier en vba

Résolu
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,





bonjour je voudrait savoir la quelqu'un peut me donner laligne de de commande vba excel pour enregistrer automatiquement mon fichier excel dans le dossier client sachant que le nom du client se trouve dans la cellules E13 par contre si il ne trouve pas le client il faudrait l'enregistrer dans un dossier apeller "a classer"

merci d'avance
A voir également:

10 réponses

Réponse 1 / 10
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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.
0
Réponse 2 / 10
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0
Réponse 3 / 10
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
0
Réponse 4 / 10
gnioler
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 10
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0
Réponse 6 / 10
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
tu sélectionne SaveAs (en surbrillance) et tu tape F1
0
Réponse 7 / 10
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0
Réponse 8 / 10
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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à ?
0
Réponse 9 / 10
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0
Réponse 10 / 10
gnioler Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   3
 
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
0