Gestion de fichiers pdf
Bonjour,
J'ai besoin de faire du VBA sous Excel 2010 et j'ai quelques soucis avec la gestion des fichiers. Je vous explique mon besoin.
1) 2000 fichiers pdf dans un seul répertoire.
2) rechercher un ou des fichiers dans ce répertoire avec un nom partiel de fichier (ex: toto m'affiche tous les fichiers avec toto dans le nom)
3) sélectionner le fichier voulu et le copier dans un autre répertoire de mon choix.
Merci de votre aide
Bonjour ericpao,
Si cela peut t’intéresser... quelques petits paramètres (chemin d'accès du dossier) à modifier selon tes besoins.
Pour ma part j’utilise ce dossier (que j'ai tronqué cause confidentialité) ... tous les jours.
Bon courage
Et1000lio
ou alors
Tu emploi un Userform tel que l'image ci-jointe, avec modification partielle du code suivant en l'adaptant à tes besoins.....
'Code pour ouvrir le document via le bouton "OUVRIR LE DOSSIER"
Private Sub CommandButton1_Click()
Dim monfichier As String, chemin As String
Dim wbExcel As Workbook
monfichier = ComboBox1.Value 'le fichier que je veux ouvrir
chemin = "\\00.000.000.0\XXXX\......\DOSSIER\" 'le chemin où il se trouve (pour ma part un dossier sur serveur accessible via adresse IP
Set wbExcel = Workbooks.Open(chemin & monfichier)
Me.Hide
End Sub
'Procédure à l'activation (ou ouverture de l'Userform)
Private Sub UserForm_Activate()
Dim i As Integer, chemin As String, Fichier As String
chemin ="\\00.000.000.0\XXXX\......\DOSSIER\*.pdf" 'Chemin pour lister tous les pdf
Do While (Len(Fichier) > 0)
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop
End Sub
Et1000lio
Merci pour la réponse je vais essayer et voir comment cela marche