Formations à moitié prix et nouveaux packs !

Bonjour à tous,

Ces deux formations sont excellentes et 90% du contenu est encore d'actualité, mais avec l'introduction de PowerQuery et PowerPivot, ainsi que des nouveaux graphiques intégrés dans Excel, une mise à jour est devenue plus que nécessaire.
N'ayant pas le temps de la faire tout de suite (quelle surprise !), je vous invite à bénéficier d'une super, giga, fantastique offre :
50 % de réduction sur ces formations jusqu'à épuisement des stocks pour la version DVD ou jusqu'au 15 janvier, minuit (heure française)

Pour en savoir plus sur chacune des formation, cliquez sur le lien ci-dessous :
- Tableaux de bord
- Organisez et gérez vos données

N'attendez pas ! Il ne reste plus que 27 DVD pour "Organisez et gérez vos données" et la formation est à moitié prix.

Nouveaux packs !

Deuxième suprise de la journée, après 10 h de travail quasi non-stop, venez découvrir les nouveaux Packs d'XLérateur !
Cliquez ici

A bientôt pour la suite !

Gaetan Mourmant

Excel VBA – Rapatrier les informations d’un fichier (chemin/emplacement et nom)

Bonjour à tous,

Voici une amélioration d'un ancien post.

Le but est de rapatrier les informations d'un fichier que l'on sélectionne via une boîte de dialogue.

Cliquez ici pour télécharger le fichier Excel.

Ce code est ensuite très pratique pour pouvoir ensuite effectuer des traitements sur un fichier sélectionné.

Voici le code :

Option Explicit
Sub choix_CheminEtFichiers()
'Cette macro permet de mettre dans la plage nommee les informations du fichier selectionne
    'note : on aurait pu tout faire en une seule fois sans variables, mais en ayant
    'des variables, cela permet de facilement continuer le code par la suite.
    Dim strFichier As String
    Dim strChemin As String
    Dim strCheminEtFichier As String
    'on ouvre la boite de dialogue pour recuperer les informations du fichier selectionne
    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        On Error Resume Next
        strChemin = .SelectedItems.Parent.InitialFileName
        strCheminEtFichier = .SelectedItems.Item(1)
        'note : il existe de nombreuses autres solutions pour recuperer le nom du fichier
        strFichier = Right(strCheminEtFichier, Len(strCheminEtFichier) - InStrRev(strCheminEtFichier, "\"))
        On Error GoTo 0
    End With
    'on rapatrie les informations dans la feuille excel
    If strCheminEtFichier <> "" Then
        Range("Nom_du_Fichier").Value = strFichier
        Range("CheminFichier").Value = strChemin
        Range("Nom_et_Chemin_du_Fichier").Value = strCheminEtFichier
    End If
    'on ajuste la colonne contenant le resultat
    Columns(Range("Nom_du_Fichier").Column).EntireColumn.AutoFit
End Sub

Bonne continuation.

Gaetan Mourmant

Graphique à 6 dimensions – Bulles et secteurs

Bonjour à tous,

Nouveauté de ce post au 14/07/2018 : nouveau fichier pour gérer les versions 2010 et 2016 (non testé en 2013).
Vous pouvez le télécharger ici : cliquez ici

Vous pouvez retrouver ici ce très vieux tutoriel :
http://www.polykromy.com/html/poly_main_cours_cam_bulle.html

Celui ci permet de créer des graphiques de ce type :

Si vous voulez voir les vidéos du tutoriel, elles sont ici :
http://www.polykromy.com/video/graphe_6_dimensions.html

Bon amusement

Gaetan

Un truc tout bête : déplacer une feuille d’un classeur à l’autre…

tout simplement en utilisant la souris...

On peut aussi faire un clic droit et choisir Déplacer ou copier..., mais de pouvoir le faire directement d'une fenêtre à l'autre, c'est magique !

Automatisation de l’hyper-productivité

Et on continue sur la lancée de cette astuce , en permettant l'automatisation de la création des corrections automatiques.

Voici un petit fichier qui va vous permettre juste ca :
Téléchargez le fichier ici.

Ouvrez le fichier, activez les macros, et cliquez sur le bouton, puis tapez ii[ESPACE] ou iii[ESPACE] ou encore iie[ESPACE] dans une cellule pour immédiatement voir le résultat. Vous pouvez ensuite double-cliquer sur les arguments de la formules pour les remplacer par la plage appropriée.
Merci à Dominique Handelsman pour l'idée de la dernière formule.

Si vous avez d'autres formules longues à proposer, n'hésitez pas et je les ajouterai au fichier.
Une petite recherche internet des meilleurs méga-formules serait d'ailleurs une bonne idée pour un prochain article !

A bientôt.

Gaetan Mourmant