Réponse automatique

[gr12sable]

Bonjour à tous,

Je vous explique mon probleme.

J'ai plusieurs fichier excel de type tableau de bord. Chaque fichier excel posséde à l'ouverture un textbox en mode pense bête :" pensez à remplir telle ou telle données".

Je centralise ces différents fichier sur un tableau de bord globale type PowerPoint. Afin de ne pas refaire tous les mois les mêmes opérations j'ai automatisé mon PowerPoint, mais maintenant que j'ai rajouté les penses bêtes sur les fichiers Excel, lors de l'actualisations je dois cliquer sur le OK du textbox Excel à chaque fois, ce qui est plutot long et fastidieux étant donnée le nombres de grah à actualiser ( environ 120 150).

Donc si vous avez des solutions je suis preneur.

Je ne sais pas si j'ai été tres clair, si vous avez besoin de quelques éclairsissements je suis dispo.

Gr12sable

 

[JCGL]

Re : Réponse automatique

Bonjour à tous,

gr12sable : ce ne serait un MsgBox plutôt ?

Au plaisir de te lire

 

[Spitnolan08]

Re : Réponse automatique

Bonjour gr12sable,
JCGL,

Tu as décidé d'accélérer ton ascension avant d'être pris dans la période glaciaire qui s'annonce ?

Qui sait ce qu'est un grah Toi JCGL ?

Cordialement

 

[JCGL]

Re : Réponse automatique

Re,
Salut mon ami Spit ,

Quand on aime, on ne compte pas arf

Grah : j'ai traduit par Graphique

Je pensais à Remov.All pour les MsgBox

Attendons

A+

 

[Spitnolan08]

Re : Réponse automatique

Re,

Ah ben là alors, si grah veut dire graphique tu me scotches encore une fois par ta clairvoyance... et dans ce cas tu devrais ouvrir un cabinet de voyance : "JC voir dans le marc de café"...
ou mieux "JCGLa Barraca"...

MAis le mieux serait quand même une petite mise en situation avec un fichier joint et le code associé...

A+

 

[JCGL]

Re : Réponse automatique

Re,

Ben il est où grDodécaSable...

On est obligé de faire les question et les réponses arf

Mais et même sûrement à coté de la plaque par manque de clairvoyance et/ou d'informations (Spécial Spit )

Un exemple de code pour supprimer les lignes de codes de la Macro1 du Module2 donc les MsgBox

Sub Supprimer_Macro()
Dim Debut As Integer, Lignes As Integer
On Error Resume Next

With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
Debut = .ProcStartLine("Macro1", 0)
Lignes = .ProcCountLines("Macro1", 0)
.DeleteLines Debut, Lignes
End With
End Sub

A+

 

[Luki]

Re : Réponse automatique

Bonjour gr12sable, spit, jcgl,

moi je comprends aussi un msgbox...

Pour contourner le problème, je propose un Userform avec un temps de pause et déchargement...

Sub UserformTemporaire()
Dim TempsSeconde As Single
Dim Start As Single

    TempsSeconde = 2  ' variable à ajuster
    UserForm1.Show (0)
    
    Start = Timer
    Do While Timer < Start + TempsSeconde
        DoEvents
    Loop
    
    Unload UserForm1
End Sub

En pièce jointe, la procédure est en autoopen dans thisworkbook

A voir si c'est ça...

 

[Spitnolan08]

Re : Réponse automatique

Re,
Bonjour Luki,

ou si les fichiers sont ouverts via un code VBA, ajouter une condition à l'ouverture de la msgbox via une variable booléenne dont la valeur est modifiée par la macro appelante.
Mais tout ça n'est que conjecture tant qu'on ne connait pas la structure des fichiers et le contenu des codes.

Cordialement

 

[gr12sable]

Re : Réponse automatique

Merci de vos réponses.

Oui effectivement grah = graphiques vs aviez bien compris.

Il est possible que ce soit un MsgBox plutot qu'un TextBox, j'ai encore du mal à faire la différence.

Sinon je viens de regarder la piece jointe de la derniere réponse et celà peut convenir.

Quelqu'un peut m'expliquer la fonction remov.all

Merci.

 

[JCGL]

Re : Réponse automatique

Re,

Il est "reviendu"

Oublie le Remove.All, il n'est pas adapté à ton problème

A+

 

[gr12sable]

Re : Réponse automatique

Ok, merci

Je modifie mes fichiers en utilisant l'astuce de Luki.

Merci à tous et certainement à tres bientôt car je risque d'avoir souvent besoin de vous