XL 2019 ChDir - ChDrive

gg13

XLDnaute Occasionnel
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
 
Solution
Bonjour,

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, _...

TooFatBoy

XLDnaute Barbatruc
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
🖖
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll