Microsoft 365 VBA - Enregistrer un fichier en pdf dans un dossier dont on ne connait que les 4 premiers caractères

phil75016

XLDnaute Junior
Bonjour

J'ai un dossier par société dont le nom du dossier commence par le code société qui comporte 4 caractères suivi du nom de la société.
Je voudrais enregistrer en VBA un fichier, dans lequel le code société apparait dans une cellule, dans le dossier mentionné ci-dessus mais à partir uniquement du code de la société car je ne connais pas le nom de la société.
J'ai essayé :
CODE_SOCIETE = Cells(4, 2).Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"x:\Z répertoire par société 2023\" & CODE_SOCIETE & "*" & "\Fiche périmètre 2023.pdf"
Je ne sais pas comment faire pour qu'il mette le fichier dans le dossier qui commence par le code société.
Je vous remercie.
 

Annach

XLDnaute Nouveau
Bonjour phil,
D'abord essaie de trouver le répertoire ciblé:

Code:
dim MonRep as string

MonRep = Dir(x:\Z répertoire par société 2023\ & Cells(4, 2).Value& "*", vbDirectory) 'trouve un répertoire qui commence par le contenu de la cellule D2 *

puis si trouver tu continues ton export avec le nom de MonRep
Code:
If MonRep <> "" then

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "x:\Z répertoire par société 2023\" & MonRep & "\Fiche périmètre 2023.pdf"

End if

Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
312 803
Messages
2 092 254
Membres
105 317
dernier inscrit
Tsi Badza