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

Importation de données externe via une Macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eavan
  • 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
E

eavan

XLDnaute Nouveau
Bonjour,

Je suis débutant en Macro donc c'est pour ça que je viens vers vous.
Voila ce que je cherche à faire:


Dans mon entreprise nous avons un PC de supervision des installations techniques, sur ce PC je fait un archivage toute les heures de la température extérieur et diverses autres données. Donc cela me crée un fichier .csv toute les heures.
Je cherche une façon automatique d'importer les données de ces fichiers dans un tableau afin d'en faire un graphique.
Actuellement je le fait manuellement mais c'est fastidieux (24 fichiers par jours à importer).

J'ai réussi à le faire pour un fichier avec l'enregistreur de macro.
Maintenant j'aimerais pouvoir choisir le fichier à importer ainsi que la colonne.mais là mes connaissances sont trop faibles
Ci dessous le code de ma macro:


Sub tempe()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Mes documents_local\GTC\R0006\BALLO44F.csv", Destination:=Range("C3" _
))
.Name = "BALLO44F"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1250
.TextFileStartRow = 4
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileOtherDelimiter = """"
.TextFileColumnDataTypes = Array(9, 9, 1)
.TextFileDecimalSeparator = "."
.Refresh BackgroundQuery:=False
End With
End Sub
 
Trier par date Trier par votes
Re : Importation de données externe via une Macro

bonjour Eavan
tu appelles l'userform
tu entres un index de colonne et clic sur bouton valider
tu choisis ton dossier,ton fichier
dans le code tu peux adapter le nom de la feuille
à bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Importation de données externe via une Macro

Merci ça marche bien, je l'ai un peu adapté notamment la partie importation de donnée.

Par contre est il possible de prendre plusieurs fichiers en même temps et de les placer dans les colonnes de façon chronologique ?
Ou bien se servir du nom de fichier qui commence toujours par BALLO***.csv où les 3 * représente un nombre en hexadécimal qui s'incrémente a chaque fois que j'ai un fichier de créé, 000,001,002,003,004,005,006,007,008,009,00A,00B,00C,00D,00E,00F,010 etc...
 
Vote positif 0 Vote négatif
Re : Importation de données externe via une Macro

bonjour Eavan
userform1
un bouton pour choisir dossier et aller chercher les fichiers
les noms des fichiers sont mis triés dans listbox1
ensuite bouton valider,traitent les fichiers
tu as un résultat intermédiaire dans feuil3
module1 à 4 pour les différentes procédures
fait plusieurs essais concluants pour feuil1
Cijoint.fr - Service gratuit de dépôt de fichiers
à bientôt pour la suite
 
Vote positif 0 Vote négatif
Re : Importation de données externe via une Macro

Bonjour,

Désolé de revenir si tard mais j'avais d'autres chantiers en cours.
@Bebere: entre temps j'ai changé la disposition de mon tableau car on ne peu pas dépasser 256 colonnes (en plus je n'avais pas vu ta réponse).
En fouillant sur internet j'ai réussi a bricoler une macro qui marche bien:

Sub importlignes()
Dim Fichier As String, Chemin As String
Dim i As Long

'Répertoire contenant les fichiers
Chemin = "D:\Circutor\GTC\R0006"
Fichier = Dir(Chemin & "\*.csv")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir
Loop
End Sub

Sub ImportText(NomFichier As Variant, Cible As Range)
Dim QT As QueryTable

Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
NomFichier, Destination:=Cible)

With QT
'Définit les séparateur de colonnes dans le fichier txt
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1250
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileOtherDelimiter = """"
.TextFileColumnDataTypes = Array(9, 9, 9, 9, 1, 9, 1, 9, 1, 9, 9, 9, 9, 9, 1, 9, 1, 9, 9, 9, 9, _
9, 1, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9, 9, 9 _
, 9, 9, 9, 1, 9, 9, 9, 9, 9, 9)
.TextFileDecimalSeparator = "."
.Refresh
End With
End Sub
Par contre maintenant j'ai un nouveau problème:
cela arrive que le PC qui enregistre les fichiers plante (comme ce week-end pars exemple) donc je n'ai pas de fichiers depuis samedi 4h jusqu'à ce matin 7h.
Dons si j'applique ma macro je me retrouve décalé dans mes dates.
J'ai donc voulu insérer des fichiers dans mon dossier avec les dates et heures qu'il me manquait.
Le problème est que ma macro fait le tri dans mon dossier sur les noms de fichiers (ordre alphabétique je pense) je cherche donc à modifier ma macro pour faire le tri sur la date de modification du fichier (sub importlignes) mais je ne trouve pas la solution.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Importation de données externe via une Macro

