Discussion :

[moirs555]

Bonjour,

Je suis en train de développer une application en visual basic 6 et j'ai un soucis avec l'importation de données excel.

Je cherche à importer les données des lignes 12 à 205 mais mon problème c'est que l'importation ne se fait que jusqu'à la ligne 34 lorsque le programme arrive à la ligne contenant le mot sum. J'ai essayé de créer une condition qui saute la ligne excel lorsqu'il rencontre ce mot là.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i = 12 To 205
                If xlSheetFunctionDeclaration.Cells(i, 3) = "" Or xlSheetFunctionDeclaration.Range("C34") = "Aldehydes sum" Then
                    ActiveSheet.Range("C" & i).Select
                    ActiveSheet.Range("E" & i).Select
                    ActiveSheet.Range("F" & i).Select
                Else
                clsData.GetLaboratoryID (xlSheetMaterialDeclaration.Range("I4"))
                LaboratoryID = rs.Fields("LaboID")
                AnalysisDate = xlSheetMaterialDeclaration.Range("L6")
                clsData.GetSubstanceID (xlSheetMaterialDeclaration.Range("C" & i))
                SubstanceID = rs.Fields("SubstanceID")
                clsDeclarationFunction.AddDeclarationFunctionSubstance DeclarationID, LaboratoryID, AnalysisDate, SubstanceID, xlSheetMaterialDeclaration.Range("E" & i), xlSheetMaterialDeclaration.Range("F" & i), xlSheetMaterialDeclaration.Range("H33")
                End If
        Next i

Pourriez-vous m'aider?

Merci

[SfJ5Rpw8]

Comment savoir si l'on utilise VBA (Visual basic pour application) ou VB6 ?

[moirs555]

Merci mais ça ne m'aide pas plus que ça sachant que j'utilise le logiciel visual basic 6

[OhMonBato]

C'est justement ça la question, on voudrait savoir si tu travailles avec VBA sous Excel ou pas. Pourrais tu donc répondre précisemment à la question de bbil stp de manière à ce qu'on puisse t'aider du mieux possible.

[moirs555]

Je travaille avec visual basic 6. J'ai créé un formulaire d'import avec drivelistbox dir listbox ... Grâce à ce formulaire je peux importer mes données Excel dans ma base Access. Donc je manipule Excel via visual basic 6. Et j'aimerais que toutes mes données soient importées sauf les champs contenus dans la colonne C contenant les mots 'sum'.

J'espère que ces renseignements vous aideront un peu plus.

[DarkVader]

Bonjour,
Ton code n'a aucun sens (en dehors des procédures externes non décrites)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveSheet.Range("C" & i).Select
ActiveSheet.Range("E" & i).Select
ActiveSheet.Range("F" & i).Select

Seule la dernière ligne sera exécutée, de plus, inutilement
puisque la condition If ne débouche sur aucun traitement.

Ce type de code est juste bon pour du code macro produit automatiquement :
Les Select, Selection, Activate etc. sont à bannir.
Il est probable que les questions précédentes des autres intervenants
aient été induites par ce code poubelle.