enrigistrer fichier excel dans dossier en vbaRésolu/Fermé

Question

Bonjour, 



Configuration: Windows 7 / Internet Explorer 8.0

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

lermite222 · Answer

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.

gnioler · Answer

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

lermite222 · Answer

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

gnioler · Answer

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

gnioler · Answer

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

lermite222 · Answer

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

gnioler · Answer

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

lermite222 · Answer

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à ?

gnioler · Answer

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

gnioler · Answer

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

Enrigistrer fichier excel dans dossier en vba

10 réponses

Discussions similaires

Newsletters