Discussion :

[michael2706]

Bonjour,

Nouveau sur le forum et débutant dans la programmation VBA, j'aurais besoin de votre aide.

Je suis ingénieur en Bureau d'études et je fais trés souvent du calcul de structure.

Pour se faire, je dois importer des coordonnées de points dans un fichier .por que je peux ouvrir avec le bloc note.

Les coordonnées sont situées dans une colonne de mon fichier excel et je voudrais remplacer une chaîne de caractère ( par exemple : "coordonnees a inserer") par ce qui est présent dans ma colonne.

Comment puis-je faire ?

Merci de votre aide

[Menhir]

Pour se faire, je dois importer des coordonnées de points dans un fichier .por que je peux ouvrir avec le bloc note.

Il faudrait que tu en dises plus sur le format de ce fichier pour savoir comment les données y sont stockées : est-ce des colonnes à largeur fixe (quelle est la largeur des différents champs) ou les données sont-elles séparées par un séparateur (lequel) ?

Par exemple, pourrais-tu faire une copie d'une dizaine de lignes dans ton message, de préférence encadré de balises CODE (l'icone # dans l'éditeur).

Les coordonnées sont situées dans une colonne de mon fichier excel et je voudrais remplacer une chaîne de caractère ( par exemple : "coordonnees a inserer") par ce qui est présent dans ma colonne.

La encore, quand tu dis que les données sont située dans une colonne de ton fichier Excel, ça n'est pas évident à comprendre.
Pourrais-tu faire une copie d'écran de la feuille (avec les n° de lignes et colonnes) pour qu'on puisse comprendre comment tes données destination sont stockées ?

Une fois tout ça connu, le problème devrait être assez simple à résoudre :

1. Ouverture du fichier .por > Méthode OpenText de Workbooks
2. Copie de la colonne source : méthode Copy sur le Range de la source
3. Collage dans la zone destination : méthode PasteSpecial sur le Range de la destination
4. Fermeture du classeur .por : méthode Close de Workbook

[michael2706]

Vous trouverez en pièce jointe mon fichier excel avec les données et les fichiers à modifier ( avant et après la modif).

C'est donc les caractères "coordonnees a inserer" que je veux remplacer.

Merci

[Menhir]

Vous trouverez en pièce jointe mon fichier

Comme beaucoup de participants à ce forum, je n'ouvre pas de fichiers joints, entre autre pour les raisons expliquées ici : https://www.developpez.net/forums/d8...s-discussions/

[ARTURO83]

Bonjour,

Pour ceux qui n'ouvrent pas les fichiers,
voici le contenu du fichier ZIP, 2 fichiers texte avec extension.POR avant et après importation des données situées en colonne A d'un fichier excel (les données sont à importer à l'emplacement surligné en jaune "coordonnees a inserer"
Pièce jointe 502777

A Michael2706, je vous propose, si cela vous convient
Dans le fichier excel, copiez les données à insérer dans la feuille "Données à insérer",
Copiez également dans la feuille "Fichier POR" le contenu du fichier .POR avant import.
Cliquez sur le bouton "Insertion des données"

le programme cherche la chaîne de caractère "coordonnees a inserer", et y insère le contenu trouvé dans la feuille "Données à insérer"

Ci joint le fichier en exemple, cliquez sur le bouton "Insertion des données"
Pièce jointe 502780

le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Insertion_des_donnees()
    Dim f1 As Worksheet, f2 As Worksheet
    Application.ScreenUpdating = False
    Set f1 = Sheets("Données à Insérer")
    Set f2 = Sheets("Fichier POR")
    Set c = f2.Columns("A").Find("coordonnees a inserer", LookIn:=xlValues, lookat:=xlWhole)
    If Not c Is Nothing Then
        f1.Range("A1:A" & f1.[A100000].End(xlUp).Row).Copy
        f2.Cells(c.Row, "A").Insert Shift:=xlDown
    End If
