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

[phil75016]

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]

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

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

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

 

[phil75016]

Merci beaucoup c'est génial. Bonne journée