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 !
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 !
salut,
un petit coup d'oeil dans la est toujours le bienvenu
http://access.developpez.com/faq/?page=Excel#PilotExcel
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
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...
peux-tu nous donner le code que tu utilises actuellement, que l'on puisse t'en dire plus stp ?
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
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
Toute question technique envoyée en MP ira directement à la poubelle
Un code ne marchera jamais, il n'a jamais reçu la capacité de se déplacer.
Inutile donc de dire "ça marche pas", donnez plutôt des informations précises afin de mieux pouvoir vous aider.
Grand gourou de la -attitude
alors comme ça, ça marche super bien ! pas de souci
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 :
j'obtiens l'erreur suivante : dépassement de capacité
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
Version 2
je vais chercher la valeur directement dans la requete
alors j'ai tenté comme ceci
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
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)
salut,
tu sembles confondre ici requête SQL et résultat de la requête (recordset par exemple).
Le code suivant :
ne peut fonctionner car tu mets une chaine de caractères dans un entier
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
celui-ci :
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. ²
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)
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
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
aaaah super ca marche !
merci infiniment pour la résolution ! et de m'avoir donné un mini cours !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager