Comment exécuter ma macro Excel automatiquement ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment exécuter ma macro Excel automatiquement ?

dwarfy

Bonjour,

je ne sais pas si je poste au bon endroit même s'il me semble que oui. J'ai un planning pour le boulot au format .ics (apparemment, c'est iCalcreator qui le génère si j'en crois le site web qui me fournit mon planning) et avant de l'importer dans mon google calendar, j'ai besoin de le modifier pour avoir un résultat "propre" à l'affichage en supprimer certaines cellules (le début de ma macro avec les Do-Loop) et en supprimant certains morceaux de texte dans les cellules (la fin de ma macro avec "cells.replace" ).

N'y connaissant rien, j'ai donc bidouillé à l'aide de google une macro Excel que voici:

Code :

Sub Edition()
Do
If Cells.Find(What:="DTSTAMP" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="DTSTAMP" ).Activate
Selection.EntireRow.Delete
End If
Loop
Do
If Cells.Find(What:="UID" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="UID" ).Activate
Selection.EntireRow.Delete
End If
Loop
Do
If Cells.Find(What:="METHOD" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="METHOD" ).Activate
Selection.EntireRow.Delete
End If
Loop
Do
If Cells.Find(What:="X-WR" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="X-WR" ).Activate
Selection.EntireRow.Delete
End If
Loop
Do
If Cells.Find(What:="LOCATION" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="LOCATION" ).Activate
Selection.EntireRow.Delete
End If
Loop
Do
If Cells.Find(What:="PRODID" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="PRODID" ).Activate
Selection.EntireRow.Delete
End If
Loop
Do
If Cells.Find(What:="VERSION" ) Is Nothing Then
Exit Do
Else
Cells.Find(What:="VERSION" ).Activate
Selection.EntireRow.Delete
End If
Loop
Dim feuil As Worksheet
For Each feuil In ThisWorkbook.Worksheets
feuil.Cells.Replace What:="T080000", Replacement:=""
feuil.Cells.Replace What:="T180000", Replacement:=""
feuil.Cells.Replace What:="T010000", Replacement:=""
feuil.Cells.Replace What:="T100000", Replacement:=""
Next feuil
End Sub

Donc, j'ouvre mon planning dans Excel, je crée une nouvelle macro, je copie/colle ce texte, je lance la macro. Hourra, ça fonctionne et fait exactement ce que je veux.

Maintenant, j'aimerais éliminer "je crée une nouvelle macro, je copie/colle ce texte, je lance la macro". Je voudrais un truc transparent pour l'utilisateur au final "en un clic" (ou deux). Donc je sauvegarde ma macro au format .xlam. Je lance le fichier et j'y mets mon planning puis je lance la macro mais ... marche pas !

Je ne sais pas si je suis bien clair, mais mes connaissances en dessous de zéro en macro, vba, excel et autres font que j'ai du mal à exprimer autrement ...

Si quelqu'un a pigé ce que je veux faire et peut m'aider, merci beaucoup !!

(ou alors un logiciel tout fait qui me modifie mes plannings au format iCal directement !)

Message édité par dwarfy le 23-12-2012 à 13:29:10

Publicité

Marc L

Bonjour ! J'en déduis que c'est une version supérieure à 2003 ...

Cela ne marche pas, oui mais quoi et où ? A suivre en mode pas à pas par exemple …

Vis à vis du code exposé, si la procédure est enregistrée dans un fichier indépendant en .xlam,
en ligne 67 est utilisé ThisWorkbook faisant référence au fichier contenant la procédure,
ne pouvant donc pas fonctionner sur un fichier planning externe ‼ Mieux vaut utiliser la propriété ActiveWorkbook …

Autre chose, si une procédure comporte des répétitions dans lesquelles ne change qu'un paramètre,
c'est préférable d'utiliser une boucle en y passant le paramètre afin d'alléger le code.

Eviter absolument les .Activate & .Select pouvant énormément ralentir le processus;
travailler directement sur les objets est bien plus concis et rapide !

Dernier point : lorsqu'il y a de nombreuses modifications dans un classeur,
désactiver la mise à jour de l'écran (ScreenUpdating) rend l'exécution plus véloce …

La procédure peut alors se "résumer" ainsi :

Code :

Sub Edition()
Application.ScreenUpdating = False
For Each W In Split("DTSTAMP UID METHOD X-WR LOCATION PRODID VERSION" )
Do
Set Rg = Cells.Find(W)
B = Rg Is Nothing
If Not B Then Rg.EntireRow.Delete
Loop Until B
Next
For Each Feuil In ActiveWorkbook.Worksheets
For Each W In Split("T080000 T180000 T010000 T100000" )
Feuil.Cells.Replace W, ""
Next W
Next Feuil
Application.ScreenUpdating = True
End Sub

J'ai préféré Split au lieu d'Array pour renvoyer un tableau …

Pour continuer plus en avant, écrire un scénario en langage courant (& clair !) est nécessaire,
cela fait ensuite gagner du temps et évite l'usine à gaz !

Pour lancer automatiquement une macro à l'ouverture d'un classeur Excel, voir l'évènement Workbook_Open
devant être codé dans le module ThisWorkbook et non pas dans un quelconque module standard …

Pour afficher une boîte de dialogue afin de sélectionner un fichier, voir la méthode GetOpenFilename.
Ouvrir ensuite le fichier via la méthode Workbooks.Open …

Message édité par Marc L le 26-12-2012 à 16:17:54

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment exécuter ma macro Excel automatiquement ?

Sujets relatifs
Créer automatiquement des enrégistrements dans une table avec PL SQL	Fichier texte trop volumineux/ extraire certaines données vers excel
Scanner automatiquement depuis 2 scanners sur 1 ordi (VB.net + WIA)	Mise en page d'un signet sous Word par macro
VBA (Excel 2010) Syntaxe Range	Déclenchement Macro à l'ouverture du fichier
Pb fonction RechercheV Excel	EXCEL alternative a la fonction SI
executer un JDK avec un fichier .bat	[Excel] Executer une macro automatiquement au lancement d'un classeur
Plus de sujets relatifs à : Comment exécuter ma macro Excel automatiquement ?

Page générée en 0.066 secondes