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