Discussion :

[facteur]

Bonjour
J'ai un code vba excel qui me permet d'exécuter une requête SQL à partir d'une feuille Excel.
J'essaie mais en vain d' apporter une petite modification sur deux lignes de code qui récupèrent dans une cellule une date en format jj/mm/aaa hh:mm.
Ce que je souhaite faire c'est scinder la date et l heure dans deux cellules différentes.

Je m'explique:
voici un morceau de mon code vba pour une meilleur compréhension.
Les deux lignes que je souhaite modifier sont celles en bleues.
Actuellement la date de debut (en format JJ/MM/AAAA HH:MM) se trouve dans la cellule B1 de ma feuille Excel.
Pour une meilleure ergonomie du fichier:
pour la date de debut :j'ai mis la date en B1 (en format JJ/MM/AAA) et l'heure dans la cellule C1 ( format HH:MM).
Même chose pour date de fin: En B2 : date en format JJ/MM/AAA et en C2 l'heure en format hh:mm

Or je ne sais pas comment transformer les lignes de code en bleues pour que le vba puisse recuperer d'une part la date dans la cellule B1 et d'autre part l'heure dans la cellule C1.
Les futures lignse de code ressembleraient à ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
.Parameters.Append .CreateParameter("P2", adDate, adParamInput, 7, Sheets("Feuil1").Range("B1")+ range("C1")) 'date debut

.Parameters.Append .CreateParameter("P2", adDate, adParamInput, 7, Sheets("Feuil1").Range("B2")+ range("C2")) 'date fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 Set cm = New ADODB.Command
  With cm
    .ActiveConnection = cn
    .CommandText = sql
    .CommandTimeout = 0 'evite que le delai d'attente de requete expire (que la requte bugue)
    .CommandType = adCmdStoredProc 
    .Parameters.Append .CreateParameter("P2", adDate, adParamInput, 7, Sheets("Feuil1").Range("B1")) 'date debut 
    .Parameters.Append .CreateParameter("P2", adDate, adParamInput, 7, Sheets("Feuil1).Range("B2")) 'date fin

Merci d'avance de votre aide

[Philippe Tulliez]

Bonjour,

Or je ne sais pas comment transformer les lignes de code en bleues pour que le vba puisse recuperer d'une part la date dans la cellule B1 et d'autre part l'heure dans la cellule C1.

Les dates et les heures dans Excel sont des nombres qui sont formatés dont la partie entière est la date et la décimale l'heure et il existe en Excel et en VBA des fonctions qui permettent l'extraction de ceux-ci
Le simple fait d'utiliser l'entier du nombre renvoie déjà la date

[facteur]

Bonsoir Philippe,
il faut se mettre du cote de la personne qui va référencer les deux cellules date et heure.
Ce que j'essaie de faire c'est que le collaborateur référence la cellule B1 avec un date jj/mm/aaa et ensuite il référence la cellule C1 avec une heure en format hh:mm.
et enfin mon code vba recuperer les valeurs date et heure de ces deux cellules dans mon code vba

[Thumb down]

Bonsoir,

Or je ne sais pas comment transformer les lignes de code en bleues pour que le vba puisse recuperer d'une part la date dans la cellule B1 et d'autre part l'heure dans la cellule C1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
DateDeb = Format(Sheets("Feuil1").Range("B1").Value2 + Sheets("Feuil1").Range("C1").Value2, "yyyy-mm-dd hh:mm:ss")
DateFin = Format(Sheets("Feuil1").Range("B2").Value2 + Sheets("Feuil1").Range("C2").Value2, "yyyy-mm-dd hh:mm:ss")
 
 
 .Parameters.Append .CreateParameter("DateDeb", adDate, adParamInput, 7, DateDeb) 'date debut
.Parameters.Append .CreateParameter("DateFin", adDate, adParamInput, 7, DateFin) 'date fin

[Philippe Tulliez]

Bonjour,

Ce que j'essaie de faire c'est que le collaborateur référence la cellule B1 avec un date jj/mm/aaa et ensuite il référence la cellule C1 avec une heure en format hh:mm.

Sauf une mauvaise compréhension de la langue française de ma part, il me semble que vous dites tout le contraire ici

J'essaie mais en vain d' apporter une petite modification sur deux lignes de code qui récupèrent dans une cellule une date en format jj/mm/aaa hh:mm.
Ce que je souhaite faire c'est scinder la date et l heure dans deux cellules différentes.

d'où ma réponse

[facteur]

Bonjour
@Thumb down : c'est exactement ce que je recherchais. Merci énormément.
Une petite question. Y a t il une différence entre value2 et value dans le code : Si dans le code Range("C1").Value2 , je mets Range("C1").Value, quelle sera l'impact ?

@Philippe Tulliez: il est vrai qu'il est parfois difficile d'expliquer avec des mots nos attentes. L'essentiel de se faire comprendre au fil des discussions. Et merci encore 'avoir pris le temps de me répondre.
Je clos la discussion.

[Thumb down]

Bonjour,
Comme le disait Philippe les dates sont des nombres avec jour, moi, année pour la partie entière et heures, minutes, seconde pour la partie décimales.

Value devrait donner des dates et value2 la veleur numérique de la date ! Dans notre cas la partie entière en B1 additionner à la partie décimales en C1.

5 + 0.5 = 5.5

[facteur]

Merci Thumb down pour cette réponse claire et precises.
je ferme cette discussion.