A voir également:
- Separation csv en plusieurs cellules dans la meme ligne
- Aller à la ligne dans une cellule excel - Guide
- Vente en ligne particulier - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Partage photo en ligne gratuit - Guide
- Apparaitre hors ligne instagram - Guide
1 réponse
f894009
Messages postés
17181
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 mars 2024
1 701
14 juin 2019 à 15:49
14 juin 2019 à 15:49
Bonjour,
Devrait aller
Devrait aller
Workbooks.OpenText Filename:=ret, DataType:=xlDelimited, Semicolon:=True
17 juin 2019 à 18:24
j'ai refais une bout de code mais apres avoir importer les cellules, les coller au bon endroit.. le code pour decaler mes données ne fonctionnent pas ..(
merci de votre aide
cordialement
Titi
Sub importerunefeuillededebit2020()
Dim ret As String
'Determine plage plateau
ret = Application.GetOpenFilename
ChDir _
"Q:\4_REPERTOIRE DES AFFAIRES"
'ret = Application.GetOpenFilename("DAT Files (*.dat), *.dat") 'Avec Filtre sur des fichier avec extension DAT
Workbooks.Open Filename:=ret
Workbooks.OpenText Filename:=ret, DataType:=xlDelimited, Semicolon:=True
Range("A1:K56").Select
Selection.Copy
Windows("Feuille de debit automatisee 20.20.xltm").Activate
Range("A4").Select
ActiveSheet.Paste
If Fichiercsv = False Then Exit Sub
Ncsv = FreeFile
Open Fichiercsv For Input As #Ncsv
icsv = 0
Do While Not EOF(1)
Line Input #Ncsv, Contenucsv
icsv = icsv + 1
Tablecsv = Split(Contenucsv, ";")
For jcsv = 0 To UBound(Tablecsv)
Cells(icsv, jcsv + 1).Value = Replace(Tablecsv(jcsv), ",", ".")
Next jcsv
Loop
Close #Ncsv
End Sub