Microsoft 365 Import Donnes issu de fichier CSV

GClaire · 14 Avril 2024

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

Staple1600 · 14 Avril 2024

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

GClaire · 14 Avril 2024

Hello Staple 1600, le firum

Staple1600 à dit:
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

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

GClaire · 14 Avril 2024

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

Staple1600 · 14 Avril 2024

Re

@GClaire
Pourtant cela fonctionne simplement (sans macro) avec Power Query en faisant

Ensuite il suffit de se laisser guider par l'Assistant.

job75 · 14 Avril 2024

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+

GClaire · 14 Avril 2024

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

GClaire · 14 Avril 2024

Hello, Job75

j'avais adapté un code qui le faisait, mais l'import, me met les caractères spéciaux.

Voili le soucis.

Merci, Bonne soirée, G'Claire

job75 · 15 Avril 2024

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.

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

GClaire · 15 Avril 2024

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

GClaire · 15 Avril 2024

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

job75 · 15 Avril 2024

Bonjour GClaire,

Attention quand on utilise "Ã " le 2ème caractère n'est pas un espace mais un caractère de code 160.

A+

GClaire · 15 Avril 2024

job75 à dit:
Bonjour GClaire,

Attention quand on utilise "Ã " le 2ème caractère n'est pas un espace mais un caractère de code 160.

A+

Oki

Ce que je comprend pas trop c’est que visuellement c’est le même code que tu as mis…

Bonne journée.

Cousinhub · 15 Avril 2024

Bonjour,
En rajoutant l'origine des données

VB:

Workbooks.OpenText fichier, 65001, semicolon:=True, Local:=True

A priori, le texte s'importe correctement
(Bon, je ne vais pas cacher que je préfère PQ, mais si c'est pour le bien de tout le monde....)
Bonne journée

job75 · 15 Avril 2024

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.

Microsoft 365 Import Donnes issu de fichier CSV

GClaire

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

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

GClaire

XLDnaute Occasionnel

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

GClaire

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

GClaire

XLDnaute Occasionnel

GClaire

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

GClaire

XLDnaute Occasionnel

GClaire

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

GClaire

XLDnaute Occasionnel

Cousinhub

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires