Discussion :

[Runsh63]

Bonjour à vous toutes et tous,

Je reçois un fichier brut en PDF avec des données chiffrées sous forme de tableau.
Après avoir copier / coller ces données dans un Excel, j'ai besoin de les convertir car elles sont toutes sur une colonne par ligne.
Je passe par une macro car il y a beaucoup de lignes. Le principe est simple. En fonction du nombre de caractère contenu dans chaque ligne, la conversion (en largeur fixe), ne se fait pas selon les mêmes critères. Voici donc mon code :

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
Sub DataTreatmentTVAD()
 
Dim LRTVAD1 As Integer, LRTVAD2 As Integer, i As Integer, j As Integer
 
Application.ScreenUpdating = False
 
    With Sheets("Traitement TVA déductible")
 
    LRTVAD1 = .Cells(.Rows.Count, 1).End(xlUp).Row
 
        For i = To LRTVAD1
        j = Len(Trim(.Cells(i, 1).Value))
 
            If j < 35 Then
                .TextToColumns Destination:=.Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(26, 1), Array(42, 1), Array(59, 1)), TrailingMinusNumbers:=True
            ElseIf j > 35 And j > 43 Then
                .TextToColumns Destination:=.Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(26, 1), Array(37, 1), Array(58, 1)), TrailingMinusNumbers:=True
            Else
                .TextToColumns Destination:=.Cells(i, 1), DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(12, 1), Array(24, 1), Array(39, 1), Array(58, 1)), TrailingMinusNumbers:=True
            End If
 
        Next i
 
    End With
 
Application.ScreenUpdating = True
 
End Sub

Je rencontre déjà un premier problème. Sur ma première cellule (A1), la valeur j est de 71. si je tape la formule

Code :

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

=NBCAR(SUPPRESPACE(A1))

en cellule B1, il me donne 30. Quelqu'un peut-il m'expliquer ce que j'ai mal codé SVP ?
Par ailleurs, et là c'est bloquant, quand je lance la macro, voilà le message d'erreur rencontré : "Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet".
Où est-je fait l' (les) erreur(s) ?
Je vous remercie par avance pour votre aide et vous souhaite une agréable journée.

[Runsh63]

J'ai réussi à régler le deuxième problème.
Par contre je ne comprends toujours pas pourquoi ma variable "j" est toujours égal à 71 alors qu'écrire la formule à la main dans Excel me ramène les valeurs que j'attends (30, 32, 40, etc...).
Quelqu'un pourrait-il m'aider SVP ?
Merci d'avance.

[pierreleroy]

Salut !

Je suis un gros débutant en VBA mais si tu met un "Espion" sur i ou j, vérifie si les valeurs changent (surtout pour i).
Ensuite, si tout cela fonctionne essaye avec les fonction: exemple, ".Cells(i, 1).value" puis Trim(.Cells(i, 1).Value). C'est pour voir d'où le problème peut venir.

D'autre pars, quand tu colle ton pdf. Tu as un truc qui s'appelle "Assitant de l'importation de texte". Il te permet de découper exactement en fonction du nombre de caractère. Il doit être possible de l'utiliser en VBA.

Cordialement,

Pierre =D

[Denis la Malice]

Bonjour,
ton code n'est pas interprétable puisque la ligne :

Code :

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

For i = To LRTVAD1

est incorrecte. Il faut surement mettre quelque chose comme :

Code :

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

For i = 1 To LRTVAD1

Pour trouver une erreur, il faut avoir le code qui génère cette erreur et non un code qui ressemble à celui qui plante.

Par pure curiosité, ça veut dire quoi LRTVAD1 ? Tu n'as rien trouvé de plus explicite comme nom de variable ? N'oublie pas que tu n'écris pas uniquement pour t'y retrouver, mais aussi pour permettre à d'autres de s'y retrouver. Ou bien renonce à demander de l'aide sur les forums

Un numéro de ligne doit être déclaré en Long et non en Integer. La fonction Len renvoie un Long. Donc j doit être de type Long.