Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel je vous le dis en vérité...

je vous le dis en vérité...

44 réponses
Avatar
sabatier
...j'ai un immense blâme à adresser à un des plus éminents et assidus
contributeur de ce forum....
le puis-je?
si ma question recueille plus de 10 "oui", je déballe tout car il faut
que vous sachiez que si je l'avais eu sous la main cet affreux jojo lors
de mes turpitudes, je l'aurais écrabouillé tout net...
à suivre
jps
PS perso à misange : inutile de mettre un questionnaire sur excelabo,
Dieu et le père brossollette reconnaîtront les leurs...
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4 5
Avatar
ru-th
mauvais = "C:Mes documents"
bon = "C:Program filesmicrosoft OfficeOffice10xlstart"

sinon dans trois mois on est bon pour un message "en vérité en vérité, je
vous le dis"
;-))
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de news:

Fallait dire ton problème !
on t'aurait fait une p'tite macro

Sub PourQueJPSNeSoitPlusFacher()
mauvais = "C:Mes documentsPERSO.XLS"
bon = "C:Program filesmicrosoft OfficeOffice 10xlstart" 'c'est un
exemple
With Application.CommandBars("JPs")
For Each c In .Controls
If c.OnAction Like "*C:Mes documentsPERSO.XLS*" Then _
c.OnAction = Application.Substitute(c.OnAction, mauvais, bon)
Next
End With
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:

tout d'abord, mille excuses pour ce malencontreux "chorum" qui,
finalement ne vous a pas empêché de faire chorus autour de mon post
provocateur et merci à qui au fait? d'avoir rectifié cette grossière
faute d'orthographe dont je rougis encore mais pas suffisamment pour
adoucir mon propos...
venons-en aux faits, si vous voulez bien et que ceux qui ont répondu
"non" au referendum cesse de lire à partir de maintenant, ce dont je
doute quand même...
voici donc ci-dessous copie d'une réponse faite en janvier 2002 par
l'éminent et assidu contributeur à la question suivante:

-début de copie-
(question)
comment faire pour avoir toujours une copie de sauvegarde
du classeur de macro personnelles dans "mes documents" ??
elle est pas simple celle là hein dites, ....hein .....hein ??

(réponse)
Bonjour Zoltan,

Dans le ThisWorkbook de ton classeur Perso

Copie ceci :

-------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:Mes DocumentsPerso.xls"
Application.DisplayAlerts = True

End Sub

Est-ce que cela fonctionne ?

-fin de copie-

tout comme moi, vous êtes sensibles à la dernière phrase ; tout comme
moi, vous vous dites qu'une telle assurance vous garantit sur facture la
solution à votre problème...
eh bien, vous n'avez pas tort : ça fonctionne à merveille, votre
perso.xls est sauvegardé bien au chaud dans votre répertoire "Mes
documents" (ou ailleurs si vous avez souhaité une plus jolie cachette)
chaque fois que vous fermez excel, vous jubilez comme un raton sans fil
à l'idée que vos usines à gaz ne sont pas près de se faire attaquer
par quelque ver fou de macros, que votre pauvre tête qui en a ch....des
heures et des heures pour pondre toutes ces procs peut maintenant dormir
sur ses deux oreilles ; quand je dis "à merveille", il y a quand même un
petit bémol : il faut remplacer ActiveWorkbook par ThisWorkbook et
autant vous dire que vous n'êtes pas peu fier d'être repassé derrière un
crack et de l'avoir corrigé...
mais cette correction est bien faible à côté de celle que vous avez
envie de lui donner quand à votre première réouverture de votre excel
préféré, vous vous rendez compte que vous n'avez plus aucun bouton de
vos BO qui fonctionne, vous devenez tout pâle ; et de pâle vous passez
rapidement à vert quand vous savez que vous allez devoir, dans la boîte
"Affecter une macro", changer le chemin de...140 boutons car la proc
assasine aura fait que votre bouton pointera maintenant vers C:Mes
Documents et non plus vers Perso.xls...
mais où se cache-t-il cet individu néfaste, ce traître, ce félon, ce
Judas que j'enverrais volontiers de la cène à la seine, ce Laval que je
gaverais de pastilles Vichy puisque pour moi plus rien ne peut me faire
digérer une telle ignominie?
vous le saurez demain en écoutant le nouvel épisode de "Vas-y jps" avec
philippe R dans le rôle de Scalar...
jps







