Discussion :

[alexandrefcsm]

Bonjour,

J'ai fait un bout de code pour me recopier un texte d'un PDF à une feuille EXCEL

Mais quand j'execute le code, celui-ci me supprime des informations dans la colonne B...

Quand je fais manuellement copier/coller, j'ai toutes mes informations .... Si vous voyez une explication je suis preneur



Code pour copier et coller

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
'noise
Shell "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe W:\Liste_de_fichier\16_20999\result\" & NameNoise, vbNormalFocus  'path & way
Application.Wait (Now + 2 / 3600 / 24)
SendKeys "{ENTER}", True
'copier le texte
SendKeys "^a^c^q", True
Application.Wait (Now + 2 / 3600 / 24)
SendKeys "%{F4}", True
'SendKeys ", True"
'coller dans l'onglet 2
Windows(ThisWorkbook.Name).Activate
ThisWorkbook.Activate
    Sheets("pdf-noise").Select
    Range("A1").Select
    ActiveSheet.paste

Code pour convertir (issue de la fonction enregistrer macro)

Code :

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

1
2
3
4
5
6
7
Sheets("pdf-noise").Select
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
    :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
    Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True

Merci d'avance

[Menhir]

Il est peut-être préférable que tu utilise le PasteSpecial de Range plutôt que le Paste de WorkSheet.
Essaye de remplacer les deux dernières lignes de ton code par :

Code :

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

Range("A1").PasteSpecial(xlPasteValues)

Si ça ne marche pas, tu peux remplacer la fin de ton code par :

Code :

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

1
2
3
4
ThisWorkbook.Sheets("pdf-noise").Activate
Columns(2).Insert
Range("A1").PasteSpecial(xlPasteValues)
Columns(2).Delete

C'est pas très beau mais ça peut résoudre ton problème.

[alexandrefcsm]

Bonjour Menhir,

La première méthode, c'était ce que je voulais faire initalement .... mais j'ai l'erreur 1004

Erreur d'éxécution '1004':
La méthode 'Range' de l'objet '_Global' a échoué

Et pour la rajout de la colonne, ca ne fait rien, j'ai toujours des données supprimés

[Menhir]

La première méthode, c'était ce que je voulais faire initalement .... mais j'ai l'erreur 1004

En le précédant d'un Sheet.Activate ? C'est curieux.

Essaye :

Code :

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

ThisWorkbook.Sheets("pdf-noise").Range("A1").PasteSpecial(xlPasteValues)

Et pour la rajout de la colonne, ca ne fait rien, j'ai toujours des données supprimés

Dans ces "données", n'y aurait-il pas des fonctions ?

[alexandrefcsm]

Pareil toujours cette erreur



C'est Allemand désolé ^^

Des fonctions, non c'est un simple copier coller d'un fichier texte et si j'avais des fonctions j'aurais le même problèmes manuellement.

Sérieusement je vois pas là, où peut être en résolvant cette erreur 1004

[Marc-L]

Bonjour,

différentes causes peuvent être la source de cette erreur …

La feuille de calculs est déprotégée au moins ?!

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …