Discussion :

[Debutant10]

Bonjour,

Merci pour l'éclairage je comprends mieux cependant là je suis un peu perdu car maintenant le code bloque ici :

Code :

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

Set PDDoc = CreateObject("AcroExch.PDDoc")

Pouvez-vous m'aider à le faire fonctionner svp, s'il fonctionne car sa marche pour ouvrir la pièce jointe en pdf OK, 2-/ mais après il bloque je ne comprends pas pourquoi ??


Voici ma pièce jointe et le code qq peut-il m'aider à l'adapter à mon cas.

Je souhaite ouvrir la pièce jointe récupérer les informations simplement sous fichier excel.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Sub SelectionFichier2()
Dim FD As FileDialog
 
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .InitialFileName = ThisWorkbook.Path
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "PDF", "*.pdf", 1
        .ButtonName = "Ouvrir fichier"
        .Title = "Sélectionner un fichier PDF"
    End With
 
    If FD.Show = True Then Lire2 FD.SelectedItems(1)
 
    Set FD = Nothing
End Sub
 
'   Cocher Reference : Microsoft Forms 2.0 Object Library
Sub Lire2(sFichier As String)
Dim PDDoc As Object
Dim PDPage As Object
Dim PDText As Object
Dim TextSelt As Object
Dim Rep As Long
Dim i As Long, j As Long
Dim wkPage As Long
Dim wkCnt As Long
Dim wkText As String
Dim FName As String
Dim oDO As Object
Dim shTest As Worksheet
    FName = sFichier
    Set PDDoc = CreateObject("AcroExch.PDDoc")
    Rep = PDDoc.Open(FName)
 
    Set TextSelt = CreateObject("AcroExCh.HiliteList")
    TextSelt.Add 0, 32767
 
    wkPage = PDDoc.GetNumPages()
    For i = 0 To wkPage - 1
        Set PDPage = PDDoc.AcquirePage(i)
        Set PDText = PDPage.CreatePageHilite(TextSelt)
        wkCnt = PDText.GetNumText()
        For j = 0 To wkCnt - 1
            wkText = wkText & PDText.GetText(j)
            'wkText = wkText & vbTab & PDText.GetText(j)
        Next j
    Next i
    PDDoc.Close
 
    Set PDPage = Nothing
    Set PDText = Nothing
 
    Set oDO = New MSForms.DataObject
    oDO.Clear
    oDO.SetText wkText
    oDO.PutInClipboard
 
    Application.ScreenUpdating = False
    Set shTest = Worksheets("Feuil1")
    shTest.Cells.Clear
    shTest.Range("A1").PasteSpecial
 
 
 
    Set oDO = Nothing
    Set TextSelt = Nothing
    Set PDDoc = Nothing
 
    shTest.Range("Z1").Select
    Application.ScreenUpdating = True
End Sub

[kiki29]

Re, le code suppose que tu as installé Adobe Acrobat Pro ( pas Acrobat Reader )

[Debutant10]

Bonjour je vais télécharger la version gratuite Adobe Acrobat Pro.

Mais par la suite cette macro devrait être utilisé par plusieurs utilisateurs dans mon école. Y-a-t-il une possibilité de faire cela avec adobe normale ou en gratuit car on fait que déplacer le problème.

Le but est de faire cela simplement en VBA transfert pdf vers excel. Merci les pro pour votre solution car nous sommes bcps à chercher une solution simple en VBA. pdf to excel en VBA.

[kiki29]

Re, aucune garantie car la version d'essai doit-être limitée dans le temps, y a-t-il une version dite "étudiant" à un prix raisonnable ?
Je reste persuadé que dans ton cas la meilleure solution est de faire une recherche via Gog sur les convertisseurs de fichiers pdf en ligne. De plus tu n'obtiendras sans doute pas mieux que le fait d'enregistrer en texte avec le Reader. Voir aussi ABBYY ?

[Debutant10]

Un vrai inconvénient passer par google ect... pour il y a pas de solution simple et gratuite d'après ce que j'ai compris en VBA (pas facile et pas très clair pour les simples utilisateurs qui voudrait passer par VBA ces solutions nous paraissent pas exploitable).

Faisons plus simple alors si vba ne le permet pas gratuitement (sans passer par adobe PRO ect... un labyrinthe

Alors :

Autre méthode Et dans le cas ou je fais à la méthode simple fichier / enregistrer au format texte / --> le format passe en format .txt et donc comment remettre dans l 'ordre les données car tout et à la lignes pour les passer en excel.

Comment faire pour remettre sous forme de fichier excel ou . csv?

merci de votre aide on va y arriver merci les pro.

[kiki29]

Re, voir Manipulation des fichiers en VBA, la FAQ et l'enregistreur de macros, sans oublier via une recherche

[Debutant10]

Alors comment faire pour Transposer les données d'un format .txt qui sont référencées en ligne vers excel ?

ci-dessous ma macro : excel à excel, mon besoin

Code :

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

.txt vers excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Transposer()
'
' Transposer Macro
    Application.ScreenUpdating = False
    Sheets(1).Range(Cells(6, 3), Cells(6, 3).End(xlDown)).Copy
 
    Sheets("Feuil2").Range("C2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
 
End Sub