XL 2016 Aide fichier VBA - conversion de données

cp4

XLDnaute Barbatruc

• 23 Décembre 2021

• #2

Bonjour,

@flo189 : je vais essayer de t'aider. Commençons pas le début ---> CSV
Tu nous dis que ton code d'importation du fichier Csv ne fonctionne pas.
Alors commence par joindre ton fichier csv.

A+

 

Vote positif 0 Vote négatif

F

flo189

XLDnaute Occasionnel

• 23 Décembre 2021

• #3

Bonjour CP4,

Super merci à toi en PJ. Le nom fichier csv évolue à chaque fois mais les colonnes restent dans le même ordre.

Je ne parviens pas à joindre un fichier csv je l'ai laissé sous .xlsx

Merci beaucoup de ton aide

 

Pièces jointes

• FICHIER CSV.xlsx

  8.8 KB · Affichages: 5

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 23 Décembre 2021

• #4

Teste l'importation de ton csv.
à demain, j'ai une urgence.

 

Pièces jointes

• Copie de ImportCargo-1.xlsm

  27.6 KB · Affichages: 12

Vote positif 0 Vote négatif

F

flo189

XLDnaute Occasionnel

• 23 Décembre 2021

• #5

Super ça fonctionne merci à toi

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 23 Décembre 2021

• #6

Bon, je n'ai pas compris ta démarche de scinder les dates dans cellules différentes.

Ton fichier en retour.

 

Pièces jointes

• Copie de ImportCargo-2.xlsm

  31 KB · Affichages: 17

Vote positif 0 Vote négatif

F

flo189

XLDnaute Occasionnel

• 24 Décembre 2021

• #7

Tu es formidable. Merci beaucoup pour ton aide.
Quel est le code pour ouvrir une boite enregistrer sous uniquement de la feuil3

Encore merci

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 24 Décembre 2021

• #8

flo189 à dit:

Tu es formidable. Merci beaucoup pour ton aide.
Quel est le code pour ouvrir une boite enregistrer sous uniquement de la feuil3

Encore merci

Cliquez pour agrandir...

Si le code répond à tes attentes. Merci de pointer le post pour facilité la recherche aux membres de XLD, dont tu fais parti.

Pour ta question, je t'invite à utiliser l'enregistreur de macro.

Bonne continuation.

 

Vote positif 0 Vote négatif

F

flo189

XLDnaute Occasionnel

• 24 Décembre 2021

• #9

Merci à toi

Voici le code
Dim Fichier As String
Fichier = "Fichier CSV Cargo"
ThisWorkbook.Sheets("Feuil3").Copy
f = Application.GetSaveAsFilename(Fichier, Filefilter:="Excel Files (*.csv), *.csv*")
ActiveWorkbook.SaveAs Filename:=f

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 24 Décembre 2021

• #10

flo189 à dit:

Merci à toi

Voici le code
Dim Fichier As String
Fichier = "Fichier CSV Cargo"
ThisWorkbook.Sheets("Feuil3").Copy
f = Application.GetSaveAsFilename(Fichier, Filefilter:="Excel Files (*.csv), *.csv*")
ActiveWorkbook.SaveAs Filename:=f

Cliquez pour agrandir...

Que veux-tu faire exactement? Je te répondrai plus tard car je suis très occupé.

 

Dernière édition: 25 Décembre 2021

Vote positif 0 Vote négatif

F

flo189

XLDnaute Occasionnel

• 28 Décembre 2021

• #11

Bonjour à toi,
Je veux enregistrer uniquement la feuil3 en csv en ouvrant la boite enregistrer sous

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2021

• #12

bonjour à tous
si on considère le classeur comme model et qui ne sera jamais ré enregistré sous un autre nom et seul la feuille 3 sera toujours exporter alors on intersepte le SaveAsUI tout simplement
donc
dans le module thisworkbook tu met ceci

VB:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        Cancel = True
        Dim fname As Variant
        fname = Application.GetSaveAsFilename(InitialFileName:=dossier, filefilter:="CSV Files (*.csv), *.csv", Title:="ENREGISTREMENT EN CSV ")
        If fname = False Then Exit Sub
        Application.DisplayAlerts = False
        Sheets("Feuil3").Copy
        ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV, CreateBackup:=False
        ActiveWindow.Close
    End If
End Sub

résultat tu a toujours le dialog pour taper le nom mais c'est automatiquement en csv et uniquement la feuil3

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 28 Décembre 2021

• #13

Bonsoir @patricktoulon , @flo189 ,

@flo189 : Si j'ai compris ta demande, enregistrer feuil3 au format csv avec choix libre du dossier de destination.
Copie le code (perfectible) dans un module standard et associe-le au bouton dédié à cette action.

VB:

Sub Feuille_en_CSV_via_tablo()
    Dim T(), Fichier As String, Chaine As String
    Dim L As Long, f As Integer, c As Integer
    Dim dossier As Object, chemin As String

    Set dossier = Application.FileDialog(msoFileDialogFolderPicker)
   
If dossier.Show = 0 Then
        Exit Sub
    Else
        chemin = dossier.SelectedItems(1)
    End If

    Fichier = chemin & "\" & "Fichier CSV Cargo.csv"
    'Application.ScreenUpdating = False

    T = Feuil3.Range("A1").CurrentRegion.Value
    f = FreeFile()
    Open Fichier For Output As #f
    For L = 1 To UBound(T, 1)
        Chaine = T(L, 1)
        For c = 2 To UBound(T, 2)
            Chaine = Chaine & ";" & T(L, c)
        Next c
        Print #f, Chaine
    Next L
    Close #f
End Sub

Bonne soirée.

Joyeuses fêtes de fin d'année.

edit: code corrigé

 

Dernière édition: 30 Décembre 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Décembre 2021

• #14

re
@cp4 toujours par le bouton "enregistrer sous "c'est ça la demande
tu peux m'expliquer a quoi sert le blocage de screenupdating avec la méthode open for output ???

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 29 Décembre 2021

• #15

patricktoulon à dit:

re
@cp4 toujours par le bouton "enregistrer sous "c'est ça la demande
tu peux m'expliquer a quoi sert le blocage de screenupdating avec la méthode open for output ???

Cliquez pour agrandir...

Re,

Oui, je peux l'expliquer. C'est une coquille. Dans ma macro, il y avait une copie à faire préalablement à open for output. C'est un oubli qui n'a d'ailleurs aucune incidence sur le résultat final.

 

Vote positif 0 Vote négatif