Mise en forme Macro vba

T

tijocanard

XLDnaute Nouveau
Bonour.

Alors mon problème est une question de mise en forme d'un résultat d'une macro.

Je m'explique: J'ai créé sous excel une macro qui se connecte à une base oracle et qui renvois le résultat sur ma feuille excel.

Ma macro:

Code: 
Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=id;PWD=pwd;SERVER=server;", _
        Destination:=Range("A1"))
        .CommandText = Array( _
        "SELECT Sum(histo_event_tr.QTE_PROD)as quantite, sysdate" & Chr(13) & "" & Chr(10) & "FROM DEPT_85.histo_event_tr histo_event_tr, DEPT_85.histo_tr histo_tr" & Chr(13) & "" & Chr(10) & "WHERE histo_event_tr.ID_HISTO = histo_tr.ID_HISTO AND ((histo_event_tr.ID_RESS_HIST" _
        , _
        "O='UPAV3_CU11_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')) OR (histo_event_tr.ID_RESS_HISTO='UPAV3_CU12_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to" _
        , _
        "_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')) OR (histo_event_tr.ID_RESS_HISTO='UPAV3_CU21_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')) OR (histo_even" _
        , _
        "t_tr.ID_RESS_HISTO='UPAV3_CU22_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')))" _
        )
        .Name = "Lancer la requête à partir de oracle"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertEntireRows
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 15
        .PreserveColumnInfo = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Donc ma macro me renvoie bien une quantité à une heure donnée. :)
Le problème arrive: ma macro se rafraichit toutes les 15min et le nouveau résultat se met en cellulle A1
Normal car j'ai mis:
Code: 
Destination:=Range("A1"))

comment faire pour afficher les nouveau résultat en dessous du premier résultat? :eek:

J'espere que c'est clair!

L'autre problème est que à chaque rafraichissement, il me remet les entêtes des colonnes (quantité et sysdate), je ne voudrais que le résultat.

De sorte que j'obtienne un tableau pour générer plus tard un graphique.

J'ai bien essayé de bidoullier dans ces options mais j'y arrive pas.

Code: 
.FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertEntireRows
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 15
        .PreserveColumnInfo = False
        .Refresh BackgroundQuery:=False

Je débute en vba et votre aide sera précieuse.:rolleyes:
 

Pièces jointes

  • Equipe1.zip
    19.1 KB · Affichages: 28
Dernière édition:
Trier par date Trier par votes
tototiti2008

tototiti2008

XLDnaute Barbatruc
Re : Mise en forme Macro vba

Re,

à ma connaissance il n'y a aucun moyen de demander aux données externes de se mettre à jour dans des lignes différentes avec .RefreshPeriod

Donc il va falloir lancer cette même macro toutes les 15 minutes
ça peut être réalisé avec Application.Ontime


