Microsoft 365 fichier csv et xlsm

[miroma]

bonjour,
que faut t'il que je change pour que le code fonctionne avec un fichier Excel csv à la place d'un fichier xlsm
merci de votre réponse.

 

[miroma]

Ah oui comme dans cet autre fil

Comme ça vous pourrez la jouer les uns contre les autres comme dans celui-ci :

et j'ai réussi à avoir ce que j'ai voulu, non sans mal !

 

[Staple1600]

Re

J'ajoute que dans mon travail à la Manufacture des Armes et Cycles de Saint-Etienne, j'utilise tous les jours PowerQuery pour ouvrir des fichiers *.CSV
Et les mercredi des mois impairs, j'ouvre aussi des fichier *.TXT

Et cela m'aide grandement.

 

[Staple1600]

Re

@miroma
Vous ne m'avez pas vu passé dans votre fil ?
Car vous n'avez pris le temps de me saluer.

NB: Vous avez été voir la vidéo que j'ai mis pour vous aider ?

 

[Hasco]

vous avez la même réflexion que sur un autre forum je me demande si j'ai pas affaire à la même personne

C'est du multi-postage inter-sites alors !

 

[miroma]

Re

@miroma
Vous ne m'avez pas vu passé dans votre fil ?
Car vous n'avez pris le temps de me saluer.

NB: Vous avez été voir la vidéo que j'ai mis pour vous aider ?

oui bonjour,
j'était entrain de lire les réponses

 

[miroma]

C'est du multi-postage inter-sites alors !

non j'ai demander autre chose depuis longtemps sur pas mal de chose !

 

[Staple1600]

Re

@miroma
Et, donc est-ce que le visionnage de la vidéo t'as aidé à lancer PowerQuery et à ouvrir ton fichier CSV ?

 

[miroma]

j'ai du mal m'expliquer,
voila je reçoit de ma banque un relevé en fichier csv, qui se trouve sur le bureau
dans le code que j'ai mit sur un autre fichier que j'ai fait pour mes comptes j

Re

@miroma
Et, donc est-ce que le visionnage de la vidéo t'as aidé à lancer PowerQuery et à ouvrir ton fichier CSV ?

re
ce n'est pas pour l'ouvrir que j'ai besoin c'est de le transformer via une macro en fichier xslm pour l'intégrer a un code je j'ai fait et qui me permet de copier dans un classeur fermé pour intégrer des comptes .
Avec classeur csv suis obliger de le passer en xlsm pour que ça marche

 

[Staple1600]

Re

@miroma
NON
Pas besoin de macro VBA pour faire cela
Mais il n'est pire aveugle que celui qui ne veut pas voir...
PowerQuery sait ouvrir un fichier et le transformer en ce dont on a besoin.

Une question soudain surgit devant moi
Pourquoi venir poser une question sur un forum si c'est pour ignorer les conseils donnés par des membres du forum qui pratiquent Excel depuis très longtemps ?

Pour ma part:
Depuis 1992, avec Excel 4.

 

[miroma]

Re

@miroma
NON
Pas besoin de macro VBA pour faire cela
Mais il n'est pire aveugle que celui qui ne veut pas voir...
PowerQuery sait ouvrir un fichier et le transformer en ce dont on a besoin.

Une question soudain surgit devant moi
Pourquoi venir poser une question sur un forum si c'est pour ignorer les conseils donnés par des membres du forum qui pratiquent Excel depuis très longtemps ?

Pour ma part:
Depuis 1992, avec Excel 4.

voila mon classeur avec le code dans le module 1
ça fonctionne très bien avec le classeur xlsm
et je voudrais que ça fasse pareil avec le classeur csv
je pense que c'est dans le haut du code que ça cloche

 

[Staple1600]

Re

@miroma
Ce qui cloche c'est que tu tiens pas compte de ce qu'on te suggère...
Et quand tu joins un fichier Exemple, prends-soin de faire le ménage

Option Explicit
Sub Lecture()
Application.ScreenUpdating = 0
Dim Chemin$, Fichier$, lig&, k&
Chemin = "C:\Users\33674\Documents\nouveau dossier\"
Fichier = "telechargement.xlsm"
For lig = 3 To 30    ' 30 c'est la dernière lignes dans fichier téléchargé ( comptes xlsm )
k = lig - 2        ' 2 c'est la 1ère ligne dans fichier téléchargé ( comptes xlsm )
    With Cells(lig, "BJ")
        .Value = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]telechargement'!R" & k & "C1")
        .Offset(, 1) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]telechargement'!R" & k & "C3")
        .Offset(, 2) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]telechargement'!R" & k & "C4")
        .Offset(, 3) = ExecuteExcel4Macro("'" & Chemin & "[" & Fichier & "]telechargement'!R" & k & "C5")
    End With
Next lig
'macros inhibées par bibi car absentes dans le fichier joint
''Call effacer_colonne
''Call copier
''Call CentrerLaFeuille
End Sub

Donc je récapépéte
PowerQuery permet l'import d'un fichier CSV et la requete s'actualise toute seule quand le fichier CSV source change.
Les données dans le classeur XSLM sont donc mises à jour.
Tout se pilote aisément à la souris et ne nécessite pas de connaissance de VBA.