Contenu récent par Pierre31

Re bonjour, J'ai enfin trouvé: Set rs = cnn.Execute("SELECT N°_OT,Mont_Tot_Fournit,Date_Num FROM Histo where Date_Num >=" & ValDeb & "And Date_Num <=" & ValFin) Ce qui me permet de récupérer la valeur des variables ValDeb et ValFin à partir des valeurs contenues dans les cellules de la...

Bonjour à toutes et tous, Ne trouvant pas de solution avec MS_Query je me rabat sur ADO mais là encore je n'arrive pas à passer dans une variable la valeur à rechercher Sub Extrac_ADO() ' ' Extrac Macro ' Macro enregistrée le 31/05/2011 par ADMIN ' ValDeb = Range("Deb")...

Bonjour à toutes et tous, Dans la procédure ci dessous (MS_Query) comment remplacer les nombres 40500 et 41000 par les variables ValDeb pour la première valeur et ValFin pour la seconde valeur ceci afin de lancer la procédure à partir d'un bouton de la feuille de calcul après avoir saisi les...

Bonjour Michel et Yann, Tout d'abord merci Michel pour la solution MS Query à laquelle je n'avais pas pensé alors que j'ai eu l'occasion de l'utiliser il y a quelques années. Je travaille en réseau et effectivement cette solution nécessite comme le souligne Yann d'avoir un fichier source...

Bonjour, Je cherche toujours, mais je n'arrive pas à résoudre mon problème. Cordialement Pierre

Re bonjour à toutes et tous, Est ce que avec cette procédure je peux vérifier que la donnée de chaque cellule est égale ou supérieure par exemple à 4500. Private Sub RechVal_Click() Dim Source As ADODB.Connection Dim Rst As ADODB.Recordset Dim ADOCommand As ADODB.Command...

Bonjour à toutes et tous, Éventuellement est ce que je peux faire une boucle dans ADO du nombre de fois (5200-4500) et chercher dans le fichier fermé la valeur 4500 + numéro d'itération, copier les cellules de A à M qui correspondent à l'adresse si la valeur est trouvée et ce jusqu'à 5200...

Bonjour à toutes et tous, Par VBA et éventuellement par ADO je souhaite pouvoir copier dans le classeur ouvert "Ouvert.xls" les données des cellules de A(i) à (M(i) du fichier fermé "Fermé.xls" si dans ce fichier la cellule M(i) = > à 4500 ou M(i) =< à 5200. Le collage de la première donnée...

Bonjour pierrot93, Merci pour ta réponse, c'est exactement la bonne solution. Il s'agissait d'une ListBox dans une feuille de calcul Cordialement Pierre

Bonjour à toutes et tous, J'ai un formulaire dans lequel il y a des TextBox et des ListBox, lorsque j'imprime mon formulaire l'on voit les TextBox par contre l'emplacement des ListBox reste à blanc. Il y a une raison à cela mais je n'arrive pas à trouver. D'avance merci pour vos...

Bonjour Robert, bonjour le Forum, En fait j'ai retrouvé la formule que j'avais utilisée depuis assez longtemps mais oubliée c'est en VBA la fonction "Union" qui permet de sélectionner des colonnes ou zones non contigües et cela fonctionne parfaitement. Dans l'exemple si dessous je nomme...

Bonjour à toutes et tous, J'avance sur le sujet mais il me reste un problème à résoudre. Lorsque je veux créer mon champs nommé à l'aide du Userform dans la zone "Fait référence à " il y a par exemple: "Tables1!$A$2:$A$7" au lieu de Tables1!$A$2:$A$7 sans les guillemets, ce qui ne permet...

Bonjour Robert, Effectivement lorsque l'on réalise la création d'un champs nommé manuellement par "Insertion - Nom - .." pas de problème pour la copie du champs. Je vais regarder de plus près l'insertion du champs par macro, c'est certainement là que se situe le problème. Cordialement Pierre

A nouveau bonjour, Pour le 1er point plus de problème, voici la macro modifiée: Sub Copie_2() ' ' Copie_2 Macro ' Macro enregistrée le 22/03/2011 par ADMIN ' Dim cel As Range Dim V, C As Integer Nb_L = Sheets("Tables1").Range("A65536").End(xlUp).Row V = 1 C = 12 For Each...

Bonjour Robert et le forum, Tout d'abord merci Robert pour ta réponse que j'ai essayé de mettre en application dans la macro "Copie_2" et en essayant d'apporter une modification qui devrait permettre de recopier le champs nommé colonne par colonne. C'est là que le bat blesse. La variable "V"...