Ouvrir classeur excel et affecter valeur dans une cellule

[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 !

[jpcheck]

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...

[jpcheck]

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):

 
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

Envoyé par supersnail

 
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 :

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

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

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)

[jpcheck]

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

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 :

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 :

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 !