Avatar
ru-th
Tu aurais pu bouclé sur toutes les barres

for each b in application.commandbars
For Each c In b.Controls
comme tu ne teste que le présence de la "mauvaise" chaine, tu ne devrais pas
avoir de problème de réception ;-))

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:

bouhhhhhhhhhhhhhhh
que ne t'ai-je alerté plus tôt, thierry!!!
je pense même qu'il aurait fallu faire un Array pour les CommandBars car
comme tu dis, ça n'en traite qu'une à la fois...me trompe-je?
jps

ru-th a écrit:
Fallait dire ton problème !
on t'aurait fait une p'tite macro

Sub PourQueJPSNeSoitPlusFacher()
mauvais = "C:Mes documentsPERSO.XLS"
bon = "C:Program filesmicrosoft OfficeOffice 10xlstart" 'c'est un
exemple
With Application.CommandBars("JPs")
For Each c In .Controls
If c.OnAction Like "*C:Mes documentsPERSO.XLS*" Then _
c.OnAction = Application.Substitute(c.OnAction, mauvais, bon)
Next
End With
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:


tout d'abord, mille excuses pour ce malencontreux "chorum" qui,
finalement ne vous a pas empêché de faire chorus autour de mon post
provocateur et merci à qui au fait? d'avoir rectifié cette grossière
faute d'orthographe dont je rougis encore mais pas suffisamment pour
adoucir mon propos...
venons-en aux faits, si vous voulez bien et que ceux qui ont répondu
"non" au referendum cesse de lire à partir de maintenant, ce dont je
doute quand même...
voici donc ci-dessous copie d'une réponse faite en janvier 2002 par
l'éminent et assidu contributeur à la question suivante:

-début de copie-
(question)
comment faire pour avoir toujours une copie de sauvegarde
du classeur de macro personnelles dans "mes documents" ??
elle est pas simple celle là hein dites, ....hein .....hein ??

(réponse)
Bonjour Zoltan,

Dans le ThisWorkbook de ton classeur Perso

Copie ceci :

-------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:Mes DocumentsPerso.xls"
Application.DisplayAlerts = True

End Sub

Est-ce que cela fonctionne ?

-fin de copie-

tout comme moi, vous êtes sensibles à la dernière phrase ; tout comme
moi, vous vous dites qu'une telle assurance vous garantit sur facture la
solution à votre problème...
eh bien, vous n'avez pas tort : ça fonctionne à merveille, votre
perso.xls est sauvegardé bien au chaud dans votre répertoire "Mes
documents" (ou ailleurs si vous avez souhaité une plus jolie cachette)
chaque fois que vous fermez excel, vous jubilez comme un raton sans fil
à l'idée que vos usines à gaz ne sont pas près de se faire attaquer
par quelque ver fou de macros, que votre pauvre tête qui en a ch....des
heures et des heures pour pondre toutes ces procs peut maintenant dormir
sur ses deux oreilles ; quand je dis "à merveille", il y a quand même un
petit bémol : il faut remplacer ActiveWorkbook par ThisWorkbook et
autant vous dire que vous n'êtes pas peu fier d'être repassé derrière un
crack et de l'avoir corrigé...
mais cette correction est bien faible à côté de celle que vous avez
envie de lui donner quand à votre première réouverture de votre excel
préféré, vous vous rendez compte que vous n'avez plus aucun bouton de
vos BO qui fonctionne, vous devenez tout pâle ; et de pâle vous passez
rapidement à vert quand vous savez que vous allez devoir, dans la boîte
"Affecter une macro", changer le chemin de...140 boutons car la proc
assasine aura fait que votre bouton pointera maintenant vers C:Mes
Documents et non plus vers Perso.xls...
mais où se cache-t-il cet individu néfaste, ce traître, ce félon, ce
Judas que j'enverrais volontiers de la cène à la seine, ce Laval que je
gaverais de pastilles Vichy puisque pour moi plus rien ne peut me faire
digérer une telle ignominie?
vous le saurez demain en écoutant le nouvel épisode de "Vas-y jps" avec
philippe R dans le rôle de Scalar...
jps











