XL 2019 ChDir - ChDrive

gg13 · 27 Janvier 2023

Bonsoir,

Je bute sur un problème d’enregistrement.
Je voudrai enregistrer des PDF dans des dossiers différents.
J’utilise
ChDrive (lecteur)
ChDir (Dossier)

Pour ouvrir directement le bon dossier et stocker avec
Selection.PrintOut Copies:=1, Collate:=True

Mais chaque fois la fenêtre d’enregistrement s’ouvre sur le dernier chemin utilisé alors qu’elle devrait être dirigée directement sur celui indiqué par ChDrive (lecteur) et ChDir (Dossier)

Merci de votre aide si vous pouvez me dire où est mon erreur.

GG13

TooFatBoy · 30 Janvier 2023

Bonjour,

youky(BJ) à dit:
Teste ceci chez moi c'est bon.
Code trouvé sur internet

Dans la variable Chemin_Fichier, on n'est pas obligé de donner un nom de fichier, on peut ne donner que le chemin.

Dans FileFilter, si on veut des PDF, même si visiblement ça ne change rien chez moi, je pense qu'il vaut mieux utiliser pdf comme filtre : fileFilter:="PDF (*.pdf), *.pdf"

Ca pourrait donc donner quelque chose comme ceci :

VB:

Sub testPDF()
'
Dim Chemin_Fichier As String, FileSaveName As Variant

    ' Chemin (et éventuellement nom) pour le fichier à sauvegarder
    Chemin_Fichier = ThisWorkbook.Path

    FileSaveName = Application.GetSaveAsFilename( _
        InitialFileName:=Chemin_Fichier, _...

job75 · 4 Février 2023

TooFatBoy à dit:
En l'occurrence, j'ai l'impression que ce n'est pas ChDir qui ne va pas, mais plutôt Application.FileDialog(msoFileDialogFolderPicker),

Peut-être mais avec une fonction aussi importante ça veut dire que ChDir lui ne sert plus à rien.

TooFatBoy · 4 Février 2023

job75 à dit:
Peut-être mais avec une fonction aussi importante ça veut dire que ChDir lui ne sert plus à rien.

Tout à fait, mais je crois que ce n'est pas ChDir qui est en cause (car si on fait un ChDir derrière ça il fonctionne toujours comme prévu), mais bien le Application.FileDialog(msoFileDialogFolderPicker), Du moins... d'après ce que je comprends...

Bonne soirée

XL 2019 ChDir - ChDrive

gg13

XLDnaute Occasionnel

TooFatBoy

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires