Discussion :

[Patouillou]

Bonjour ,
Voici le code :
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub RAPPORT_Bouton6_Cliquer()
       Dim LeParcours As String, LeRep As String
 
    LeParcours = Range("F10").Value
    LeRep = "C:\Users\Nathan\Dropbox\HYD2014\" ' à adapter
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       LeRep & "HYD" & LeParcours & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=True
    End Sub

Ce code me permet d'enregistrer l'HYD LeParcours dans le fichier "HYD2014" de ma dropbox et de me l'ouvrir ensuite au format pdf .
LeParcours correspond à un nombre situé dans la cellule F10.
Ce code fonctionne à merveille mais j'aimerais l'améliorer mais je ne sais pas comme s'y prendre .
Dans mon fichier "HYD2014" il y a tous mes HYD ( 256 ) dans des dossier , dans lesquels j'aimerais ranger les pdf .
Par exemple , si dans ma case F10 j'ai 145 , je clic sur mon bouton "enregistrer " Celui-ci va m'ouvrir la feuille en format pdf , et va m'enregistrer ce pdf dans "C:\Users\Nathan\Dropbox\HYD2014\HYD145" Je veux que le nombre 145 correspond bien sûr à LeParcours comme pour le titre du fichier .
Sachant que si le dossier HYD145 n'existe pas , il m'en créer un avec le nom HYDLeParcours , qui doit être remplacer par HYD145 .

J’espère que quelqu'un m'aura compris et pourra m'aider dans ma démarche .
Merci de votre aide
Cordialement

[kiki29]

Salut, voir : Manipulation des fichiers en VBA

sinon en ajoutant ( et adaptant à ton contexte ) à l'endroit idoine qqch comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim FSO As Object, sNomDossier As String
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    sNomDossier = "HYD" & LeParcours
    sChemin = "C:\Users\Nathan\Dropbox" & "\" & sNomDossier
    If Not FSO.FolderExists(sChemin) Then FSO.CreateFolder (sChemin)
    Set FSO = Nothing

il y a aussi ici : Générer des PDFs sans doublons via l'incrémentation d'un N° de fichier

Une fonction RenommerFichierPDF(sChemin As String, sNomFichier As String) As String qui permet d'éviter les doublons dans les noms de fichiers.

Attention au vocabulaire : un fichier n'est pas un dossier et réciproquement.

[Patouillou]

Bonjour , merci de ta répose, malheuresement, quand j'enregistre , il me créer bien un dossier , mais le fichier .pdf est juste dans la dropbox, et se nomme : " HYD245HYD245" ou "HYD246HYD246" ..
Merci

[kiki29]

Salut, à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Sub tst()
Dim LeParcours As String, LeRep As String
Dim FSO As Object, sNomDossier As String
Dim sChemin As String
 
    LeParcours = Feuil1.Range("F10").Value
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    sNomDossier = "HYD" & LeParcours
    sChemin = "C:\Users\Nathan\Dropbox" & "\" & sNomDossier
    If Not FSO.FolderExists(sChemin) Then FSO.CreateFolder (sChemin)
    Set FSO = Nothing
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                    sChemin & "\" & "HYD" & LeParcours & ".pdf", Quality:= _
                                    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                                    From:=1, To:=1, OpenAfterPublish:=True
 
End Sub

[Patouillou]

Merci ,
Je n'est pas tester ton code mais j'ai trouvé l'erreur tout seul, il suffisais de rajouter: & "/" après sNomDossier
Merci à toi de m'avoir aider
cordialement