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