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

Microsoft 365 Import Donnes issu de fichier CSV

Créer une discussion

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
G

GClaire

XLDnaute Impliqué
Salut les exceliennes(iens)

je continue sur le fichier de mon ami.

Il reçoit régulièrement de nouveaux thème.
Ces nouveaux thèmes sont dans un fichier CSV,

je tente désespérément d'importer ces données dans mon fichier, mais cela ne se passe pas comme il faut, lol

Ce que je cherche a faire

1) Rechercher le fichier (Qui n'aura jamais le même nom, mais sur le bureau) avec le juste chemin (Sans son nom) dans la cellule "B4" de la feuille "Paramètres", si rien est renseigné dans cette cellule, faire une recherche jusqu'au bureau.

2) Importer les données du fichier trouvé, dans la feuille "Nouveau Theme" de la colonne "A:G"

pour le moment cela importe, mais cela ne garde pas les colonnes comme dans le fichier, je me doute que c'est du fait que c'est un CSV, mais je ne vois pas ce qu'il faut faire.

Il y a peut être d'autres choses qui ne vont pas dans ce code, mais j'ai tenté de faire par rapport a ce que j'ai pu voir sur le forum et adapté.

Si vous avez la solution

Par avance, merci,

Passez une bonne soirée

G'Claire
 

Pièces jointes

Trier par date Trier par votes
Bonsoir @GClaire

Puisque tu utilises Office 365 pourquoi ne pas utiliser Power Query ?
(inclu dans Excel)
C'est très simple à utiliser

Importer des données à partir de sources de données (Power Query) - Support Microsoft

Utilisez Power Query dans Excel pour importer des données dans Excel à partir d’un large éventail de sources de données populaires, notamment CSV, XML, JSON, PDF, SharePoint, SQL, etc.
support.microsoft.com

PS: Il y a d'autres tutos sur le net, notamment des videos
 
Vote positif 0 Vote négatif
Hello Staple 1600, le firum

J’avais fais un test à la mano d’import, en tant que fichier CSV, il ne le faisait pas

Je comprends pas trop.

J’ouvre le fichier toutes les colonnes y sont, je l’importe via ce code, et bien ça fait n’importe quoi.

Merci

Bonne soirée

G’Claire
 
Vote positif 0 Vote négatif
Re

Je viens de retester, cela a fonctionné.

J'ai utilisé l'enregistreur de macro afin de voir ce que cela donnait.

