transcrire une formule envba

[f69815]

bonjour le forum,
j'ai créé une formule " =SI(ESTERR(TROUVE(CAR(146);A1));A1;REMPLACER(A1;TROUVE(CAR(146);A1);1;CAR(39))) ", et je voudrais la transcrire en vba, car il n'y a pas toujours le même nombre de ligne à traiter.
merci de votre aide.

 

[Pierrot93]

Re : transcrire une formule envba

Bonjour,

peut être nous indique ce que cette formule est sensée faire et nous donner un petit fichier représentatif des données à traiter...

bon après midi
@+

 

[f69815]

Re : transcrire une formule envba

bonjour pierrot,

pas simple à expliquer
le car(146)=’ alors que le car(39)='(simple cotte).
je récupère du texte pdf, avec freeocr, et il me met des car(146) pour les simples cottes.
ce texte me sert à remplir des formulaires pdf, via des fichiers "fdf".

mais dans mon formulaire ce fameux car(146) se traduit par "TM", ce qui donne lTMartiste à la place de l'artiste.

mais si dans mon texte dans excel je remplace " ’ " par " ' ", dans mon formulaire tout est bien. d'ou la nécessitée de la formule mais en vba.


voici le code qui permet le remplissage du formulaire :
Sub EditionFeuilleAcrobat()
'===================
' Permet de créer le fichier FeuilleDevoir.fdf,
'qui alimente le formulaire "S-89-F-1 feuille de devoir.pdf"
'===================
Dim Fichier As String
Fichier = "H:\pdf\FeuilleDevoir.fdf"
Sheets("fdf").Select
Range("A1:A349").Select
Selection.Copy
'===================
'Ajoute une nouvelle feuille pour coller uniquement les valeurs de la feuille "FDF"
'===================
Sheets.Add After:=Sheets(Sheets.Count)
'-------------------

'===================
'Colle les valeurs
'===================
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'-------------------

'===================
'Ouvre le fichier "FeuilleDevoir.fdf" pour écrire les valeurs
'===================
Open Fichier For Output As #1
For i = 1 To 349
Print #1, Range("A" & i) 'renvoie la valeur cellule A(i) dans le fichier txt
Next i
Close #1 ' ferme le fichier ouvert
'--------------------

'====================
' supprime la feuille créée pour coller uniquement les valeurs
'====================
ActiveWindow.SelectedSheets.Delete
'--------------------

'====================
'Lance le fichier créé ainsi que le formulaire "S-89-F-1 feuille de devoir.pdf" rempli
'====================
Shell ("C:\Program Files (x86)\Adobe\Reader 10.0\Reader\AcroRd32.exe " & Fichier), vbMaximizedFocus
'--------------------
End Sub

 

[Pierrot93]

Re : transcrire une formule envba

Re,

essaye peut être de passer par la conversion de données....

 

[f69815]

Re : transcrire une formule envba

ce que tu entends par conversion de données c'est données/ convertir ?

 

[Pierrot93]

Re : transcrire une formule envba

Re,

oui, tout à fait...

 

[f69815]

Re : transcrire une formule envba

il me semble que c'est uniquement pour découper un champ en plusieurs, suivant des critères bien déterminés. et mon fameux caractères n'est pas toujours à la même place.

 

[Pierrot93]

Re : transcrire une formule envba

Re,

non pas seulement, regarde dans l'aide vba la méthode "TextToColumns", t'en dira un peu plus...

 

[f69815]

Re : transcrire une formule envba

désolé pierrot, je ne vois pas la différence, et surtout comment remplacer un caractère par un autre.

 

[Pierrot93]

Re : transcrire une formule envba

Re,

As tu essayé ? sans voir un extrait du fichier en question, difficile pour moi d'en dire plus....

 

[f69815]

Re : transcrire une formule envba

voici un exemple

 

[Pierrot93]

Re : transcrire une formule envba

Re,

mais as tu essayé ???

 

[f69815]

Re : transcrire une formule envba

oui, mais sûrement pas comme il faut, peux-tu m'expliquer, merci

 

[Pierrot93]

Re : transcrire une formule envba

Re,

mais plutot en pj le fichier xls dont la colonne reste à convertir.... ca se trouve c'est une mauvaise piste...

 

[f69815]

Re : transcrire une formule envba

voici, et merci de ton implication