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

phil75016 · 20 Février 2024

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 · 20 Février 2024

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

phil75016 · 20 Février 2024

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

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

phil75016

XLDnaute Junior

Annach

XLDnaute Nouveau

phil75016

XLDnaute Junior

Discussions similaires