Résultats de la recherche

Re : Recordset = "objet fermé" Bonjour, Je pense avoir trouvé l'origine du problème, et c'était tout bête en fait: une requête update ou insert ne retourne rien dans le recordset, donc on ne peut pas "lire" cet objet. Si je fais un select au lieu de l'update, j'obtiens bien le résultat du...

Re : Recordset = "objet fermé" J'ai testé en pas à pas, dans BDDExecuterRequete, rst reste vide. J'ignore pour quoi, mais je pense que je vais investiguer par là. J'ai aussi essayé les autres méthodes pour exécuter une requête, et j'obtiens la même erreur. Merci de ton aide en tout cas...

Re : Recordset = "objet fermé" Oui en effet, j'avais créé le recordset et la connexion avec CreateObject dans un souci de portabilité, mais je ne suis pas à l'origine des autres bouts de code (BDDExecuteRequete, etc.) donc la création diffère. J'ai enlevé les "CreateObject" pour faire des...

Re : Recordset = "objet fermé" Bonjour, Merci pour cette réponse, J'ai ajouté tes suggestions, sans succès. Mon recordset reste "fermé". Je peux voir que mes requêtes s'exécutent, car mes update/insert sont visibles en base. Pour le code de la macro entière, le voici (je raccourci un...

Bonjour à tous, Je ne suis pas venu ici depuis un bout de temps, mais je me remets au VB à cause du boulot, et j'ai un petit souci actuellement: j'essaie d'exécuter des requêtes SQL dans une base postgre, depuis un fichier excel. La requête s'exécute bien, mais lorsque j'essaie de récupérer...

Re : Agencement de graphique par macro Bonjour Pierrot, Merci beaucoup, c'est exactement ce que je voulais ! Ca marche impec.

Bonjour à tous ! J'ai fait une macro qui importe un tableau d'un autre document, et qui affiche un graphique avec ces données. Le but est de faire cette opération plusieurs fois à la suite (parce qu'il y a plusieurs tableaux à importer). Cependant, à l'ajout de graphique, ceux ci se...

Re : Help me ^^ Bonjour, Dans ta ligne, est ce que "f" est une variable? Sinon il faut mettre un chiffre, 6 pour la colonne F par exemple.

Bonjour à tous ! Je crée actuellement des graphiques ayant un nombre variable de données en abscisse, créés par vba, mais j'ai un souci: Excel masque automatiquement les abscisses dans un souci de visibilité, lorsqu'il y a trop de texte dans un petit espace. Ceci est génant car, j'aimerai...

Re : Variable Objet non définie Bonjour wilfried, En effet, j'avais oublié un espace dans le texte a cherché (l'erreur est corrigée, ça marche maintenant) Merci beaucoup !

Bonjour et bonne année à tous ! Premier problème de l'année pour moi, j'ai un bug dès le début d'une macro, et je sèche dessus depuis hier. Le code: Sub AjoutSSA(Nom As String, Cell As Range) Dim CelTarg2 As Object Dim Plage2 As Range Dim wsSynthese As Worksheet Dim wsDB As Worksheet...

Re : Problème de Collection Bonjour, Désolé de remonter mon topic, mais bon, si à tout hasard quelqu'un pourrait m'aider. J'ai tripoté un peu le code depuis, la définition de la liste marche toujours bien, et j'ai réussi une fois à bien copier ce qu'il fallait (mais que le premier élément de...

Re : VBA - Allez sur un onglet directement Bonjour, A vue de nez, essaie quelque chose comme ça: Sub Allez() Select Case Cells("I16").Value Case "toto" Sheets("jardin").Select Case "titi" Sheets("maison").Select ... end select End Sub (je l'ai pas essayé, donc à débugger ) edit: grillé...

Bonjour/Bonsoir à tous ! Pour ceux qui digèrent les repas de Noël en faisant du excel, une "petite" question: Je fais un classeur qui contiendrait 1 onglet de synthèse, et un onglet de "données", où toutes les données d'un "SSA" (du jargon de boulot) seraient stockées. Dans la synthèse, on...

Re : Transfert de données d'une feuille vers une macro Bonjour Magic doctor, J'ai travaillé un peu sur ton cas, je te joins le fichier. Dis moi si cela te convient. (le code a besoin d'améliorations, mais c'est un début...)

Re : Transfert de données d'une feuille vers une macro Bonsoir à tous a vue de nez (toujours), il suffirait d'ajouter une condition aux if Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim cell As Variant For Each cell In Range("Colonne1") 'Jamais contentes If (cell =...

Re : Pb sur la gestion d'extension... please Si je ne m'abuse, ton code fait ce que je dis, c'est à dire qu'il efface toute extension suivant l'extension ".db" on pourrait avoir "texte.dbsurplus.com", la macro retire ".com" en fait. J'ignore le contexte du code, mais s'il ne trouve pas ".db"...

Re : Pb sur la gestion d'extension... please En fait, je n'avais pas lu le reste du code, je pensais que tu cherchais juste à détecter l'extension ".db" (dans ce cas, InStr(Right(strChaine, 3), ".db") suffit) Si j'ai bien compris le reste de ton code, tu veux voir si tu as un fichier du type...

Re : Pb sur la gestion d'extension... please Bonjour, Rajoute la fonction "right" dans ton code: intCar = InStr(InStr(1, right(strChaine,3), ".db") + 3, strChaine, ".") Ainsi, si les 3 derniers caractères ne sont pas ".db", intCar sera nul. (a priori)

Re : Calcul automatique avec "si" Bonsoir ! Ca devrait donner un truc du genre: (à mettre dans B1) =SI(A1<3200;A1+1000;SI(C1="ENCART";ARRONDI(A1*1,03;-2);A1+1,02+400)) petite complétion: =SI(A1="";"";SI(A1<3200;A1+1000;SI(C1="ENCART";ARRONDI(A1*1,03;-2);A1+1,02+400))) ça évitera d'avoir 1000...