Bonjour a tous!
 
J'aimerais faire un petit bouton dans un classeur afin de trier automatiquement mes factures dans mes dossiers clients.
 
Ce bouton permettrais de creer un dossier dans un endroit précis portant le nom dans une cellule, et ensuite enregistrer sous en format PDF dans le dossier crée précédament. Le nom du fichier PDF porterais le num d'une deuxieme case du classeur.
 
Je suis totalement débutant en VBA, et j'ai fait une ebauche du code en utilisant des macros et differents tuto sur differents forums, mais j'ai des erreurs, et je n'arrive pas a m'en dépatouiller...
 
Pouvez vous m'aider? Je vous remerci d'avance
 
voici le code en question:
 
Sub Bouton()
'
'Creation du nouveau dossier dans le chemin spécifié, portant le nom de la cellule A1
 
 
   ChDir _
        "C:\Documents and Settings\simon\Mes documents\range("A1" ).Value"
 
 
 
'Enregistrement sous dans le dossier cree precedement en PDF avec le nom de la cellule A2
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Documents and Settings\simon\Mes documents\Range("A1" ).Value\Range("A2" ).Value & ".xls" _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
End Sub

Bonjour,
 
Alors la fonction ChDir permet de changer de dossier, pas de le créer. Et il faut concaténer la valeur de la cellule, là tu l'as juste inscrite dans une chaîne de caractère.
 
Autrement dit, la première instruction veut dire "définir le dossier courant comme étant litéralement C:\Documents and Settings\simon\Mes documents\range("A1" ).Value". C'est pas trop ce qu'on veut
 
Pour créer un dossier, c'est la fonction MkDir.
 
Donc déjà il faut créer le bon nom de dossier via concaténation :

Dim CheminDossier as String
    CheminDossier = "C:\Documents and Settings\simon\Mes documents\" & ActiveSheet.[A1]
 
MkDir CheminDossier

 
Ensuite pour exporter, même chose, on concatène avec le contenu de A2 :

Dim CheminFichier as String
    CheminFichier = CheminDossier & "\" & ActiveSheet.[A2] & ".pdf"
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminFichier, _ 
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True