Import de données csv avec mise à jour

Bonjour à toutes et à tous,

Je cherche à importer les données d'un fichier csv externe avec séparation par ";" vers un onglet de fichier Excel sur mac version 2016.

J'aimerais que à chaque import que cela se mette à jour à la suite.

Dans l'exemple joint, la feuil1 représente la feuille à mettre à jour et en forme et la feuil2 les données de mise à jour.

merci d'avance de vos réponses.

Bonsoir à tous,

Je suis étonné de n'avoir reçu aucune réponse à ma requête.

Ai-je fait quelque chose de mal ou oublié une politesse quelconque?

Néanmoins, merci d'avance de vos réponses et de l'intérêt à ma demande d'aide.

Bonsoir Djfx, bonsoir le forum,

Pas d'étonnement, des fois on se repose ou on fait autre chose, ou on a la flemme ou...

Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim PL As Range 'déclare la variable PL (PLage)

Set OS = Worksheets("Feuil2") 'définit l'onglet OS
Set OD = Worksheets("Feuil1") 'définit l'onglet OD
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
OS.Range("A1").CurrentRegion.Copy DEST 'copie des données de l'onglet source et les colle dans DEST
Set PL = DEST.Resize(OS.Range("A1").CurrentRegion.Rows.Count, 1) 'définit la plage PL
PL.TextToColumns Destination:=DEST, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote 'convertion des données de la plage PL
OD.Activate 'active l'onglet OD (facultatif)
OD.Range("A1").Select 'sélectionne la cellule A1 (facultatif)
End Sub

Bonjour,

J'ai peut-être fait preuve un peu d'impatience en voyant que d'autres membres avaient obtenu des réponses et m'en excuse.

Merci en tous cas.

Cependant, le code fonctionne mais le résultat ne se met pas en forme en colonnes dans Feuil1

Re,

Désolé mais je navet (si, si dans ce cas on peut...) pas compris comme ça ! Le code corrigé :

Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim OD As Worksheet 'déclare la variable OD (Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)
Dim PL As Range 'déclare la variable PL (PLage)

Set OS = Worksheets("Feuil2") 'définit l'onglet OS
Set OD = Worksheets("Feuil1") 'définit l'onglet OD
Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
Set PL = OS.Range("A1").CurrentRegion 'définit la plage PL
PL.TextToColumns Destination:=OS.Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, Semicolon:=True 'convertie les données de la plage PL
OS.Range("A1").CurrentRegion.Copy DEST 'copie des données de l'onglet source et les colle dans DEST
OD.Activate 'active l'onglet OD (facultatif)
OD.Range("A1").Select 'sélectionne la cellule A1 (facultatif)
End Sub

Bonsoir,

Merci beaucoup et ne soyez pas désolé.

Cela fonctionne en effet.

Génial!