Rom57970
Messages postés12Date d'inscriptionmercredi 18 mai 2011StatutMembreDernière intervention 7 juin 2011
-
18 mai 2011 à 10:06
Rom57970
Messages postés12Date d'inscriptionmercredi 18 mai 2011StatutMembreDernière intervention 7 juin 2011
-
18 mai 2011 à 14:19
Bonjour à tous,
Je dois automatiser la création d'un programme avec le logiciel Excel 2007 (en mode compatibilité 2003! )
Je dois insérer dans un fichier texte les lignes suivantes :
1.005 DOS correct [S1] 5520 insert "Volts" [M1]V
1.006 MATH M[2]=ACCV("Fluke 5520A","Volts",[M1])
Lors de la sauvegarde de mon programme en fichier .txt, j'obtien après ouverture les lignes suivantes équipées d'apostrophes :
[b]" 1.005 DOS correct [S1] 5520 insert "Volts" [M1]V"
" 1.006 MATH M[2]=ACCV("Fluke 5520A","Volts",[M1])" /b
Je souhaiterai savoir comment enlever ces apostrophes de manière simple sans me supprimer celles figurant autour de Volts et Fluke 5520A.
En vous souhaitant à tous une agréable journée et vous remerciant par avance.
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 18 mai 2011 à 12:56
Salut
Pour montrer du code, il y a la coloration syntaxique = 3eme icone à droite
Si tu ouvres un classeur avec un fichier texte, je pense qu'il y a d'autres paramètres à fournir à l'instruction .Open, ne serait ce que pour lui donner le séparateur de colonnes.
Le plus simple serait d'enregistrer une macro pendant que tu ouvres manuellement ce fichier en lui donnant toutes les options nécessaires.
Ta question portait sur l'enregistrement d'un fichier texte. Je ne vois pas trop pourquoi tu ouvres un classeur (...)
Pour écrire un fichier texte simplement, utilise l'instruction Open - voir l'aide
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Rom57970
Messages postés12Date d'inscriptionmercredi 18 mai 2011StatutMembreDernière intervention 7 juin 2011 18 mai 2011 à 10:45
Bonjour,
Voici le programme écrit actuellement :
-------------------------------------------------------------
Sub Boutonapplicationcorrection()
'Boîte de dialogue pour requête d'exécution de la procédure d'édition de fichiers de corrections.
Dim Msg As String, Title As String
Dim Config As Integer, Réponse As Integer
Msg = "Etes-vous sûr(e) d'effectuer cette opération?"
Msg = Msg & vbNewLine & vbNewLine
Msg = Msg & "Vous allez générer les fichiers de correction pour votre multicalibrateur MET-ELM-001 de type 5520A."
Msg = Msg & "Attention! Cette action s'effectue lors d'une nouvelle saisie de valeurs d'étalonnage du générateur!"
Title = "Message important!"
Config = vbYesNo + vbQuestion
Réponse = MsgBox(Msg, Config, Title)
If Réponse = vbYes Then
'Implantation dans le programme de correction ; Correction_VDC_330mV.txt :
Workbooks.Open Filename:="H:\Materiaux\Projets\INM\3-Production\Electrique\Automatisation\Stage - 11.04.11 - 18.06.11\Génération des fichiers de correction 5520A - MET-ELM-001\Correction_VDC_330mV.txt"