Extraire du texte d'un pdf et l'importer dans un tableau Excel (VBA)

Bonjour,
J'exploite un fichier de plusieur milliers de lignes représentant chacunes une fiche client.
ce fichier contient en colonne "A" le numéro client, en colonne "AP" le nom du document pdf fourni par le client et en colonne "BP" la celulle recevant le contenu texte du pdf.

Qui pourrait m'aider à réaliser une macro, selon le processus suivant ?
- Créer une sélection sur la colonne "BP" pour ne sélectionner que les fiches non renseignées. (celulles vides)
- Puis une sous-sélection sur la colonne "AP" pour ne sélectionner que les celulles contenant une référence de fichier pdf. (celulles non-vides)
- Récupérer le contenu texte du pdf et l'inclure dans la celulle "BP"
PS: Le fichier Excel et les pdf, sont dans un même dossier "GestionClientFepo" dont le chemin est mémorisé dans la cellule "AP2"
(obtenu par: "chemin =Workbooks(ActiveWorkbook.Name).Path")
PSS: Chaque jour le fichier de base Excel s'enrichi de nouvelles lignes clients

Une seconde Macro serait la bienvenue (Mise à jour colonne "AP")
- Faire une sélection des celulles vides
- Relever le numéro client en colonne "A" (ex du format: 1213673251)
PS: le nom du fichier pdf associé sera du format: "DC_1213673251_999999" (les 9 représentent un numéro de série incrémenté automatiquement par le site/// l'important est le numéro client compris entre les deux "_")
- Scruter le dossier GestionClientFepo" et renseigner la colonne "AP" des nouveaux pdf reçus.

Merci par avance pour votre contribution
J'ai bien trouvé dans ce forum une macro qui répond à la premiere action, extraire des données textes d'un pdf, mais je ne sais pas l'adapter à mon besoin.

Merci...

Bonsoir

Citation:

---

- Créer une sélection sur la colonne "BP" pour ne sélectionner que les fiches non renseignées. (celulles vides)
- Puis une sous-sélection sur la colonne "AP" pour ne sélectionner que les celulles contenant une référence de fichier pdf. (celulles non-vides)

---

Pour cette partie, un filtre automatique te donnera le résultat escompté
exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim c As Range Dim LastLig As Long   Application.ScreenUpdating = False With Sheets("Feuil1") .AutoFilterMode = False LastLig = .Cells(Rows.Count, 1).End(xlUp).Row 'Ligne 1 est la ligne des titres .Range("A1").AutoFilter field:=42, Criteria1:="<>" 'AP non vides .Range("A1").AutoFilter field:=68, Criteria1:="=" 'BP vides If .Range("A1:A" & LastLig).SpecialCells(xlCellTypeVisible).Count > 1 Then For Each c In .Range("AP2:AP" & LastLig).SpecialCells(xlCellTypeVisible) 'traitement à effectuer Next c End If .AutoFilterMode = False End With

---

Bonsoir et merci pour votre aide.

Malheureusement votre macro ne m'est d'aucune aide, elle ne répond qu'à une partie d'action d'un traitement complet.

Merci de proposer une réponse globale au pb posé.
Bien à vous,
Speedfree.

Bonjour,

Je reviens juste sur votre message précédent :

Citation:

---

elle ne répond qu'à une partie d'action d'un traitement complet

---

et

Citation:

---

Merci de proposer une réponse globale

---

Il me semble que dans ton premier message tu demandes de l'aide, donc il ne s'agit pas d'attendre tranquillement que la solution tombe du ciel...

Citation:

---

Qui pourrait m'aider à réaliser une macro, selon le processus suivant ?

---

Pour la macro qui ne t'est d'aucune aide : prends la comme une solution de départ, pour démarrer ou t'inspirer..

Peace

En effet j'ai suis vos conseils et j'ai utilisé la solution proposée comme un point de départ et qui a permis d'aboutir à une solution finale...

Encore un grand merci.
Cordialement,
SpeedFree.:ccool:

Salut !

Il est toujours plus appréciable de trouver la solution par soi-même, et finalement, la solution n'était pas si inutile ;)

Juste une petite précision pour la prochaine fois : moi généralement je poste un petit bout de code, et j'explique ou je bloque.. je continu de chercher et si jamais je trouve, je poste mon avancé avec la nouvelle chose qui me bloque,etc etc ! Du coup, il est plus facile pour les gens de me venir en aide ! Et ça donne plus envi d'aider quand tu n'as pas l'impression de devoir faire le taf pour un autre !

Bonne continuation, Peace !