Discussion :

[Louis.Gruhn]

Bonjour à tous.

Je suis actuellement entrain de devellopé une interface en VB6 qui permet de choisit un "Procès Verbal" à éditer sous excel, ce PV est stocké sur une BDD j'y récupère les données je les traites et je les colles sur une trame excel que je sauvegarde apèrs.

J'ai des problèmes avec mes copie/colle

Voici mon code pour la déclaration d'excel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'Déclaration des variables
Dim appExcel As Excel.Application 'Application ExcelDim
Dim wbExcel As Excel.Workbook 'Classeur ExcelDim
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = New Excel.Application
 
'Récupération de la trame
Set wbExcel = appExcel.Workbooks.Open("P:\Maintenance\Gruhn Louis\Trame\Trame.xls")
 
'Récupération de la feuille N°1
Set wsExcel = wbExcel.Sheets(1)

Voici le code recherchant la données dans la base de données et ooù je défini la cellule où cette données vas être sauvegarder (J'ai environ 30* ce code)

Code :

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

1
2
3
4
        'Validation Serrage Bride
        TestEtat = rst("ValidationSerrageBride") 'recherche dans la BDD
        Range = "F9"
        Affichage0a3

Et voici la fonction qui copie/colle et qui plante =D

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub Affichage0a3() 'Procedure qui définit la valeur à affecter pour les états
Select Case TestEtat
Case 0
    wsExcel.Range("B80").Copy _
    Destination:=wsExcel.Range(Range)
Case 1
    wsExcel.Range("B82").Copy _
    Destination:=wsExcel.Range(Range)
Case 2
    wsExcel.Range("B84").Copy _
    Destination:=wsExcel.Range(Range)
Case 3
    wsExcel.Range("B86").Copy _
    Destination:=wsExcel.Range(Range)
Case Else
        Etat = ""
End Select
Range = ""
End Sub

Le bug se situe entre les case sur mon copie/colle. c'est l'erreur "object requirred"



Donc voila le problème je vous remercie de m'avoir lu, et j'espère que vous pourrez m'aidé !!

Louis,

[aliasjadawin]

"Range" est un mot réservé pour définir une plage cellules.
Tu devrais trouver un autre nom de variable pour écrire:

Code :

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

1
2
 
Range="F9"

Code :

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

1
2
 
R="F9"

plutôt.

Déclare le comme Range aussi, cela permet d'éviter les erreurs.

[Louis.Gruhn]

Merci pour la réponse,

J'ai modifié mais sa ne résoud pas mon problème.

Et quand tu dit de déclarer R entant que "Range je dois écrire :

Code :

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

Public R as Range

? car il ne me reconnait pas le "Range" comme un type de variable

[aliasjadawin]

Désolé je n'ai pas été assez précis, fais une déclaration normale.

Code :

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

1
2
 
(Public) Dim R as Range

Mais je te conseille de faire cette déclaration au début de ta procédure. Le Public est facultatif. Tout dépend si tu auras besoin de cette variable dans d'autres procédures.
En tout cas en VBA pour Excel, Range est bien un type de variable, j'en suis sûr et certain je l'utilise tous les jours, qu'utilises-tu pour coder ?

C'est bizarre, sinon je ne vois pas d'où vient le problème.

[Louis.Gruhn]

Enfait je programme sous VB6 et j'utilise excel pour génerer le PV.

Je ne programme pas directement dans les macros VBA (bien que je pense que ce soit similaire) je vais réessayer.


Edit : J'ai éssayé il me dit "variable not defined or with block not set" :s

J'ai compris l'utilisation du Range (il faut faire un Set :o)

Mais voila j'ai toujours ce problème : "object required" voici mon code modifier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Sub Affichage0a3() 'Procedure qui définit la valeur à affecter pour les états
Select Case TestEtat
Case 0
    wsExcel.Range("B80").Copy _
    Destination:=wsExcel.R
Case 1
    wsExcel.Range("B82").Copy _
    Destination:=wsExcel.R
Case 2
    wsExcel.Range("B84").Copy _
    Destination:=wsExcel.R
Case 3
    wsExcel.Range("B86").Copy _
    Destination:=wsExcel.R
Case Else
        Etat = ""
End Select
Range = ""
End Sub

Code :

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

1
2
3
4
        'Validation Serrage Bride
        TestEtat = rst("ValidationSerrageBride") 'recherche dans la BDD
        Set R = Range("F9")
        Affichage0a3

[Louis.Gruhn]

Problème résolu,

le problème Object required venait que j'utilisait excel dans une "sous procédure", j'ai donc déclaré excel en private (au lieu de dim).

Puis j'avais oublié à la ligne le wsExcel

Code :

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

set R = wsExcel.range("XX")

Merci pour votre aide !!

Bonnes fêtes à tous