17 septembre 2011
Planning journalier - 2
Sur une idée de Marc, voici une évolution du planning de décembre 2007.
Ce nouveau planning permet d'attribuer les différentes tâches à chacun, de définir les horaires pour les équipes du matin ou d'après-midi, et de visualiser le tout avec un niveau de détail d'une demi heure.
Une tâche peut être divisée en 3 sous-tâches.
Les couleurs du graphiques sont configurables, pour cela il suffit de colorer la cellule d'entête des colonnes horaires (limté aux couleurs de la palette standard d'Excel)
Bon téléchargement, et laissez-moi vos commentaires
tatiak
Téléchargement du fichier : PlanningJournalier.zip
02 novembre 2010
Données sur carte de France
En réponse à Marin, ci après une proposition de visualisation de données par département sur une carte de France.
03 septembre 2010
Colonne mouvante!
Dès mon retour de vacances, une mauvaise surprise!
En effet, une des mes applic Excel qui fonctionnait parfaitement et qui produisait de façon automatisée des fiches au format Word ne produisait plus que des fiches bourrées d'erreurs!!! La plupart des données se trouvaient décalées!
Et pour cause, une opératrice stagiaire avait cru bon d'ajouter des colonnes (utilement, d'ailleurs) dans la base Excel ; et donc le programme qui pointait vers des n° de colonnes était amené à écrire les informations aux mauvais emplacements du doc!
La solution développée pour l'occasion consiste donc à pointer, non pas sur le n° de colonne, mais sur l'intitulé de l'entête de la colonne. Ainsi l'emplacement "absolu" d'une colonne de données n'a plus d'importance.
Pour cela une p'tite fonction fait tout le job,voyons plutôt :
Function Entete(Cible As String, Optional ByVal Ws As Worksheet) As Integer
Dim DerColEntete As Integer, LigneEntete As Integer
On Error Resume Next
If Ws Is Nothing Then
Set Ws = Feuil1
LigneEntete = 3
Else
LigneEntete = 5
End If
With Ws
DerColEntete = .Range("IV" & LigneEntete).End(xlToLeft).Column
Entete = .Range(.Cells(LigneEntete, 1), .Cells(LigneEntete, DerColEntete)) _
.Cells.Find(Cible, LookIn:=xlValues).Column
End With
End Function
A noter ici le caractère optionnel de l'argument spécifiant la feuille à traiter, en effet, pour mon besoin, l'essentiel de la tâche est réalisée à partir de la première feuille de mon classeur.
L'appel de la fonction se fait donc de 2 manières différentes comme suit :
Sub test()
MsgBox Feuil1.Cells(6, Entete("C")).Value
End Sub
ou
Sub test2()
MsgBox Feuil2.Cells(6, Entete("D", Feuil2)).Value
End Sub
Ainsi, vous remarquerez que dans le fichier exemple, il est possible de déplacer les colonnes (par insertion de colonnes par exemple) sans perturber le traitement des données.
(dans l'exemple à télécharger, les 2 macro tests se lancent à partir des boutons des 2 premières feuilles)
Téléchargement de : testentete.zip
18 juillet 2010
Vidéo sur iPad
Comment mettre une vidéo Youtube sur mon iPad?
Pour ce faire et en utilisant que des softs gratuits, 3 étapes sont nécessaires:
1/ Tout d'abord, dans votre Firefox préféré, installez l'extension DownloadHelper qui vous permettra de télécharger les vidéos de Youtube (et autres sites). Ce téléchargement aspire la vidéo choisie au format FLV, il sera donc nécessaire de la convertir en MP4.
2/ Cette conversion se fait d'abord avec Freez, qui permet la conversion du FLV vers du MPEG. L'utilisation en est simple, pas de réglage complexe.
3/ Une fois votre vidéo convertie en MPEG, il faut la passer à la moulinette de Jodix qui va transformer votre MPEG en MP4. Et voilà!
Il suffit ensuite de glisser le fichier obtenu dans iTunes sur la liste des films de votre iPad.
De cette façon je peux emmener avec moi les vidéos du fils-à-tatiak sur mon iPad!
:) tatiak
17 juillet 2010
Le Fils-à-tatiak!
Concert d'été à Nîmes
Bravo mon fils!
:) tatiak
02 juin 2010
iPad et netbook Asus
Si comme moi, vous avez craqué pour un iPad et que vous l'utilisez avec un netbook Asus (pour ma part, un 1008HA), vous aurez remarqué que connecté à l'Asus, l'iPad ne se recharge pas comme un iPhone.
En effet, l'iPad demande une puissance plus importante que celle délivrée par un port USB2 "classique". :(
Pour remédier à cela, une solution!
Il suffit de se rendre sur le site : http://event.asus.com/mb/2010/AI_Charger/, de télécharger le driver Asus AI Charger, et de l'installer sur son netbook (par simple décompression, puis double-clic sur Setup).
Ceci fait, un redémarrage et cette fois-ci, le port USB dévlivre davantage de puissance, permettant à l'iPad de se recharger!
Magique, non?
:) tatiak
27 février 2010
Akibag!
Akibag, le bag qui tient ses promesses!!
Mon EeePC 1008HA cherchait un bag taillé à sa mesure, même look d'enfer, même efficacité, même classe. Et bien c'est fait, il la trouvé :
En moins de 48h après commande le Chokoreeto atterrit dans ma boîte à lettre emballé dans un sac-à-sac lui même encartonné : bravo le service livraison!
Quand au bag, lui-même je vous laisse admirer :
Trop bien!! tatiak
02 janvier 2010
Facturation
En ce début d'année, voici une démo de facturation automatisée à partir d'un fichier Excel, développée selon le cahier des charges de Jozerebel.
L'idée ici est de profiter des possibilités de mises en page de Word pour générer à partir d'Excel un fichier contenant l'ensemble des factures du mois concerné, sans oublier de générer également un bilan de synthèse.
Cette méthode va au delà d'une simple fusion classique qu'il est possible de faire sans programmation, car ici des calculs sont inclus pour établir chaque facture et la synthèse finale. De plus, nul besoin de quitter son fichier Excel pour effectuer cette "fusion à l'envers".
Bon téléchargement, et bonne année à tous mes visiteurs! tatiak
Téléchargement de : Projet_factures.zip
26 décembre 2009
Pilotage de PowerPoint depuis Excel
Suite à une question de Kikim, je me suis penché sur l'export à partir d'Excel de données vers PowerPoint. Sujet d'importance, si règulièrement vous avez à présenter vos résultats ou vos tableaux de bord qui ont été générés sur un beau fichier Excel.
La démo qui suit est donc la génération depuis Excel d'une présentation, soit toute nouvelle, soit prenant comme base un "début" de présentation qui contient la "charte graphique" et le "logo" de votre entreprise, votre "image de marque" en somme.
Tout d'abord, et après avoir activé la référence Microsoft PowerPoint xx.xx Object Library, vous déclarerez les variables suivantes :
Dim PPTApp As Powerpoint.Application
Dim PPTDoc As Powerpoint.Presentation
Dim Sh As Powerpoint.Shape
Ensuite, la création ou l'ouverture d'un PPT est très classique, de la même façon que pour Word.
Pour la création d'une nouvelle présentation :
Set PPTApp = CreateObject("PowerPoint.application")
Set PPTDoc = PPTApp.Presentations.Add(msoTrue)
Pour compléter un "modèle" de présentation existante :
Set PPTApp = CreateObject("PowerPoint.application")
PPTApp.Visible = True
Set PPTDoc = PPTApp.Presentations.Open(Chemin & "\Démo tatiak.PPT"
Une particularité ici, il n'est pas possible d'ouvrir un PPT existant sans affichage à l'écran (PPTApp.visible=false renvoie une erreur)
Une fois ouvert votre présentation, la première étape est de créer une nouvelle diapo :
PPTDoc.Slides.Add index:=x , Layout:=ppLayoutBlank
où x est ici une variable correspondante au numéro de la diapo
Une fois votre nouvelle diapo crée, on peut y ajouter un titre :
Set Sh = .Slides(x).Shapes.AddTextbox(msoTextOrientationHorizontal, 140, 50, 450, 50)
le mettre en forme :
With Sh.TextFrame.TextRange
.ParagraphFormat.Alignment = ppAlignCenter
.Text = ThisWorkbook.Sheets(x).Name ' on donne ici le nom de l'onglet comme titre
.Font.Name = "Comic sans MS"
.Font.Bold = msoTrue
.Font.Italic = msoTrue
.Font.Size = 20
.Font.Underline = msoTrue
End With
et enfin personnaliser le cadre
Sh.Fill.ForeColor.RGB = RGB(210, 235, 235)
Sh.Line.DashStyle = msoLineSquareDot
On peut alors ajouter vos données sous forme d'un tableau (ici de 10 lignes, 7 colonnes) :
création du tableau :
Set Sh = PPTDoc.Slides(x).Shapes.AddTable(10, 7, 40, 100, 650, 350)
ajout des données provenant d'Excel (vous remarquerez que les données sont centrées au fur et à mesure) :
For i = 1 To derligne
For j = 1 To 7
With Sh.Table.Cell(i, j).Shape.TextFrame.TextRange
.Text = ThisWorkbook.Sheets(x).Cells(i, j).Text
.ParagraphFormat.Alignment = ppAlignCenter
End With
Next j
Next i
L'ajout d'une image ou photo est aussi possible, on la placera dans un tableau d'une ligne et d'une colonne créé pour elle:
Set Sh =PPTDoc.Slides(x).Shapes.AddTable(1, 1, 40, 100, 650, 350)
Sh.Table.Cell(1, 1).Shape.Fill.UserPicture (Chemin & "\MonImage.gif")
Enfin, enregistrons le travail et vidons les variables :
PPTDoc.SaveAs Filename:=Chemin & "\MaPrésentation.ppt"
PPTApp.Quit
Set PPTApp = Nothing
Set PPTDoc = Nothing
Voilà, avec ces quelques lignes de code, la préparation de votre présentation récurrente de résultats devient une rigolade!
Pour voir la mise en place du code, télécharger la démo ci-dessous et ... laissez moi un commentaire!
tatiak
Téléchargement de : Export_vers_PPT.zip
04 décembre 2009
Snapscan Touch sur Eee 1008HA sous Windows 7
Wouaouh! Ce p'tit Eee 1008HA passé sous win7 est une merveille! Fin, léger, très réactif sous win7, que demander de mieux?
Et pour installer mon p'tit scanner Agfa Snapscan Touch? Eh, trop facile! Win7 l'accepte encore mieux que Vista!
Pour ce faire, il suffit de suivre les premières étapes du tuto précédent
Sauf que pour extraire les fichiers de l'archive contenue dans Scanwise2.0.0.9-Touch.exe, il faut d'abord les placer dans un dossier placé sur le bureau que vous glisserez par la suite dans c:\Programmes\Agfa (dossier à créer "à la main")
Après cette étape, il suffit de lancer Scanwise2.0.0.9-Touch.exe (clic droit/Exécuter en tant qu'administrateur), puis de brancher le scanner (secteur puis USB) et là ça suffit, Win7 reconnait parfaitement le scanner, installe correctement les drivers et tout roule! tatiak
