Discussion :

[shinta]

Bonjour,

Je vous expose mon souci. Je dispose d'un formulaire sous Access, et sur ce formulaire d'un bouton. Lors du clic sur ce bouton, je souhaite (entre autre chose) faire appel à une procédure qui utilise notamment un objet (un classeur Excel). Le souci et qu'il me retourne l'erreur suivante :"propriété ou méthode non géré par l'object".

Ma sub (engeristré dans un module) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Remplir_Cellule(Ligne_Valeur As Integer, Colonne_Valeur As Integer, Ligne_Intitullé As String, _
                    Colonne_Intitullé As String, Valeur, Intitullé, Nom_Classeur, Nom_Onglet, Classeur)
 
If Classeur.Worksheets(1).Cells(Ligne_Intitullé, Colonne_Intitullé) = Intitullé Then
   Classeur.Worksheets(1).Cells(Ligne_Valeur, Colonne_Valeur) = Valeur
Else
   MsgBox "L'intitullé de la colonne n° " & Colonne_Intitullé & " a changé sur l'onglet " & Nom_Onglet & " du classeur " & Nom_Classeur & " . La donnée " & Intitullé & " ne sera pas renseignée.", vbInformation, "Programme RTA"
End If
 
 
End Sub

l'appel de ce sub : (placé dans le code du boutton)

Code :

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

Bibliotheque.Remplir_Cellule (i), (3), (7), (3), (Valeur), ("GLOBAL TRAITE"), ("PGP"), ("Semaine"), (Classeur_PGP)

Dernier points, dans ma recherche (infrutueuse hélas) de solution, j'ai tenté de transformer ma sub en fonction, et là l'erreur disparait ! Sauf que bon je ne veut pas une fonction (et puis j'aimerai comprendre)
Si quelqu'un a une idée. Merci

[Pierre Fauconnier]

Bonjour

Nonobstant d'autres erreurs que je n'aurais pas identifiées, dans cette syntaxe

Classeur.Worksheets(1).Cells(Ligne_Intitullé, Colonne_Intitullé)

Ligne_Intitullé et Colonne_Intitullé doivent être des nombres
- compris entre 1 et 65536 (=>XL2003) 1048576 (XL2007) pour la ligne
- compris entre 1 et 256 (=>XL2003) ou 16384 (XL2007) pour la colonne.
Or, les arguments que tu passes sont des chaines de caractères...

De plus, si ton classeur est valide (<> nothing), tu peux te passer de l'argument Nom_Classeur puisque tu peux le retrouver via

Code :

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

Classeur.Name

[shinta]

Exact, j'etais passé à coté . Du coup ca donne désormais :

Code :

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

1
2
Sub Remplir_Cellule(Ligne_Valeur As Integer, Colonne_Valeur As Integer, Ligne_Intitullé As Integer, _
                    Colonne_Intitullé As Integer, Valeur, Intitullé, Nom_Classeur As String, Nom_Onglet As String, Classeur)

Pour le nom du classeur, l'idée c'est d'afficher le nom sous lequel l'utilisateur connais son classeur, et non pas le nom un poil barbare sous lequel il est enregistrée.

Par contre ça ne résout pas mon soucie.

[pgz]

Pour le nom du classeur, l'idée c'est d'afficher le nom sous lequel l'utilisateur connais son classeur, et non pas le nom un poil barbare sous lequel il est enregistrée.

Pour afficher le nom du classeur, tu n'as pas besoin de le passer spécifiquement en paramètre puisque tu peux le trouver à partir du paramètre Classeur.

Classeur est une variable importante. Tu dois avoir une instruction

Code :

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

Set Classeur_PGP = ...

Tu peux la montrer?

Il reste dans la procédure des paramètres sans type : dangereux.

Dans ta ligne d'appel de la procédure, ça sert à quoi les parenthèses?

En espérant que cela t'aide,

PGZ

[shinta]

Salut. Désolé de répondre si tard, mais j'étais parti sur une autre appli (ah ! la joie des projets multiples) et du coup je ne me suis repenché sur ce sujet qu'en toute fin d'après-midi.
Tout d'abord, le plus important : Ca marche !!! En fait il me suffisait d'enlever les parenthèses autour de Classeur. Il me semblait pourtant avoir vu quelque part qu'il fallait en mettre mais manifestement non.

Sinon réponse en vrac pour pgz :

Pour le nom du classeur, le nom système, je peux effectivement le récup, vu que je m'en sert pour l'ouvrir. Le pb c'est que ce nom est 'trop compliqué' pour les utilisateurs (c'est eux qui me l'on dis). En gros mon classeur se nomme :"Reporting_Hebdomadaire_RTA1_RTA2_PGP_SemaineSXX.xls" & eux le connaisse sous le nom de 'classeur semaine'. Voila l'intérêt de ma variable :-)

Pour les variables non déclarées, j'avou avoir la mauvaise habitude de spécifier le typage une fois que la fonction est finalisée et opérationnelle (donc maintenant) et non pas quand je suis en train de la créer.

et pour finir, un grand merci pour votre aide.