Code: 
[FONT=monospace][COLOR=#0000fc]Private[/COLOR] [COLOR=#0000fc]Sub[/COLOR] CommandButton1_Click()[/FONT]
[FONT=monospace][COLOR=#0000fc]Dim[/COLOR] Ligne [COLOR=#0000fc]as[/COLOR] [COLOR=#0000fc]Long[/COLOR][/FONT]
[FONT=monospace]Ligne = Range([COLOR=#800000]"A65536"[/COLOR]).[COLOR=#0000fc]end[/COLOR](XluP).row+1[/FONT]
[FONT=monospace][COLOR=#0000fc]With[/COLOR] ActiveSheet.QueryTables.Add(Connection:= _[/FONT]
[FONT=monospace][COLOR=#800000]"ODBC;DRIVER={Microsoft ODBC for Oracle};UID=id;PWD=pwd;SERVER=server;"[/COLOR], _[/FONT]
[FONT=monospace]Destination:=Range([COLOR=#800000]"A"[/COLOR] & Ligne))[/FONT]
[FONT=monospace].CommandText = Array( _[/FONT]
[FONT=monospace][COLOR=#800000]"SELECT Sum(histo_event_tr.QTE_PROD)as quantite, sysdate"[/COLOR] & Chr(13) & [COLOR=#800000]""[/COLOR] & Chr(10) & [COLOR=#800000]"FROM DEPT_85.histo_event_tr histo_event_tr, DEPT_85.histo_tr histo_tr"[/COLOR] & Chr(13) & [COLOR=#800000]""[/COLOR] & Chr(10) & [COLOR=#800000]"WHERE histo_event_tr.ID_HISTO = histo_tr.ID_HISTO AND ((histo_event_tr.ID_RESS_HIST"[/COLOR] _[/FONT]
[FONT=monospace], _[/FONT]
[FONT=monospace][COLOR=#800000]"O='UPAV3_CU11_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')) OR (histo_event_tr.ID_RESS_HISTO='UPAV3_CU12_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to"[/COLOR] _[/FONT]
[FONT=monospace], _[/FONT]
[FONT=monospace][COLOR=#800000]"_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')) OR (histo_event_tr.ID_RESS_HISTO='UPAV3_CU21_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')) OR (histo_even"[/COLOR] _[/FONT]
[FONT=monospace], _[/FONT]
[FONT=monospace][COLOR=#800000]"t_tr.ID_RESS_HISTO='UPAV3_CU22_0') AND (histo_tr.DT_DEB_CONS>to_date(concat(to_char(sysdate,'yymmdd'),'0530'),'yymmddhhmi')))"[/COLOR] _[/FONT]
[FONT=monospace])[/FONT]
[FONT=monospace].Name = [COLOR=#800000]"Lancer la requête à partir de oracle"[/COLOR][/FONT]
[FONT=monospace].FieldNames = [COLOR=#0000fc](Ligne = 2)[/COLOR][/FONT]
[FONT=monospace].RowNumbers = [COLOR=#0000fc]False[/COLOR][/FONT]
[FONT=monospace].FillAdjacentFormulas = [COLOR=#0000fc]False[/COLOR][/FONT]
[FONT=monospace].PreserveFormatting = [COLOR=#0000fc]True[/COLOR][/FONT]
[FONT=monospace].RefreshOnFileOpen = [COLOR=#0000fc]False[/COLOR][/FONT]
[FONT=monospace].BackgroundQuery = [COLOR=#0000fc]True[/COLOR][/FONT]
[FONT=monospace].RefreshStyle = xlInsertEntireRows[/FONT]
[FONT=monospace].SavePassword = [COLOR=#0000fc]False[/COLOR][/FONT]
[FONT=monospace].SaveData = [COLOR=#0000fc]True[/COLOR][/FONT]
[FONT=monospace].AdjustColumnWidth = [COLOR=#0000fc]True[/COLOR][/FONT]
[FONT=monospace].RefreshPeriod = 0[/FONT]
[FONT=monospace].PreserveColumnInfo = [COLOR=#0000fc]False[/COLOR][/FONT]
[FONT=monospace].Refresh BackgroundQuery:=[COLOR=#0000fc]False[/COLOR][/FONT]
[FONT=monospace].Delete[/FONT]
[FONT=monospace][COLOR=#0000fc]End[/COLOR] [COLOR=#0000fc]With[/COLOR][/FONT]
[FONT=monospace][COLOR=#0000fc]Application.Ontime Now + timevalue("00:15:00"), "[COLOR=#000000]CommandButton1_Click[/COLOR]"[/COLOR][/FONT]
[FONT=monospace][COLOR=#0000fc]End[/COLOR] [COLOR=#0000fc]Sub[/COLOR][/FONT]
 
Dernière édition:
Vote positif 0 Vote négatif
tototiti2008

tototiti2008

XLDnaute Barbatruc
Re : Mise en forme Macro vba

Re,

si la macro "CommandButton1_Click" est dans la Feuil1 de ton classeur (CodeName, pas le nom de la feuille dans Excel), essaye de mettre

Code: 
Application.Ontime Now + timevalue("00:15:00"), "Feuil1.CommandButton1_Click"
 
Vote positif 0 Vote négatif
T

tijocanard

XLDnaute Nouveau
Re : Mise en forme Macro vba

ha mince j'avais édité mon post et tu rep après!

j'ai copié mon code dans un module tout en le laissant dans feuil1 (bidouille quoi)!

mais j'essaye ta soluce...

Edit: c'est tout bon aussi pour cette solution!

Thanks a lot
Et bon week end
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

I
  • Résolu(e)
Microsoft 365 ouvrir le chemin d'une power query manuellement
Réponses
7
Affichages
617
iliess
I
S
  • Résolu(e)
XL 2016 Séparateurs décimales & milliers sur un import csv
2
Réponses
18
Affichages
2 K
sabrina_
S
B
  • Question
Microsoft 365 Charger nombre variable de tableaux Query avec VBA
Réponses
6
Affichages
2 K
bluesky12000
B
Wayki
  • Résolu(e)
Microsoft 365 Boucle VBA d'import de Table PDF
Réponses
4
Affichages
2 K
Wayki
Wayki
G
  • Question
Power Query power query
2
Réponses
22
Affichages
4 K
GIPJGR
G
B
  • Question
Microsoft 365 VBA Compter 2 lignes après la fin d'un tableau dont on a le nom
Réponses
2
Affichages
838
bluesky12000
B
G
  • Question
XL 2010 Extraction de données suivant onglets (msgbox)
Réponses
2
Affichages
984
GV91
G
P
  • Question
XL 2010 lancer macro en restant sur userbox
Réponses
5
Affichages
1 K
GALOUGALOU
GALOUGALOU
V
  • Question
XL 2016 Mise en forme fichier texte sous excel
Réponses
7
Affichages
2 K
VBA
V
O
  • Question
Travail et mise en forme sur les données à l'aide de VBA
Réponses
0
Affichages
1 K
oxychene
O

Membres actuellement en ligne

22 membres et 333 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 630
Messages
2 111 379
Membres
111 115
dernier inscrit
mermo