Les requêtes SQL requièrent souvent de limiter le nombre de lignes en limitant les dates retournées. C’est pourtant assez difficile car les méthodes diffèrent selon le SQL.
Cet article sera mis à jour au fur et à mesure de mes découvertes.
Avec le SQL de Firebase : datediff
La requête suivante fonctionne avec du SQL Firebase.
WHERE datediff(year, MVT_DATE, cast('now' as date))=0
Ici, on ne retourne que les lignes dont la date est de la même année qu’aujourd’hui. Cette instruction fonctionne sur une base Firebird.
Requête de Gab dans FlameRobin qui montre que datediff fonctionne parfaitement sur une base firebird
En principe la commande suivante fonctionne dans MySQL Workbench
AND T_Code_Temps BETWEEN '20191001' AND '20191231'
SELECT * FROM candidats WHERE
id NOT IN (SELECT idCandidat FROM calendrier WHERE dateNonDispo BETWEEN '2013-10-01' AND '2013-10-18')
AND candidats.statut = 1
Supposons que nous ayons un fichier excel, avec des macros, et un onglet (une feuille), qui contient des données que nous voudrions placer dans un autre fichier excel, facile à utiliser et imprimer.
Dans ce script, nous réalisons les actions suivantes :
Définir une variable texte à partir d’éléments présents dans le fichier ou calculés.
partage des variable entre fichier
créer une copie sans macros d’une feuille qui en contient
enregistrer cette nouvelle feuille dans un autre fichier avec un nom correspondant à la variable texte ci-dessus ;
fermer le fichier
Définir une variable texte à partir d’éléments divers
Voici l’ensemble du script VBA
Public extension As String
Public chemin As String, nomfichier As String
Sub Créer_fichier_excel()
Dim Sh As Worksheet
'les variables extension, chemin et nomfichier sont déclarées Public pour passer d'un classeur à l'autre
'il faut d'abord créer une copie de la feuille SANS MACROS
' source https://www.developpez.net/forums/d1044048/logiciels/microsoft-office/excel/macros-vba-excel/ajouter-feuille-n-existe/
On Error Resume Next
Set Sh = ThisWorkbook.Sheets("modeleSANS")
'On vérifie l'existance de la feuille "modeleSANS"
If Not Sh Is Nothing Then
' la feuille existe, on la vide
Sh.Select
Sh.UsedRange.ClearContents
Cells.Select
Selection.UnMerge
Else
' La feuille modeleSANS n'existe pas, on la crée
Set Sh = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
Sh.Name = "modeleSANS"
End If
' Maintenant on copie le contenu et le format de modele mais PAS les macros
Sheets("modele").Select
Cells.Select
Selection.Copy
Sheets("modeleSANS").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
' tant qu'on est dans le bon fichier on va chercher le nom du futur fichier
Sheets("TabDyn").Select
Range("H38:K39").Select
Selection.Copy
Range("H40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H40").Select
Application.CutCopyMode = False
nomfichier = "Inventaire-" & Sheets("TabDyn").Range("H40").Value & "-"
nomfichier = nomfichier & Format(Date, "yy-mm-dd") & extension
' nomfichier = nomfichier & Year(Now) & Month(Now) & Day(Now) & extension
' et maintenant on peut enfin copier la feuille dans le fichier !
Sheets("modeleSANS").Select
ThisWorkbook.ActiveSheet.Copy
extension = ".xlsx"
chemin = ThisWorkbook.Path
' Actions dans le fichier nouvellement crée
Par exemple définir la zone d’impression
With ActiveWorkbook
.SaveAs Filename:=chemin & "\" & nomfichier
.Close
End With
End Sub
Variables partagées entre fichiers
Les variables publiques sont déclarées à l’extérieur de la macro
Les variables ci-dessus extension, chemin et nomfichier doivent être partagées entre le fichier source (qui contient ce qui va définir les contenus) et le fichier cible qui va prendre ce nom. Si ces variables ne sont pas déclarées à l’extérieur de la macro, en mode Public, le fichier créé n’a pas de nom et une fenêtre nous demande le nom à attribuer.
créer une variable composée d’éléments du fichier
Les deux lignes ci-dessous créent une variable nomfichier qui est une chaine de caractères sous la forme Inventaire-XXX-AA-MM-JJZZZ, avec
XXX qui correspond à ce qui est dans la cellule H40 de l’onglet TabDyn
créer une copie sans macros d’une feuille qui en contient
Dans le script final, on regarde si l’onglet modeleSANS existe. S’il n’existe pas, on le crée.
Ensuite, on copie le contenu de cellules de l’onglet modele et on le colle sous différentes formes dans l’onglet modeleSANS : valeurs uniquement (Paste:=xlPasteValues), puis formats (Paste:=xlPasteAllUsingSourceTheme). On a ainsi un onglet qui contient tout sauf les macros.
Copier un onglet dans un autre fichier
les deux lignes ci-dessous enregistrent la feuille modeleSANS dans un autre fichier qui n’a pas de nom à ce stade.
Nous avons un tableau pour définir la valeur d’une variable v1 pour l’ensemble des produits chaque jour de l’année depuis le début de l’année. Le tableau fait 89 colonnes et plusieurs centaines de lignes.
Article_Code
01/01/2019
02/01/2019
03/01/2019
04/01/2019
05/01/2019
06/01/2019
07/01/2019
08/01/2019
4INTTHO001
0
0
0
0
0
0
0
0
4CBPHYP001
2,18
2,18
2,18
2,18
2,18
2,18
2,18
2,18
4CBPHYP002
2,18
2,18
2,18
2,18
2,18
2,18
2,18
2,18
4CBPHYP004
2,38
2,38
2,38
2,38
2,38
2,38
2,38
2,38
4CBPHYP010
0
0
0
0
0
0
0
0
4BBHYP001
2,18
2,18
2,18
2,18
2,18
2,18
2,18
2,18
4CBPHYP003
2,18
2,18
2,18
2,18
2,18
2,18
2,18
2,18
4CBPHYP006
2,05
2,05
2,05
2,05
2,05
2,05
2,05
2,05
4CBPHYP005
2,1
2,1
2,1
2,1
2,1
2,1
2,1
2,1
4KERHYP001
4,25
4,25
4,25
4,25
4,25
4,25
4,25
4,25
Le problème, c’est que pour entrer ces données dans la base de données, il nous faudra quelque chose comme :
Article_Code
T_Code_Temps
variable_txttxt
4MARSOU002
20190101
2,18
4MARSOU002
20190102
2,18
4MARSOU002
20190103
2,18
4MARSOU002
20190104
2,18
4MARSOU002
20190105
1,74
4MARSOU002
20190106
1,74
4MARSOU002
20190107
1,74
4MARSOU002
20190108
1,89
La solution c’est de « décroiser » le tableau.
Ca se fait facilement en suivant ce tutoriel pour Excel 2016. Et pour Excel 2010 ou 2013, on pourra utiliser l’utilitaire Power Pivot fourni gratuitement par Microsoft et suivre cet autre tutoriel.
J’ai parfois envie de « photographier » une page web entière, pour la visualiser dans sa globalité. Mais ce n’est pas facile du tout à faire lorsque la page est très longue. Heureusement Google Chrome dispose d’outils pour le faire (source : un article en anglais ).
Imaginons que je veuille faire une capture de l’ensemble de la page d’accueil du site Parcours-Performance. Je commence par aller sur ce site avec le navigateur Chrome.
Dans le site, j’accède aux outils de développement de chrome par un Clic droit et « inspecter » ou par la combinaison de touches CTRL+MAJ+I .
Taper CTRL+ MAJ +P, commencer à écrire screenshot dans la fenêtre qui s’ouvre, après le >. Puis choisir screenshot Capture full size screenshot
J’utilise le thème DIVI depuis que j’ai choisi un hébergement chez Infomaniak car cet hébergeur donne un accès gratuit à ce thème premium et quelques extensions premium également.
J’ai déjà écrit plusieurs articles sur Divi (voir les articles de la série Utiliser le thème DIVI d’Elegant Themes. Dans celui ci, je souhaite faire un récapitulatif rapide de ce qu’il est possible de faire avec les « layouts », ou mises en pages prédéfinies.
L’utilisation de ces mises en page prédéfinies est décrite dans les articles, en anglais, suivants :
J’ai mis une copie d’écran d’une des pages qui peuvent être ainsi créés en bas de cet article. Pour voir d’autres exemples, on peut aller sur cette page, qui contient le catalogue de tous les « premade layouts » pour DIVI.
Commentaires récents