Avatar
ru-th
like compare ta chaine à un modèle
les astérix permettent de dire la chaine doit contenir entre autres choses
C:Mes documentsPERSO.XLS avec ce qu'on veut devant ou derrière

a+
rural thierry ( tes chaines, des cris, une soirée SM ?)
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:

ach encore un mot, thierry : c'est quoi les astérisques autour du C:Mes
documentsPERSO.XLS?
car je vais stocker ton petit chef d'oeuvre, bien au chaud lui aussi
jps

ru-th a écrit:
Fallait dire ton problème !
on t'aurait fait une p'tite macro

Sub PourQueJPSNeSoitPlusFacher()
mauvais = "C:Mes documentsPERSO.XLS"
bon = "C:Program filesmicrosoft OfficeOffice 10xlstart" 'c'est un
exemple
With Application.CommandBars("JPs")
For Each c In .Controls
If c.OnAction Like "*C:Mes documentsPERSO.XLS*" Then _
c.OnAction = Application.Substitute(c.OnAction, mauvais, bon)
Next
End With
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:


tout d'abord, mille excuses pour ce malencontreux "chorum" qui,
finalement ne vous a pas empêché de faire chorus autour de mon post
provocateur et merci à qui au fait? d'avoir rectifié cette grossière
faute d'orthographe dont je rougis encore mais pas suffisamment pour
adoucir mon propos...
venons-en aux faits, si vous voulez bien et que ceux qui ont répondu
"non" au referendum cesse de lire à partir de maintenant, ce dont je
doute quand même...
voici donc ci-dessous copie d'une réponse faite en janvier 2002 par
l'éminent et assidu contributeur à la question suivante:

-début de copie-
(question)
comment faire pour avoir toujours une copie de sauvegarde
du classeur de macro personnelles dans "mes documents" ??
elle est pas simple celle là hein dites, ....hein .....hein ??

(réponse)
Bonjour Zoltan,

Dans le ThisWorkbook de ton classeur Perso

Copie ceci :

-------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:Mes DocumentsPerso.xls"
Application.DisplayAlerts = True

End Sub

Est-ce que cela fonctionne ?

-fin de copie-

tout comme moi, vous êtes sensibles à la dernière phrase ; tout comme
moi, vous vous dites qu'une telle assurance vous garantit sur facture la
solution à votre problème...
eh bien, vous n'avez pas tort : ça fonctionne à merveille, votre
perso.xls est sauvegardé bien au chaud dans votre répertoire "Mes
documents" (ou ailleurs si vous avez souhaité une plus jolie cachette)
chaque fois que vous fermez excel, vous jubilez comme un raton sans fil
à l'idée que vos usines à gaz ne sont pas près de se faire attaquer
par quelque ver fou de macros, que votre pauvre tête qui en a ch....des
heures et des heures pour pondre toutes ces procs peut maintenant dormir
sur ses deux oreilles ; quand je dis "à merveille", il y a quand même un
petit bémol : il faut remplacer ActiveWorkbook par ThisWorkbook et
autant vous dire que vous n'êtes pas peu fier d'être repassé derrière un
crack et de l'avoir corrigé...
mais cette correction est bien faible à côté de celle que vous avez
envie de lui donner quand à votre première réouverture de votre excel
préféré, vous vous rendez compte que vous n'avez plus aucun bouton de
vos BO qui fonctionne, vous devenez tout pâle ; et de pâle vous passez
rapidement à vert quand vous savez que vous allez devoir, dans la boîte
"Affecter une macro", changer le chemin de...140 boutons car la proc
assasine aura fait que votre bouton pointera maintenant vers C:Mes
Documents et non plus vers Perso.xls...
mais où se cache-t-il cet individu néfaste, ce traître, ce félon, ce
Judas que j'enverrais volontiers de la cène à la seine, ce Laval que je
gaverais de pastilles Vichy puisque pour moi plus rien ne peut me faire
digérer une telle ignominie?
vous le saurez demain en écoutant le nouvel épisode de "Vas-y jps" avec
philippe R dans le rôle de Scalar...
jps