End Sub

Cdlt

[Igloobel]

Bonjour à tous,

Voici un tuto qui explique clairement comment gérer des fichiers texte.

https://warin.developpez.com/access/fichiers II. Les fichiers textes

Je m'en suis servi bien des fois pour gérer et générer des fichiers texte

A+

[michael2706]

Ca fonctionne !!!!!

Merci beaucoup pour votre aide.

Maintenant, il faut que je puisse insérer mes données dans un fichier qui est choisi via une "inputbox" par l'utilisateur.

J'utilise le fonction shell pour ouvrir mon document .txt :

Code :

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

Shell("C:\WINDOWS\system32\notepad.exe D:\TEMP\Valeur.por", 1)

Et je voudrais que "valeur" soit remplace par la donnée d'entrée dans l'inputbox.

Code :

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

1
2
3
4
5
6
7
Dim resultat As String                                          'déclaration d'une variable en tant que chaine de caractères
 
    resultat = InputBox("Nom du fichier RDM6", "Fichier...")     'Affichage d' l'inputbox pour écrire dans la variable
 
    If resultat <> "" Then                                          'Si la valeur est différente de rien, on affiche le résultat
       Range("B10") = resultat
    End If

Merci

[ARTURO83]

Bonjour,

Comme ceci

Code :

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

Shell("C:\WINDOWS\system32\notepad.exe D:\TEMP\" & Valeur & ".por", 1)

Cdlt

[Menhir]

Maintenant, il faut que je puisse insérer mes données dans un fichier qui est choisi via une "inputbox" par l'utilisateur.

Il serait bien plus propre d'utiliser GetOpenFilename.
https://docs.microsoft.com/fr-fr/off...etopenfilename

J'utilise le fonction shell pour ouvrir mon document .txt :
Shell("C:\WINDOWS\system32\notepad.exe D:\TEMP\Valeur.por", 1)

Piloter le Notepad, c'est assez compliqué (perso, je n'ai jamais réussi à mettre la main sur une doc traitant du sujet).

Là encore, il serait bien plus simple d'ouvrir le fichier dans Excel avec un OpenText.
https://docs.microsoft.com/fr-FR/off...books.opentext

Et je voudrais que "valeur" soit remplace par la donnée d'entrée dans l'inputbox.

Remplacer ce bout de chaine de caractère pourrait se faire avec un Replace de Range.
https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

Et tu sauvegarde le résultat avec un simple Save ou SaveAs.

[michael2706]

Bonjour,

@menhir, je ne peux pas utiliser un opentext car mon fichier est un .por, et excel n'arrive pas à me le gérer convenablement car quand je l'ouvre, il me le créée car n'existe pas encore ( comme si je voulais faire une création d'un nouveau fichier)

C'est pour cela que j'utilise notepad.

Par contre, pour faire tout ce qui est réponse aux boites de dialogues ( voulez vous créer ce fichier?), j'utilisais les sendkeys.

Malheureusement, cela ne fonctionne pas quand j'appelle la macro via un vbscript.


Cordialement,

[Menhir]

je ne peux pas utiliser un opentext car mon fichier est un .por, et excel n'arrive pas à me le gérer convenablement

Je ne vois pas pourquoi OpenText aurait des difficultés à ouvrir un fichier qu'il est possible d'ouvrir avec NotePad.
Encore faudrait-il paramétré convenablement OpenText.

quand je l'ouvre, il me le créée car n'existe pas encore ( comme si je voulais faire une création d'un nouveau fichier)

Je ne comprends pas ton explication.

Par contre, pour faire tout ce qui est réponse aux boites de dialogues ( voulez vous créer ce fichier?), j'utilisais les sendkeys.

C'est généralement une mauvaise idée.

Malheureusement, cela ne fonctionne pas quand j'appelle la macro via un vbscript.

S'il y a des informations que tu ne donnes pas, tu ne pourras pas avoir de réponse correcte.