XL 2019 Fichier = Fichier

Arnaud59000 · 22 Février 2022

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

Arnaud59000 · 22 Février 2022

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...

Arnaud59000 · 22 Février 2022

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

patricktoulon · 22 Février 2022

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

Arnaud59000 · 22 Février 2022

patricktoulon à dit:
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

Bonjour Patrick,

J'avais chopé ca sur un bout de code sur le net ^^

Que fait DIR alors ?

patricktoulon · 22 Février 2022

re
dir te donne
le string du chemin complet de l'argument entre les parenthèses en l’occurrence ici le fichier
ou
rien(vide) si le fichier n'existe pas

XL 2019 Fichier = Fichier

Arnaud59000

XLDnaute Nouveau

Arnaud59000

Arnaud59000

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Arnaud59000

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Discussions similaires