Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Script

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion flots
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

flots

XLDnaute Occasionnel
Bonjour à tous sur le forum,

une petite question à ceux qui utilisent Excel sur Mac (autant dire peu...)

j'ai des fichiers .txt à ouvrir avec excel,
fichiers en grande quantité,
pas d'enregistrement pour l'instant à générer,
je ne fais que copier coller après sur 4 fichiers excel suivant les données à récupérer.

Je cherche en fait à minimiser les manipulations d'ouverture de ces fichiers .txt (sur sept. j'en ai eu 66, mais ça peut être plus). Un collègue m'a mis la puce à l'oreille à propos des scripts, j'ai navigué un peu sur le net, j'ai pu voir qu'il existait AppelScript, mais là je n'y connais rien de rien, ce pourquoi ma demande : est-il possible de générer un script qui ouvre ses fichiers en les transformant automatiquement au format .xls ?

De plus, si j'arrive à générer un script pour l'ouverture de ces fichiers,
est-il possible d'envisager par la suite de "scripter" les données dans ces fichiers et que leur copie s'effectue automatiquement sur les fichiers concernés ??

Que de questions, n'est-ce pas ???

En tout cas merci par avance pour les réponses à venir.
 
Trier par date Trier par votes
Re : Script

Bonjour flots

une tentative !!!
à tester
sur PC, je ne sais pas s'il y a des différences pour Mac

Code: 
Sub LectureTxt()

Dim myFso As Object, StoTxt As Object, CsvLine As String

Set myFso = CreateObject("Scripting.FileSystemObject")

FileName = ThisWorkbook.Path & "Nomdufichier" & ".txt"

Set TXTstream = FSO.OpenTextFile(FileName, ForAppending, Create)
' Boucle de recherche
' -------------------
While Not StoTxt.AtEndOfStream

' Stockage des données lues
' -------------------------
    CsvLine = StoCsv.ReadLine

    With Sheets("Feuil1")
    .Cells(LigDes, 1) = Split(CsvLine, ";")(1)
    .Cells(LigDes, 2) = Split(CsvLine, ";")(2)
    .Cells(LigDes, 3) = Split(CsvLine, ";")(3)
    .Cells(LigDes, 4) = Split(CsvLine, ";")(4)

Wend

' Fermeture du fichier lu
' -----------------------
StoTxt.Close

' Remise à zéro des variables
' ---------------------------
Set StoTxt = Nothing: Set myFso = Nothing

End Sub
 
Vote positif 0 Vote négatif
Re : Script

Bonjour à tous,
merci Jordan pour ta réponse que je me suis empressée de tenter de mettre en pratique.

Lorsque je prends ta formule et que je lance "Exécuter" :
Sub LectureTxt (en-tête) est sélectionné

et j'ai l'indication suivante :
Erreur de syntaxe Un(e) identificateur ne peut pas se trouver après cet identificateur

autant dire qu'avec mes connaissances "zéro" en la matière, je n'y capte rien de rien.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Autres Protection de données
Réponses
6
Affichages
316
TooFatBoy
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
494
agnesd
A
B
  • Résolu(e)
XL 2021 Impossible d'annuler une modification dans un fichier
Réponses
5
Affichages
315
BJ1
B
  • Question Question
XL 2021 FINDXTREME: Je compte sur vos avis sur ce projet … Par avance MERCI
Réponses
10
Affichages
377
p'tit vieux
Créez votre propre moteur de recherche pour vos recettes de cuisine en HTML !
Réponses
1
Affichages
1 K
dysorthographie
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
1 K
chris
L
  • Question Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
428
lilie17
L
6
  • Question Question
XL 2019 Générer mails sous conditions
2
Réponses
26
Affichages
2 K
Oneida
G
  • Question Question
XL 2019 Tableau VBA, lien entre fichiers
Réponses
5
Affichages
672
Compte Supprimé 979
C
S
  • Résolu(e)
Microsoft 365 Power Query Lancer un ensemble de requetes sur plusieurs fichiers excel
Réponses
2
Affichages
726
Sokko
S
A
  • Question Question
Microsoft 365 INDEX+EQUIV dont le resultat duplique les lignes par erreur
Réponses
5
Affichages
480
aeca
A
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
808
arnoldbrice19
A
Q
  • Question Question
Google Sheets Script permettant de copier d'un doc google sheet A et un script permettant de coller sur un doc google sheet B
Réponses
0
Affichages
1 K
Quent17
Q
F
  • Question Question
Microsoft 365 Générer une liste de colisage automatique
Réponses
5
Affichages
998
R@chid
S
  • Question Question
XL 2019 Modifier les "limitations/plages" d'une feuille
2
Réponses
15
Affichages
1 K
ST4423
S
X
  • Question Question
XL 2019 Recherche valeur et déterminer ligne
Réponses
8
Affichages
865
Phil69970
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
898
Lu76Fer
J
  • Question Question
XL 2013 Comment lier plusieurs tableaux de plusieurs feuilles?
Réponses
2
Affichages
594
johh
J
A
  • Résolu(e)
Microsoft 365 Excel 365 x Power Query : suivi campagnes promotionnelles
Réponses
4
Affichages
1 K
Atsuki
A
T
  • Question Question
Microsoft 365 Empêcher Excel de formater automatiquement les dates
Réponses
2
Affichages
992
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…