Avatar
ru-th
J'oubliais !

Salutations !
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:

ach encore un mot, thierry : c'est quoi les astérisques autour du C:Mes
documentsPERSO.XLS?
car je vais stocker ton petit chef d'oeuvre, bien au chaud lui aussi
jps

ru-th a écrit:
Fallait dire ton problème !
on t'aurait fait une p'tite macro

Sub PourQueJPSNeSoitPlusFacher()
mauvais = "C:Mes documentsPERSO.XLS"
bon = "C:Program filesmicrosoft OfficeOffice 10xlstart" 'c'est un
exemple
With Application.CommandBars("JPs")
For Each c In .Controls
If c.OnAction Like "*C:Mes documentsPERSO.XLS*" Then _
c.OnAction = Application.Substitute(c.OnAction, mauvais, bon)
Next
End With
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"sabatier" a écrit dans le message de news:


tout d'abord, mille excuses pour ce malencontreux "chorum" qui,
finalement ne vous a pas empêché de faire chorus autour de mon post
provocateur et merci à qui au fait? d'avoir rectifié cette grossière
faute d'orthographe dont je rougis encore mais pas suffisamment pour
adoucir mon propos...
venons-en aux faits, si vous voulez bien et que ceux qui ont répondu
"non" au referendum cesse de lire à partir de maintenant, ce dont je
doute quand même...
voici donc ci-dessous copie d'une réponse faite en janvier 2002 par
l'éminent et assidu contributeur à la question suivante:

-début de copie-
(question)
comment faire pour avoir toujours une copie de sauvegarde
du classeur de macro personnelles dans "mes documents" ??
elle est pas simple celle là hein dites, ....hein .....hein ??

(réponse)
Bonjour Zoltan,

Dans le ThisWorkbook de ton classeur Perso

Copie ceci :

-------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:Mes DocumentsPerso.xls"
Application.DisplayAlerts = True

End Sub

Est-ce que cela fonctionne ?

-fin de copie-

tout comme moi, vous êtes sensibles à la dernière phrase ; tout comme
moi, vous vous dites qu'une telle assurance vous garantit sur facture la
solution à votre problème...
eh bien, vous n'avez pas tort : ça fonctionne à merveille, votre
perso.xls est sauvegardé bien au chaud dans votre répertoire "Mes
documents" (ou ailleurs si vous avez souhaité une plus jolie cachette)
chaque fois que vous fermez excel, vous jubilez comme un raton sans fil
à l'idée que vos usines à gaz ne sont pas près de se faire attaquer
par quelque ver fou de macros, que votre pauvre tête qui en a ch....des
heures et des heures pour pondre toutes ces procs peut maintenant dormir
sur ses deux oreilles ; quand je dis "à merveille", il y a quand même un
petit bémol : il faut remplacer ActiveWorkbook par ThisWorkbook et
autant vous dire que vous n'êtes pas peu fier d'être repassé derrière un
crack et de l'avoir corrigé...
mais cette correction est bien faible à côté de celle que vous avez
envie de lui donner quand à votre première réouverture de votre excel
préféré, vous vous rendez compte que vous n'avez plus aucun bouton de
vos BO qui fonctionne, vous devenez tout pâle ; et de pâle vous passez
rapidement à vert quand vous savez que vous allez devoir, dans la boîte
"Affecter une macro", changer le chemin de...140 boutons car la proc
assasine aura fait que votre bouton pointera maintenant vers C:Mes
Documents et non plus vers Perso.xls...
mais où se cache-t-il cet individu néfaste, ce traître, ce félon, ce
Judas que j'enverrais volontiers de la cène à la seine, ce Laval que je
gaverais de pastilles Vichy puisque pour moi plus rien ne peut me faire
digérer une telle ignominie?
vous le saurez demain en écoutant le nouvel épisode de "Vas-y jps" avec
philippe R dans le rôle de Scalar...
jps











1 2 3 4 5