Enrigistrer fichier excel dans dossier en vba [Résolu/Fermé]

Signaler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
-
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
-
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
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1028
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.
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
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
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1028
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
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
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
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1028
tu sélectionne SaveAs (en surbrillance) et tu tape F1
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
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
Messages postés
8714
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
24 novembre 2019
1028
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à ?
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
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
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
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