Modification de répertoire

Bonjour,

Dernièrement, J’ai posé une colle brillamment résolue sur le forum.

Enregistrement, avec macro, format PDF

Ma question :

Bonjour les artistes,

Est-ce possible d’enregistrer, avec une macro, un fichier dans le même répertoire que l’original au format PDF ?

Dans l’exemple joint, j’aimerais enregistrer, les cellules B7-E39 et nommer suivant la cellule Z12

Évidemment le fichier est allégé pour l’envoi et la confidentialité.

Merci d’avance.

Cordialement,

Votre réponse :

Public Sub Creer_PDF()

Dim sPath As String, sFile As String

Const RNG As String = "$B$7:$E$40"

Application.ScreenUpdating = False

sPath = ThisWorkbook.Path & Application.PathSeparator

With ActiveSheet

sFile = .Cells(12, 26).Text

.Range(RNG).ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=sPath & sFile, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End With

End Sub

Aujourd’hui le président de l’association, aimerait que ce ne soit plus enregistré dans le même répertoire, mais sur un disque externe de sauvegarde :

Chemin :

Sauvegarde (F:)

Location 2018 – 2019

Gr 17

Classement

Merci de vous pencher sur mon problème.

Cordialement,

bonjour

attention au lecteur USB parfois ils changent de lettre de lecteur... suivant le nombre branché...

pour répondre à la question remplacer

sPath = ThisWorkbook.Path & Application.PathSeparator

par

sPath  = "F:\Location 2018 – 2019\Gr 17\Classement\"

Fred

Bonjour et merci beaucoup

Consulter le fichier joint

Cordialement,

6complement.xlsx (33.40 Ko)

Bonjour,

Je me rends compte que je n’ai pas été très clair dans mon dernier message.

J’aurais besoin de précision et d’une aide supplémentaire, alors je vous remercie de consulter le fichier joint.

Bien entendu, si nécessaire refaire les macros,

Merci

Cordialement,

9complement.xlsx (34.85 Ko)

Bonjour

puisque maintenant c'est un sous dossier par rapport a l'emplacement actuel du fichier exécutant la macro voici ce qu'il faut changer :

remplacer :

    sPath = "F:\Observation 2018 - 2019\Gr 2\Classement\"

par

sPath = ThisWorkbook.Path  &"\Classement\" 

pour le deuxième problème même principe

remplacer

chemin = ThisWorkbook.Path

par

chemin = ThisWorkbook.Path &"\Envoi CDA"

pour être plus cohérent par rapport au premier code je propose cette petite modification

chemin = ThisWorkbook.Path &"\Envoi CDA\"

et dans ce cas là il faut aussi changer cette ligne

    .SaveAs chemin & "\" & fichier & ".xlsx"

par

        .SaveAs chemin &  fichier & ".xlsx"

Fred

Salut Fred et tout le forum,

Magnifique, super résultat (j’espère que cette fois c’est la version définitive, quoique je sais que vous êtes tous prêts à me donner un coup de main).

Je te remercie vraiment pour ta patience, et ton savoir que tu mets au service des autres.

Mille mercis, et problème résolu.

Cordialement,

Rechercher des sujets similaires à "modification repertoire"