Importation CSV depuis une fenêtre

Fredox

XLDnaute Occasionnel

• 2 Février 2008

• #2

Re : Importation CSV depuis une fenêtre

Bha mince, pas de réponse.
C'est pas possible alors ?
J'ai fait le tour du web, mais j'ai rien trouvé. 🙁

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Février 2008

• #3

Re : Importation CSV depuis une fenêtre

Bonjour

Tu as aussi été voir ici?
Forum OOO

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 4 Février 2008

• #4

Re : Importation CSV depuis une fenêtre

Je suis aller sur ton lien, mais je n'ai rien trouver.
Je ne veux pas convertir mes macros ooo, mais refaire le tout a sous Excel.
Je sais que la convertion n'est pas possible.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Février 2008

• #5

Re : Importation CSV depuis une fenêtre

Re


Utilse l'assitant d'importation d'Excel (tout en enregistrant la macro)

Sur un PC ou Excel est installé, théroriquement quand tu clique sur un *.csv

il s'ouvre automatiquement dans Excel.

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 6 Février 2008

• #6

Re : Importation CSV depuis une fenêtre

En fait, ce n'est pas un fichier .csv, il a une extention .bst, mais l'interrieur est comparable a du csv

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Février 2008

• #7

Re : Importation CSV depuis une fenêtre

Re



Même avec *.bst, ca devrait fonctionner

(Je parle de l'Assistant d'importation d'Excel)

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 6 Février 2008

• #8

J'ai trouver

Option Explicit

Sub BST()
Dim Fichier As Variant
' ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Bon de commande JETI, *.bst")
If Fichier <> False Then
Lire Fichier
End If
End Sub

Function Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1

' Séparateur Tabulation
Separateur = Chr(9)

Cells.Clear
NumFichier = FreeFile
iRow = 1

Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Function

Par contre, si je laisse la ligne que j'ai afficher en rouge s'executer, j'ai une erreur.


Est-il possible de lui faire ouvrir la boite de dialogue dans un dossier précis (ex: D:\Documents) ?

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 6 Février 2008

• #9

Re : Importation CSV depuis une fenêtre

Bonsoir


Essaye de rajouter

Code:

Sub BST()
Dim Fichier As Variant[COLOR=RoyalBlue]
ChDrive "D"
ChDir "D:\Mes documents"[/COLOR]
Fichier = Application.GetOpenFilename("Bon de commande JETI, *.bst")
If Fichier <> False Then
'.. le reste de ta macro
End Sub

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 6 Février 2008

• #10

Re : Importation CSV depuis une fenêtre

Merci Staple1600, ca marche impec

Grand Merci

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 6 Février 2008

• #11

Encore un chose,

C'est vrai que c'est super, mais je voudrais pousser le bouchon plus loin:

J'arrive bien à importer le document dans ma feuille en cour, mais est-il possible de le diriger vers une autre feuille du classeur qui existe deja ?

 

Vote positif 0 Vote négatif