Contenu récent par satfilter

  1. S

    vba rechercher puis couper coller

    c'est des acquisitions intra communautaire ou des importations... PierreJean, Merci pour le ptit code, ça va bien me dépatouiller !! a++
  2. S

    vba rechercher puis couper coller

    bonjour, j'ai une feuille excel qui est le résultat d'une requête SQL avec 2 fournisseurs distinct pour chaque facture (une histoire de tva) et même parfois plusieurs mandats pour une même ref facture. je vous joint un extrait de ce fichier pour une meilleure compréhension. il faudrait, pour...
  3. S

    Vba userform & oracle

    Re : Vba userform & oracle Salut, j'ai finalement réussi en utilisant l'enregistreur de macro. Private Sub OK_Click() Dim Ncde As String Ncde = TextBox1.Value ActiveSheet.Cells.ClearContents With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _...
  4. S

    Vba userform & oracle

    Re : Vba userform & oracle Uuuppppeee
  5. S

    Vba userform & oracle

    Bonjour, j'ai un soucis concernant la connection a une BDD Oracle via VBA. Voici mon code : Private Sub CommandButton1_Click() Dim strConnection As String Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strSQL As String Dim Ncde As String Set conn = New...
  6. S

    Requete SQL SELECT en VBA

    Re : Requete SQL SELECT en VBA Je met en PJ le fichier. Les fichiers de connection que me créé excel sont des .odc :confused: je précise que j'interroge un serveur oracle. le but serai de récupérer le String du user form quand on clique ok et de l'intégrer dans la requete sql. Ensuite...
  7. S

    Requete SQL SELECT en VBA

    Re : Requete SQL SELECT en VBA UP !! J'ai vraiment besoin d'un coup de main ! Merci
  8. S

    Requete SQL SELECT en VBA

    Re : Requete SQL SELECT en VBA Re j'ai un fichier de connection en odc, avec ce code il me dit que le format de base de donnée est inconnu "rrrrrrrrrrrrrr" En feuille 1: Sub ConnecterBase(ConnectBD As ADODB.Connection, _ CheminBD As String, _...
  9. S

    Requete SQL SELECT en VBA

    Re : Requete SQL SELECT en VBA Private Sub CommandButton1_Click() Dim NumCde As String Dim Requete As String NumCde = TextBox1.Value Requete = "select ((T2.'GEST' || TO_CHAR(TRUNC(T2.'NU_CDE' ))) || TO_CHAR(TRUNC(T2.'LIG_CDE'))), T2.'MT_ENGAGE' - T3.'MT_LIQ' , T3.'MT_LIQ' , T2.'MT_ENGAGE'...
  10. S

    Requete SQL SELECT en VBA

    Re : Requete SQL SELECT en VBA bonjour, merci pour votre réponse le probleme c'est que je n'ai pas de fichier mdb, je tape directement sur un serveur oracle. En fait, le but c'est d'avoir un UserForm, ou l'utilisateur tapera un numéro de commande. Je souhaite récupérer ce numéro dans une...
  11. S

    Requete SQL SELECT en VBA

    Re : Requete SQL SELECT en VBA re J'ai essayé avec l'enregistreur de macro mais ca ne marche pas. Je sais pas si le lien que vous m'avez donné peut m'aider. Je cherche a acceder a une base sur un serveur oracle. Voila le code qui marche pas : Private Sub CommandButton1_Click() Dim...
  12. S

    Requete SQL SELECT en VBA

    Bonjour, je voudrai envoyer une requete en SQL de type SELECT avec VBA. J'ai créé dans un classeur connecté a la BDD un UserForm, code: Private Sub CommandButton1_Click() Dim NumCde As String Dim Requete As String NumCde = TextBox1.Value Requete = "select ((T2.'GEST' ||...
  13. S

    Modifier un croisé dynamique existant avec une macro vba

    Re : Modifier un croisé dynamique existant avec une macro vba Salut j'ai essayé avec l'index mais n'y suis pas arrivé. Je réréssayerai, mais en tous cas tout fonctionne comme je veux. @+
  14. S

    Modifier un croisé dynamique existant avec une macro vba

    Re : Modifier un croisé dynamique existant avec une macro vba C bon, en fait je récupére la chaine de la cellule concernée (toujours la meme) dans une variable et ca marche. Merci pour tout A+
  15. S

    Modifier un croisé dynamique existant avec une macro vba

    Re : Modifier un croisé dynamique existant avec une macro vba N'y aurait-il pas un moyen d'utiliser la fonction PivotFields avec pour parametre juste une partie de la chaine de caractères genre : .PivotFields( contient "Cmtbpm" ).Orientation = xlHidden ??