Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Private Sub UserForm_Initialize()
'remplace la ligne en rouge ci-dessous par les deux lignes en gras rep = ChoisirDossier Dim Dossier as String rep="C:\Ton Repertoire\"
Set ChercheFichier = Application.FileSearch
• Ci-joint fichier modifié pour le cas Annuler Ce lien n'existe plus
Je n'ai pas modifié pour le nom du répertoire , ne connaissant pas le nom de ce dernier.
• version 1 (2 fichiers 97&2000) Ce lien n'existe plus
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.