Incompréhension : Résultat different entre VBA et Manuellement (copy, paste, convertir)

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

Pièce jointe 214084Pièce jointe 214085

Code pour copier et coller

Code:

---

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:

---

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

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:

---

Range("A1").PasteSpecial(xlPasteValues)

---

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

Code:

---

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.

Bonjour Menhir,

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

Citation:

---

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

Citation:

---

Envoyé par alexandrefcsm

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:

---

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

---

Citation:

---

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 ?

Pareil toujours cette erreur

Pièce jointe 214164

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

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, …

Euh non, j'ai jamais mis de protection sur le classeur ni la feuille

j'ai trouvé une solution de secours ... pas trés jolie mais ca marche ...

Je recolle par dessus après avoir converti.....

Je clôs le sujet si quelqu'un a une explication, je suis pas contre un petit message bisous et merci pour ceux qui ont répondu à mon appel à l'aide