bonjour Eavan
importlignes n'a pas de tri
ton code prend tous les fichiers *.csv du dossier
il faut d'abord faire une liste ensuite la trier
faire une liste des fichiers traités où les mettre dans un autre dossier
c'est ce que je pense
à bientôt
 
Vote positif 0 Vote négatif
Re : Importation de données externe via une Macro

Re,
Le problème est que si j'importe mes fichiers avec la date qui est dans le fichier .csv cela me fait 2 lignes par fichiers donc impossible (pour moi) de les trier.
Il n'est pas possible d'insérer dans sub importlignes un tri par date et heure de modification du fichier ou bien de lire la date et l'heure dans le fichier et de faire un tri ?
 
Vote positif 0 Vote négatif
Re : Importation de données externe via une Macro

bonjour Eavan
le code de l'userform est changé
met les données dans la 1ère colonne vide
et enregistre le nom du fichier,la date et l'heure dans fichierstraités
à bientôt
 

Pièces jointes

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

  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
99
Staple1600
  • Question Question
Autres importer donnees externes
Réponses
1
Affichages
365
don_pets
J
  • Résolu(e)
XL 2016 Placer des données dans un fichier Excel avec un code VBA
Réponses
2
Affichages
828
Staple1600
J
  • Question Question
XL 2010 importer plusieurs fichier txt dans le même classeur
Réponses
9
Affichages
2 K
Staple1600
C
  • Question Question
Microsoft 365 Problème avec < Refresh BackgroundQuery >
Réponses
2
Affichages
1 K
Coco_lac
C
P
  • Question Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
T
  • Question Question
XL 2010 Import et enregistrement d'un fichier CSV en Excel
Réponses
0
Affichages
1 K
Tophe2
T
V
  • Question Question
XL 2016 Mise en forme fichier texte sous excel
Réponses
7
Affichages
2 K
VBA
V
P
  • Question Question
Erreur 1004 sur VBA pour novice
Réponses
5
Affichages
2 K
gosselien
B
  • Question Question
Recopie fichier texte
Réponses
3
Affichages
789
Bruce68
B
P
  • Question Question
Excel 2010 vers Excel 2003 - Erreur 1004 .Refresh backgroundquery :=False
Réponses
1
Affichages
1 K
Caillou
C
P
  • Question Question
Requête excel : Coordonnées GPS google Map
Réponses
2
Affichages
1 K
Phagege@
P
X
  • Question Question
question simple de variabilisation
Réponses
0
Affichages
557
xorre
X
C
  • Question Question
Import fichier texte choix de la colonne
Réponses
3
Affichages
1 K
creal69360
C
  • Question Question
Récupérer des données d'un CSV pour les replacer dans excel par VBA
Réponses
2
Affichages
1 K
Oraff
T
  • Question Question
Macro VBA choix + import fichier texte à largeur fixe
Réponses
4
Affichages
5 K
THERY
T
  • Question Question
Difficulté code: chemin fichier pour import données
Réponses
3
Affichages
738
cathodique
R
  • Question Question
Importer plusieurs fichiers à la suite sur Excel
Réponses
4
Affichages
2 K
richert90
R
A
  • Question Question
EXCEL - VBA - Afficher la date de création d'un fichier dans une cellule excel
Réponses
1
Affichages
2 K
vgendron
R
  • Question Question
Ordre import de fichiers sur Excel (VBA)
Réponses
6
Affichages
3 K
richert90
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…