Importation CSV depuis une fenêtre

[Fredox]

[Résolu] Importation CSV depuis une fenêtre

Coucou,
Voila, j'ai un petit soucis, j'utilise régulièrement O*p*n Off***, car pas d'Excel au boulot. Mon petit soucis c'est que j'ai creer un formulaire sous calc dans lequel j'importe mon fichier CSV par le bias d'une fenêtre ou je choisis mon fichier là ou je le souhaite sur mon PC, puis il s'ouvre dans un nouveau classeur.

Je voudrais savoir si une macro est possible pour ca ?

J'aimerais aussi savoir si au lieu de s'ouvrir dans un nouveau classeur, je peux le faire venir s'inserer dans une feuille du classeur en cour ?

Merci et désoler

 

[Fredox]

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

 

[Staple1600]

Re : Importation CSV depuis une fenêtre

Bonjour

Tu as aussi été voir ici?
Forum OOO

 

[Fredox]

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.

 

[Staple1600]

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.

 

[Fredox]

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

 

[Staple1600]

Re : Importation CSV depuis une fenêtre

Re



Même avec *.bst, ca devrait fonctionner

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

 

[Fredox]

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

 

[Staple1600]

Re : Importation CSV depuis une fenêtre

Bonsoir


Essaye de rajouter

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

 

[Fredox]

Re : Importation CSV depuis une fenêtre

Merci Staple1600, ca marche impec

Grand Merci

 

[Fredox]

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 ?