Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Fichier = Fichier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

Arnaud59000

XLDnaute Nouveau
Bonjour tout le monde !

Me voilà avec le nouveau problème du moment !

La macro suivante :

VB: 
Sub ImportBDDCM()

    Dim Fichier As String
    
    'Acceleration du traitement des données
    Application.ScreenUpdating = False

    
    Fichier = Application.GetOpenFilename(FileFilter:=" Excel Files ( *.xlsx;*.xlsm;*.csv), ( *.xlsx*.xls), All Files, *.*", FilterIndex:=1)
    
    If Fichier = False Then Exit Sub ' si tu annules

    Workbooks.Open Filename:=Fichier

    'supprime le chemin
    Fichier = Dir(Fichier)

    'Copie données fichier d'entrée vers fichier de sortie
    Workbooks("Suivi WF").Sheets("BDDCM").Range("A1:T4000").Value = Workbooks(Fichier).Sheets(1).Range("A1:T4000").Value

    'Fermeture du classeur
    ActiveWorkbook.Close

    MsgBox ("Import Terminé")



End Sub

Me permet "d'importer" des données d'un fichier vers un autre. Cependant si mon fichier "source" (celui de droite dans la copie) est en CSV, excel ne me fait pas la transformation des données ? Avez-vous une idée pour que la macro le fasse ou je dois obligatoirement passer par l'onglet "données, importer des données, ..."

Bonne journée à vous
 
Solution
A
Re,

J'ai eu un coup de main pour trouver la solution que voici :

VB: 
Sub ImportBDDCM()

    Dim Fichier As String
    
    'Acceleration du traitement des données
    Application.ScreenUpdating = False

    
    Fichier = Application.GetOpenFilename("Fichiers csv, *.csv")
    
    If Fichier = "" Then Exit Sub ' si tu annules

    'Transcrit le csv en tableau
    Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

    'supprime le chemin
    Fichier = Dir(Fichier)

    'Copie données fichier d'entrée vers fichier de sortie
    Workbooks("Suivi WF").Sheets("BDDCM").Range("A1:T4000").Value = ActiveSheet.Range("A1:T4000").Value

    'Fermeture du classeur...
Trier par date Trier par votes
Re,

J'ai eu un coup de main pour trouver la solution que voici :

VB: 
Sub ImportBDDCM()

    Dim Fichier As String
    
    'Acceleration du traitement des données
    Application.ScreenUpdating = False

    
    Fichier = Application.GetOpenFilename("Fichiers csv, *.csv")
    
    If Fichier = "" Then Exit Sub ' si tu annules

    'Transcrit le csv en tableau
    Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

    'supprime le chemin
    Fichier = Dir(Fichier)

    'Copie données fichier d'entrée vers fichier de sortie
    Workbooks("Suivi WF").Sheets("BDDCM").Range("A1:T4000").Value = ActiveSheet.Range("A1:T4000").Value

    'Fermeture du classeur
    ActiveWorkbook.Close

    MsgBox ("Import Terminé")



End Sub
 
Vote positif 0 Vote négatif
Solution
Bonjour

VB: 
'supprime le chemin
    Fichier = Dir(Fichier)
qui a bien pu te dire que la fonction dir supprimait le chemin ?????🤔
c'est harchi faux


ensuite essai à tout hasard 😉
Code: 
Workbooks.Open Filename:=Fichier, local:=true
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
196
dysorthographie
G
  • Question Question
Microsoft 365 Import Donnes issu de fichier CSV
2 3
Réponses
40
Affichages
2 K
laurent950
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
91
CDALE
C
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
490
Chaton77
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
221
sylvanu
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
115
safranien
S
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
516
GClaire
G
  • Résolu(e)
Autres Renommer les données du code vba à partir d'une cellule
Réponses
13
Affichages
581
oguruma
R
  • Question Question
XL 2019 injecter fichier excel avec nom variable
Réponses
4
Affichages
637
job75
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
737
Liner77
L
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
392
Maxou69
M
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
2 K
Hutchy33
H
T
  • Résolu(e)
Microsoft 365 problème syntaxe
Réponses
3
Affichages
359
thenesol
T
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
455
loreak
L
G
  • Question Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
1 K
Guillaumeg3
G
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
531
GClaire
G
POWERQUERY/POWERPIVOT :: Injecter dynamiquement un fichier .csv dans le modèle de données - pratique en cas de forte volumétrie - V0.004
Réponses
1
Affichages
540
oguruma
L
  • Question Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
566
lesoldat9
L
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
875
Aldonanou
A
L
  • Question Question
XL 2019 Optimiser un code VBA dans un grand jeu de données
Réponses
4
Affichages
791
Loïc DUBOIS
L
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…