Discussion :

[turbo_cro]

Bien le bonjour !

je souhaiterais via un code vba :
- ouvrir un fichier excel existant (ça j'ai réussi à le faire)
- puis affecter à la cellule A2 une valeur numérique
- cette valeur numérique étant stockée dans une requête


Merci de votre aide !

[Jean-Philippe André]

salut,
un petit coup d'oeil dans la est toujours le bienvenu
http://access.developpez.com/faq/?page=Excel#PilotExcel

[turbo_cro]

oui, j'ai longuement exploré les FAQ comme à mon habitude

j'ai testé ce code, histoire de voir si ca marche en dur, mais helas non

xlSheet.Cells(1, 2) = "1000"

peut etre que c'est à cause du nom de l'onglet...

[Jean-Philippe André]

peux-tu nous donner le code que tu utilises actuellement, que l'on puisse t'en dire plus stp ?

[supersnail]

bah pour aller dans une cellule:
-Une fois ton document ouvert,tu vas dans la feuille ou doit aller la valeur
-Tu sélectionnes la celulle concernée
-Tu affectes la valeur

en code ça donne ça (de tête):

Code :

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

1
2
3
4
 
Dim worksheet As Worksheet
worksheet = tonfichier.Worksheets(index_feuille)
worksheet.Range("A2").Value = la_valeur

[turbo_cro]

alors comme ça, ça marche super bien ! pas de souci

Code :

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

1
2
3
4
 
Dim worksheet As Worksheet
worksheet = tonfichier.Worksheets(index_feuille)
worksheet.Range("A2").Value = la_valeur

mais lorsque je tente de coder avec une variable ça se complique

voici les deux versions que j'ai essayées

Version 1
la valeur que je souhaite afficher dans la cellule A2 de ma feuille excel se situe dans une requête (valeur que je souhaite augmenter de 1).
J'ai donc inséré un contrôle texte sur mon formulaire qui indique cette valeur.
d'où mon code :

Code :

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

1
2
3
Dim der As Integer
der = Forms![import excel].Dernier_PA
oWSht.Range("A2").Value = der + 1

j'obtiens l'erreur suivante : dépassement de capacité

Version 2
je vais chercher la valeur directement dans la requete

Code :

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

1
2
3
4
dim sql as integer
sql = “SELECT LAST([N° PA]) AS [Dernier PA] FROM [P&A]” 'l'erreur se produit ici 
(incompatibilité de type)
oWSht.Range("A2").Value = sql + 1

alors j'ai tenté comme ceci

Code :

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

1
2
3
4
dim sql as string
sql = “SELECT LAST([N° PA]) AS [Dernier PA] FROM [P&A]”
oWSht.Range("A2").Value = sql + 1'l'erreur se produit ici 
(incompatibilité de type)

[Jean-Philippe André]

salut,
tu sembles confondre ici requête SQL et résultat de la requête (recordset par exemple).
Le code suivant :

Code :

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

1
2
3
4
dim sql as integer
sql = “SELECT LAST([N° PA]) AS [Dernier PA] FROM [P&A]” 'l'erreur se produit ici 
(incompatibilité de type)
oWSht.Range("A2").Value = sql + 1

ne peut fonctionner car tu mets une chaine de caractères dans un entier

celui-ci :

Code :

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

1
2
3
4
dim sql as string
sql = “SELECT LAST([N° PA]) AS [Dernier PA] FROM [P&A]”
oWSht.Range("A2").Value = sql + 1'l'erreur se produit ici 
(incompatibilité de type)

ne peut marcher car même si cette fois-ci tu mets bien une chaine de caractères dans une chaine de caractère, la concaténation d'une chaine + un entier ne peut fonctionner. ²
ici tu peux passer par un élément tampon, le recordset :

Code :

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

1
2
3
4
5
dim strSQL as string
dim RS as DAO.RecordSet
strSQL = “SELECT LAST([N° PA]) AS [Dernier PA] FROM [P&A]”
set RS = CurrentDb.OpenRecordSet(strSQL)
oWSht.Range("A2").Value = RS.Fields("Dernier Pa").value + 1

[turbo_cro]

aaaah super ca marche !

merci infiniment pour la résolution ! et de m'avoir donné un mini cours !