Enregistrer en PDF selon numero chrono

Bonjour,

Nous avons créer un document excel qui nous permet d'enregistrer nos fiches d'interventions fluides frigorigènes chez chacun de nos clients.

Les techniciens disposent d'un modèle excel où a été inséré plusieurs macro avec boutons "enregistrement PDF" et "effacer modèle".

Chaque fiche est enregistrée de la manière suivante:

code client - code chrono - date d'intervention

Mais ça se complique car il souhaite que chaque fiche client soit enregistrée dans le dossier client.

Exemple:

enregistrement format PDF dans le dossier 002

est ce possible d'enregistrer le document PDF dans les dossiers correspondants?

merci d'avance pour votre aide

bonjour,

simple idée à tester.

Imaginons que "001 - 003 - 06/12/2016" soit en A1

Lors du codage du dossier d'enregistrement du PDF, Mettre :

("TonChemin\" & Left(Range("A1").Value, 3))

Le Left() ressortira "001 et donc aura le chemin correspondant.

A tester, a plus.

Ok je teste et je tiens informé merci

je n'arrive pas à saisir la fonction left()

mon fichier "FLUIDES" contient des sous dossiers "001" "002" "003"

mes pdf enregistré commence par "001" ou "002" ou "003"

ce numéro se trouve dans la cellule K2

Mon dossier "FLUIDES" son chemin C:\Users\MCharpy\Desktop\FLUIDES

Mon dossier "001" son chemin C:\Users\MCharpy\Desktop\FLUIDES\001

donc je dois enregistre la macro suivante

chemin = C:\Users\MCharpy\Desktop\FLUIDES\ & Left(Range("K2").value,3)) 

chemin = "C:\Users\MCharpy\Desktop\FLUIDES\" & Left(Range("K2").Value, 3)

Il faut mettre des guillemets comme cela.

'Par exemple
Filename:=chemin & "\" & "Nom_de_ton_fichier.pdf"

Bien sur tu peux toujours rajouter la variable Left() dans le nom de ton fichier.

voici mon code actuel

Sub Impression_PDF()

Dim chemin As String, Fichier As String

    chemin = "C:\Users\MCharpy\Desktop\FLUIDES\001"

    With ActiveSheet
        Fichier = .[K2] & " " & .[L2] & " " & "-" & " " & .[D6] & " "
        Fichier = Fichier & Format(.[C46], "ddmmyyyy") & ".pdf"
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=chemin & Fichier, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=True
    End With

'
End Sub

Maintenant j'aimerai que selon le texte de la cellule K2 le fichier s'enregistre dans le bon dossier.

Je n'arrive pas à utiliser la fonction Left(range)

Sub Impression_PDF()

Dim chemin As String, Fichier As String

    chemin = "C:\Users\MCharpy\Desktop\FLUIDES\" & Left(Range("K2").Value, 3)

    With ActiveSheet
        Fichier = .[K2] & " " & .[L2] & " " & "-" & " " & .[D6] & " "
        Fichier = Fichier & Format(.[C46], "ddmmyyyy") & ".pdf"
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=chemin & Fichier, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=True
    End With

'
End Sub

le problème c'est que le document ne s'enregistre pas dans le bon dossier et me rajoute deux fois le libellé de la cellule K2 dans le nom du PDF.

J'aimerai que le PDF qui commence par "001" s'enregistre dans le sous dossier "001", pour le moment le pdf s'enregistre dans le dossier "FLUIDES"

Dossier "FLUIDES"

sous dossier "001"

sous dossier "002"

"001001 001 - test impression 07122016.pdf"

Bonsoir, essaye comme ça :

Sub Impression_PDF()

Dim chemin As String, Fichier As String

    chemin = "C:\Users\MCharpy\Desktop\FLUIDES\" & Left(Range("K2").Value, 3)

    With ActiveSheet
        Fichier = .[K2] & " " & .[L2] & " " & "-" & " " & .[D6] & " "
        Fichier = Fichier & Format(.[C46], "ddmmyyyy") & ".pdf"
        .ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=chemin & "\" & Fichier, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=True
    End With

End Sub

il te manquait le ( & "\" & ) Car sinon ton fichier de destination donne :

C:\Users\MCharpy\Desktop\FLUIDES\001[K2] [L2] - [D6] ....

Or ca doit etre dans le dossier 001 donc :

C:\Users\MCharpy\Desktop\FLUIDES\001\[K2] [L2] - [D6] ....

La il trouve le nom du dossier et fait le lien entre chemin et Fichier

Milles mercis ça fonctionne