VB: 
Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.Queries.Add Name:="openquizzdb_259 (3)", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Csv.Document(File.Contents(""C:\Users\jz52353491\Desktop\openquizzdb_259.csv""),[Delimiter="";"", Columns=10, Encoding=65001, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(Source,{{""Column1"", Int64.Type}, {""Column2"", type text}, {""Column3"", type text}, {""Column4"", type text}, {""Column5"", type text}, {""" & _
        "Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type text}, {""Column10"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""openquizzdb_259 (3)"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [openquizzdb_259 (3)]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "openquizzdb_259__3"
        .Refresh BackgroundQuery:=False
    End With
    ActiveSheet.ListObjects("openquizzdb_259__3").ShowHeaders = False
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
End Sub

Je vais essayer d'adapter pour que ce soit plus adapté au besoin, mais...

Merci

G'Claire
 
Vote positif 0 Vote négatif
Bonsoir GClaire, JM,

Avec une macro on peut choisir le fichier CSV à importer :
VB: 
Sub ImporterDonneesCSV()
Dim fichier As Variant, x%, a$(), n&, b$(), i&
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Workbooks.OpenText fichier, semicolon:=True, Local:=True
ActiveSheet.UsedRange.Copy Feuil2.[A1]
ActiveWorkbook.Close
Columns.AutoFit 'ajustement largeurs
Application.ScreenUpdating = True
MsgBox "Données CSV importées avec succès"
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Stapple1600, le forum

Oui j'y suis arrivé

Cela marchotte, lol

J'ai crée avec l'enregistreur de macro, de manière a pour voir refaire avec automation, mais il me dit que la requête existe déjà, donc pour le moment je l'efface, mais pas le bon moyen je pense.

je peaufine

Merci

bonne soirée.

G'Claire
 
Vote positif 0 Vote négatif
GClaire à dit:
j'avais adapté un code qui le faisait, mais l'import, me met les caractères spéciaux.

Regarde la pièce jointe 1195057

Voili le soucis.
Cliquez pour agrandir...
Ce n'est pas un souci, il suffit de les remplacer (je n'ai pas tout fait) :
VB: 
Sub ImporterDonneesCSV()
Dim fichier As Variant, x%, a$(), n&, b$(), i&
ChDir ThisWorkbook.Path
fichier = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")
If fichier = False Then Exit Sub
Application.ScreenUpdating = False
Cells.Delete 'RAZ
Workbooks.OpenText fichier, semicolon:=True, Local:=True
ActiveSheet.UsedRange.Copy Feuil2.[A1]
ActiveWorkbook.Close
Cells.Replace "Ã ", "à", xlPart
Cells.Replace "À", "À"
Cells.Replace "â", "â"
Cells.Replace "ç", "ç"
Cells.Replace "é", "é"
Cells.Replace "É", "É"
Cells.Replace "è", "è"
Cells.Replace "ê", "ê"
Cells.Replace "î", "î"
Cells.Replace "ô", "ô"
Cells.Replace "ü", "ü"
Cells.Replace "«", "«"
Cells.Replace "»", "»"
Columns.AutoFit 'ajustement largeurs
Application.ScreenUpdating = True
MsgBox "Données CSV importées avec succès"
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
job75, le forum

job75, merci

J'ai du remplacer :

VB: 
Cells.Replace "Ã ", "à", xlPart

Par ca

Code: 
Cells.Replace "Ã ", "à", xlPart

Par un copier coller d'une valeur dans d'une cellule car sinon cela me laissé Ã

Visuellement je ne vois aucune différance, bizard

Merci

Passe une bonne journée.

G'Claire
 
Vote positif 0 Vote négatif
Re

Petite modif, pour que cela joue essentiellement avec la feuille "Import Theme" de mon classeur car sinon cela jouait sur la feuille active.

VB: 
Sub ImporterDonneesCSV()

    Dim fichier As Variant
    Dim x As Long
    Dim a() As String
    Dim n As Long
    Dim b() As String
    Dim i As Long

    ChDir ThisWorkbook.Path
    fichier = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")

    If fichier = False Then Exit Sub

    Application.ScreenUpdating = False

    ' Supprimez les données existantes sur la feuille "Import Theme"
    Sheets("Import Theme").Cells.Delete

    Workbooks.OpenText fichier, semicolon:=True, Local:=True
'    ActiveSheet.UsedRange.Copy Sheets("Import Theme").Range("A1")
    ActiveSheet.UsedRange.Copy Feuil2.[A1]
    ActiveWorkbook.Close

    ' Effectuez les remplacements de caractères
    With Sheets("Import Theme").Cells
        '.Replace "Ã ", "à", xlPart
        .Replace "Ã ", "à", xlPart
        .Replace "À", "À"
        .Replace "â", "â"
        .Replace "ç", "ç"
        .Replace "é", "é"
        .Replace "É", "É"
        .Replace "è", "è"
        .Replace "ê", "ê"
        .Replace "î", "î"
        .Replace "ô", "ô"
        .Replace "ü", "ü"
        .Replace "«", "«"
        .Replace "»", "»"
    End With

    ' Ajustez les largeurs des colonnes
    Sheets("Import Theme").Columns.AutoFit

    ' Supprimez les lignes qui ne sont pas en français
    SupprimerLignesNonFR

    ' Assignez des valeurs de niveau
    AssignerNiveauValeurs

    Application.ScreenUpdating = True

    MsgBox "Données CSV importées avec succès sur la feuille 'Import Theme'."

End Sub

Qu'en penses tu?

Merci

La j'essaye de voir pour choisir le dossier de recherche par rapport a la feuille "Paramètres" en "B4" et si vide que l'on aille chercher le fichier sur le bureau, puis renseigner la cellule du chemin "Sans le nom de fichier)

J'y arrivait presque, sauf que cela me mettait le chemin complet

Merci

Bonne journée.

G'Claire
 
Vote positif 0 Vote négatif
En effet quand on copie le code du post #9 on obtient un espace de code 32.

Donc utilisez :
VB: 
Cells.Replace "Ã" & Chr(160), "à", xlPart
Bonjour Cousinhub et merci, effectivement c'est la bonne solution.
 
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

D
  • Résolu(e)
Microsoft 365 Formules adjacentes après un import ne suivent pas
2 3 4
Réponses
45
Affichages
5 K
Dand87
D
J
  • Question Question
XL 2021 Excel CSV vers XSL et ne pas écraser les données
Réponses
9
Affichages
345
sylvanu
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
191
oguruma
J
  • Résolu(e)
XL 2013 Tri de données depuis un CSV
Réponses
5
Affichages
284
dysorthographie
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
543
gsx-air
A
  • Question Question
Autres Protégé un fichier csv par mot de passe
2
Réponses
16
Affichages
870
job75
  • Résolu(e)
Power Query importer fichier CSV, dont le chemin est dans une cellule Excel
Réponses
11
Affichages
270
oguruma
A
  • Question Question
Microsoft 365 VBA et "Slicer" dans un TCD (source modèle de données)
Réponses
2
Affichages
130
Amilo
A
D
  • Question Question
XL 2021 excel - vbs - csv
2
Réponses
28
Affichages
2 K
Deleted member 441486
D
C
  • Question Question
Microsoft 365 renommer fichier csv en xlsx avec vba
Réponses
1
Affichages
460
Cousinhub
C
  • Question Question
Microsoft 365 Disparation de données dans des fichiers excel
Réponses
10
Affichages
565
CedricR34
C
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
292
TooFatBoy
G
  • Question Question
Microsoft 365 Choix et export de données (Résolu)
Réponses
4
Affichages
864
GClaire
G
B
  • Question Question
XL 2019 Import CSV par VBA - prise ne compte du séparateur
Réponses
2
Affichages
901
Oneida
V
  • Question Question
Microsoft 365 Fichier CSV en EXCEL
Réponses
8
Affichages
753
patricktoulon
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
333
Sissou71
S
L
  • Question Question
Microsoft 365 Je n'arrive à copier/coller des colonnes d'un fichier CSV dans un Google Spreadsheet
Réponses
1
Affichages
513
fanch55
G
  • Question Question
Microsoft 365 Ajout de données
Réponses
3
Affichages
511
GClaire
G
1
  • Question Question
Microsoft 365 Import de données depuis fichiers - lignes manquantes
Réponses
6
Affichages
624
1dudu9
1
N
  • Résolu(e)
Microsoft 365 Regroupement de quantité et longueur VBA ou Power Query
2
Réponses
25
Affichages
854
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…