Microsoft 365 fichier csv et xlsm

miroma · 2 Octobre 2022

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 · 2 Octobre 2022

Hasco à dit:
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 · 2 Octobre 2022

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 · 2 Octobre 2022

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 · 2 Octobre 2022

miroma à dit:
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 · 2 Octobre 2022

Staple1600 à dit:
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 · 2 Octobre 2022

Hasco à dit:
C'est du multi-postage inter-sites alors !

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

Staple1600 · 2 Octobre 2022

Re

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

miroma · 2 Octobre 2022

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

Staple1600 à dit:
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 · 2 Octobre 2022

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 · 2 Octobre 2022

Staple1600 à dit:
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 · 2 Octobre 2022

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

VB:

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.

Microsoft 365 fichier csv et xlsm

miroma

XLDnaute Nouveau

Pièces jointes

miroma

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

miroma

XLDnaute Nouveau

miroma

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

miroma

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

miroma

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 fichier csv et xlsm

XLDnaute Nouveau

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency