et j'ai réussi à avoir ce que j'ai voulu, non sans mal !Ah oui comme dans cet autre fil
Comme ça vous pourrez la jouer les uns contre les autres comme dans celui-ci :
C'est du multi-postage inter-sites alors !vous avez la même réflexion que sur un autre forum je me demande si j'ai pas affaire à la même personne
oui bonjour,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 ?
non j'ai demander autre chose depuis longtemps sur pas mal de chose !C'est du multi-postage inter-sites alors !
reRe
@miroma
Et, donc est-ce que le visionnage de la vidéo t'as aidé à lancer PowerQuery et à ouvrir ton fichier CSV ?
voila mon classeur avec le code dans le module 1Re
@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.
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