Amélioration de mon code, svp!!

Lynk Zel · 15 Septembre 2008

Bonjour à toutes et à tous.

Voilà, j'ai le code suivant :

Sub Test()
Dim DialOuvr As FileDialog, Rep, Chemin As String
Set DialOuvr = Application.FileDialog(msoFileDialogOpen)
DialOuvr.Filters.Clear
DialOuvr.Filters.Add "Fichiers CSV", "*.csv", 1
DialOuvr.AllowMultiSelect = False
DialOuvr.Title = "Ouverture du fichier CSV"
DialOuvr.InitialView = msoFileDialogViewList
'DialOuvr.InitialFileName = "C:\Mes Fichiers CSV\"
Rep = DialOuvr.Show
If Rep = 0 Then
MsgBox "Opération annulée"
Exit Sub
End If
Chemin = DialOuvr.SelectedItems(1)
'-----------------------
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin, Destination:=Range("A3"))
.Name = "test"
.AdjustColumnWidth = False
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
'------------------------
ActiveSheet.Rows("1:34").Delete Shift:=xlUp
ActiveSheet.Columns("H:M").Clear
End Sub

le problème, c'est que ce code ne me mets pas mon tableau à la bonne place, voir le fichier ci-joint pour le positionnement.

Si quelqu'un peut m'aider.

merci
@+

Catrice · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Bonjour,

Le fichier n'est pas passé ....

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

dsl!!!
je vais réessayer

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

bonjour Catrice, d'ailleur c'est ton code je crois 🙂

Catrice · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Bonjour,

Oui, c'est le code qu'on a vu ensemble.
ci-joint une version qui doit faire ce que tu souhaites.
Il y a juste quelques reglages à faire ...

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Ton code est pas mal, mais lorsque je l'introduit dans mon tableau définitif, il me décale tout (voit document ci-joint).
en orange c'est la disposition que je souhaite.
merci

Catrice · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Euuuuh ...
Il vaut mieux que tu donnes dès le début ce que tu veux obtenir en final 😉
Car pour le coup il est préférable de ne pas ouvrir le fichier CSV dans le fichier XLS ... ça met un peu la pagaille.
Voir exemple joint.
J'ai mis le nom en A1 mais tu peux le déplacer où tu veux (voir le code)

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

dsl, je pensais faire étape part étape 🙁

mais sinon, on y est presque, il me faut enlever les 2 lignes et je pense que c'est gagné...

Catrice · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Hello,

Là je ne suis plus ...
D'ou viennent ces 2 lignes ?
Il me faudrait peut etre le fichier CSV ?...

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

ok je prépare tout le problème, merci d'avance

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

en premier lieu, il faut lire le document "à lire"

si il y a des questions n'hésite pas.

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

voila le dernier fichier

Catrice · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Re,

Personnellement tu ne m'embêtes pas (sinon je ne serais pas sur le forum). C'est plutôt pour toi, plus c'est clair plus on va vite à la solution.
Ce que j'ai compris :
- Tu as un fichier CSV à ventiler dans un XLS.
- Une fois ventilé, il faut faire qqs traitements (que je n'ai pas bien compris, je ne trouve pas les singes par exemple)

Ci-joint le CSV et le XLS avec lesquels je fais le test.
Ce qui serait bien, c'est que tu me donnes un CSV brut (celui duquel tu partira en exploitation) et un XLS (comme tu le veux à l'arrivée).
Et je regardes ce qu'il faut mettre comme code entre les 2 pour y arriver.
Qu'en penses tu ?

Je serai absent une partie de l'apres midi.
A+

Lynk Zel · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

je crois qu'il y a tout, s'il y a des choses ou des précisions que tu souhaite avoir, n'hésite surtout pas à me les demander.
merci
@+

Catrice · 15 Septembre 2008

Re : Amélioration de mon code, svp!!

Bonsoir,

On avance 😉
Globalement je pense avoir tout compris (les petits singes aussi) mais pour la recherche dans ton fichier final, tu auras une petite question un peu plus bas ...

Je te retourne les fichiers avec leurs fonctionnalités.
Dans Classeur.xls:
- Tu peux importer le CSV comme tu le souhaites (à tester).
- Dans la zone rose j'ai fait une variante (qu'on pourra tjs modifier plus tard) pour remplacer les cases options. Les cases options sont un peu lourdes à gérer (ca fait beaucoup d'objets), alors je propose de mettre des "O" à la place. Un double-clic met un "O".
- Dans la derniere colonne, j'indique quel N° de colonne est choisi mais je n'ai pas encore fait la recherche dans ta table.
En effet meme si je pense avoir compris l'histoire des animaux (voir le fichier test1.xls pour confirmer), je ne trouve pas de correspondance entre les intitulés de "Fichier Importé" et ceux de "Tableau de donnée".
Par exemple dans le fichier joint, à quoi doit correspondre "TUYAUTERIE AV CATA (WIMETAL)" ??
Peut etre à rien ... dans ce cas, tu veux quoi dans la colonne "Resultat" ?

Dans Test1.xls :
Les formules qui doivent faire ce que tu souhaites.

A+

Amélioration de mon code, svp!!

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency