Discussion :

[kiki29]

Copier/Coller le texte des PDFs d'un dossier ( recherche récursive ou non ) dans une feuille Excel via Acrobat Reader.

Version W8.1 / Excel 2007

Pdf2Excel 2007+

[kiki29]

Suite à une remarque pertinente de Davido84, une modif permet en fait de supprimer le module de Classe baptisé clsKeyBoard et apparemment de pallier le problème de désactivation des NumLock CapsLock ScrollLock PauseLock.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
            Set Wsh = CreateObject("WScript.Shell")
            With Wsh
                .SendKeys "^a", True
                .SendKeys "^c", True
                Sleep Tempo
                .SendKeys "^q", True
                Sleep 2 * Tempo
            End With
            Set Wsh = Nothing

[doune77]

Bonjour,

j'essaie d'utiliser votre fichier sur excel 2010 et j'obtiens un message d'incompatibilité de type sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Function MatchSpec(sFile As String, sSpec As String) As Boolean
    MatchSpec = PathMatchSpec(StrPtr(sFile), StrPtr(sSpec)) = FP.bFindOrExclude
End Function

le sfile est en jaune

auriez-vous une idée du problème svp ?
Merci beaucoup
Laetitia

[davido84]

Bonsoir,
vérifie si ton Excel n'est pas un 64 bits (je parle bien de la version Excel installée sur ton ordinateur, pas du système d'exploitation.
Si c'est le cas il faudra adapter la déclaration des arguments de certaines des API utilisées et les passer en LongPtr.
A+

[kiki29]

Salut, si c'est la cas voir : Développer avec Office 64 bits

[doune77]

Bonjour à tous et merci pour vos réponses.

Oui ma version d'excel est bien du 64bits. J'avais déjà ajouté des "ptrsafe" (de mémoire) comme demandé quand j'ai lancé le programme, mais le message que je vous ai indiqué est apparu ensuite...

Je vais me pencher sur vos solutions très vite.

Merci encore

[davido84]

Pour la déclaration en 64 bits des API du module mRch :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  Private Declare PtrSafe Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long  
 
  Private Declare PtrSafe Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
  (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
 
  Private Declare PtrSafe Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
  (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
 
  Private Declare PtrSafe Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As LongPtr) As Long
 
  Private Declare PtrSafe Function PathMatchSpec Lib "shlwapi" Alias "PathMatchSpecW" _
  (ByVal pszFileParam As LongPtr, ByVal pszSpec As LongPtr) As Long

A+

[aacmweb]

Bonjour kiki29 !

Ton code marche bien mais mon probleme est qu'il deplace les chiffres ( credit ou debit ) juste en fin de la ligne "nature des operations"
Voir 1er fichier joint "avant pdf2excel2007.jpg" :





Ton code donne un nouveau fichier au format xlsx ( voir 2° fichier joint "apres pdf2excel2007.jpg" )



Donc dans la feuille Excel on voit certains chiffres :

18,95
36,00
9,99

mais on ne voit pas s'il faut considerer ces 3 chiffres comme debit ou credit ?

Ce serait bien si ton code met les chiffres "credit" et "debit" dans 2 colonnes différentes ou s'il met un signe negatif sur les chiffres "debit"


Merci et bonne journée !

[kiki29]

Salut, sans échantillons tu n'auras pas de réponse, comme déjà expliqué dans un autre post je ne pratique pas l'extispicine. Tu peux en fournir ( au format pdf ) avec des données bidons, sans garantie que le problème soit soluble, le pdf dépendant de l'outil qui le génère.

[aacmweb]

j'ai essayé de modifier mon PDF avec mon Adobe Acrobat XI mais ca n'a pas marché
il me faut plus de temps

[kiki29]

Salut, je suppose que tu parles du Reader. Car effectivement ce dernier ne permet rien de cela.

[aacmweb]

Bonjour Kiki29

Accepteras-tu des relevés bancaires avec quelques zones masqués ( Annotation de dessin > Rectangle blanc ) sous Adobe Acrobat Pro ?
car pas possible de remplacer le texte par autre texte
Merci

[aacmweb]

comme ce fichier par exemple ?

[kiki29]

Salut, c'est bien ce que je craignais, tu vas voir la cata, j'ai essayé tous les formats d'export d'Acrobat.

[aacmweb]

bonjour kiki29

le voici le fichier modifié avec mon Acrobat Pro XI
j'ai du masquer certaines informations avec Commentaire > Annotation de dessin > Tracer un rectangle ( contour blanc )

Tu as une piste à me proposer ?

Merci et bonne journée !

[aacmweb]

Rebonjour

Ne pas tenir de mon dernier post ( lundi 10h15 )
car je croyais que mon post du vendredi n'a pas fonctionné

[kiki29]

Salut, change de banque ..... rien de facilement récupérable et le formatage, qui n'est que rarement une sinécure, s'annonce acrobatique. Cette banque ne propose pas d'autres formats d'export ? la mienne oui..

[aacmweb]

oui ma banque me propose 2 choses :
- Telechargement des operations jusqu'à 31 jours maxi au format Excel/csv ( pas tres pratique alors que la banque postale permet jusqu'à 2 mois en arriere au format excel ou csv
- Telechargement des PDF jusqu'à 10 ans en arriere sur leur site ( j'ai deja telechargé des PDFs depuis 3 ans sur mon DD mais je viens de m'apercevoir que maintenant c'est jusqu'à 6 mois : ils ont donc changé ? ) or je veux traiter ces 3 ans de PDFs deja presents sur mon DD

Tant pis !

[aacmweb]

Bonjour kiki29

peut etre qu'avec ce fichier modifié avec Acrobat Pro ?
ici j'ai remplacé des textes au lieu des annotations de dessins
la taille du fichier PDF est passée de 42 ko ( origine ) à 139 ko
j'ai essayé sur un autre PDF de 3 pages mais ca a passé de 46 ko à 1329 ko !

Bonne journée !

[kiki29]

Salut, la même opération que plus haut avec Acrobat 15, à toi de poursuivre, cela semble "plus" exploitable.