XL 2019 Fichier = Fichier

[Arnaud59000]

Bonjour tout le monde !

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

La macro suivante :

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]

Re,

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

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]

Bonjour

'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 😉

Workbooks.Open Filename:=Fichier, local:=true

 

[Arnaud59000]

Bonjour

'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 😉

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]

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