Discussion :

[MarcelG]

Salut le Forum,

Je ne sais si je suis sur le Forum adapté. ^Faîtes-le moi savoir.

Existe-til un moyen de reconvertir un dichier Pdf issu d'un fichier Excel (Pdf Creator) vers un fichier Excel.

Le fichier Excel d'origine est perdu.

La toile donne plusieurs solutions, gratuites ou payantes, mais je souhaiterais connaître votre avis.

[fring]

Bonjour,

A mon avis (puisque tu le demandes ) tu vas pouvoir récupérer les données brutes par un simple copier/coller mais tu ne pourras pas récupérer les mises en page et encore moins les formules qui se trouvaient dans le fichier d'origine

[MarcelG]

Bonjour Fring,

Merci pour ta réponse.
Commment dès lors ouvrir un fichier Pdf par macro VBA Excel et copier son contenu ?

[kiki29]

Salut,utiliser Acrobat Reader (gratuit) Menu Fichier/Enregistrer au format texte puis ensuite voir http://excel.developpez.com/faq/?page=ChapFichiersTxt

ou alors passer par des SendKeys et des tempos ...

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
Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
 
Private Sub Ouvrir(sNomFichier As String)
Dim Rep As Integer, hwnd As Long
    Rep = ShellExecute(hwnd, "Open", sNomFichier, 0&, 0&, SW_SHOWNORMAL)
End Sub
 
Sub Tst()
Dim sDossier As String
Dim sFichier As String
    sDossier = ThisWorkbook.Path
    sFichier = Feuil1.Range("A1")
 
    With Feuil2
        .Activate
        .Cells.Clear
        .Range("A1").Select
    End With
 
    Ouvrir (sDossier & "\" & sFichier)
 
    Application.Wait (Now + TimeValue("0:00:05"))
 
    SendKeys "^a"
    SendKeys "^c"
 
    Application.Wait (Now + TimeValue("0:00:05"))
    SendKeys "^v"
 End Sub

[MarcelG]

Bonjour Fring, Bonjour Kiki et les autres.

Merci pour vos réponses.

Le tuto de Silkyroad : OK


Ta 2ème proposition, Kiki :

Le copier fonctionne bien mais le code ne fait pas activer le classeur pour le collage.
Autrement dit, la zone copiée reste dans le presse-papier.

Une question (pour mon information) : A quoi sert le

Code :

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

Private Declare Function

en début de module ?
Pourquoi déclarer une fonction à ce niveau ?

Merci.