Enrigistrer fichier excel dans dossier en vba

Résolu/Fermé
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
- 26 oct. 2011 à 13:21
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
- 27 oct. 2011 à 23:29
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

lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 194
Modifié par lermite222 le 26/10/2011 à 16:14
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