342 visiteur(s) en ligne
Date actuelle : 25-04-2024, 15:16 PM Bienvenue, Visiteur ! ( Identification S'enregistrer )







 
Supprimer macro sous excel 2003
 
Note de cette discussion :
  • Moyenne : 0 (0 vote(s))
  • 1
  • 2
  • 3
  • 4
  • 5
Auteur Message
milo18 Hors ligne
Newbie
*

Messages : 8
Inscription : Feb 2008
Réputation : 0
Message : #11
 
Bonjour
Troll merci de ton attention mais si j'ai fais une macro c'est pour qu'une personne qui ne connais pas excel puisse remplir la fiche ...( j'ai crée une "matrice" qu'on ouvre, on rempli la fiche mais pour éviter les erreurs tout est "automatisé et protégé" et grâce à cette macro dès que tu as terminé tu clique sur le bouton ou j'ai affecté cette macro,et elle sauvegarde, imprime la fiche,et l'archive dans le répertoire prévu et ferme la matrice !!! cela evite les erreurs ou plantage !!!).
Voilà pourquoi je tiens à trouver la solution !!!
:roll: :roll: :cry:

avant de juger les autres regardes-toi !!!
14-06-2008 16:54 PM
Envoyer un email à cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Troll Hors ligne
Trolls' master
******

Messages : 15 818
Inscription : Mar 2006
Réputation : 21
Message : #12
 
Ah d'accord très bien...


Ce qui m'étonne c'est que je pense que le code que je t'ai donné aurait dû fonctionner, je ne vois pas l'erreur...

Je vais tenter de creuser ça Wink

Un poste sans accent ? La faute au clavier qwerty :/
|| Merci de mettre des titres explicites !!! || La bouille à Troll ? || 
Vous voulez remercier l'équipe du forum ? Participez ! Exprimez-vous ! Revenez et parlez de ce que vous voulez ! Wink Image: actualites-informatiques-pcw.1.gif
15-06-2008 05:26 AM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Troll Hors ligne
Trolls' master
******

Messages : 15 818
Inscription : Mar 2006
Réputation : 21
Message : #13
 
Alors j'ai peut-être trouvé la solution, une bête histoire d'espace, essaies avec ceci :



Dim VBComponent As Object
For Each VBComponent In ActiveWorkbook.VBProject.VBComponents
Select Case VBComponent .Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove VBComponent
Case Else
With VBComponent.CodeModule
.DeleteLines 1, .CountofLines
End With
End Select
Next VBComponent


Un poste sans accent ? La faute au clavier qwerty :/
|| Merci de mettre des titres explicites !!! || La bouille à Troll ? || 
Vous voulez remercier l'équipe du forum ? Participez ! Exprimez-vous ! Revenez et parlez de ce que vous voulez ! Wink Image: actualites-informatiques-pcw.1.gif
15-06-2008 08:07 AM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
milo18 Hors ligne
Newbie
*

Messages : 8
Inscription : Feb 2008
Réputation : 0
Message : #14
 
Bonjour à tous
Re-merci Troll je vais essayer celà le plus rapidement et te communique le résultat !!!
Bonne journée :lol: :lol:

avant de juger les autres regardes-toi !!!
15-06-2008 15:23 PM
Envoyer un email à cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Troll Hors ligne
Trolls' master
******

Messages : 15 818
Inscription : Mar 2006
Réputation : 21
Message : #15
 
Très bien j'attends de tes nouvelles Smile

Un poste sans accent ? La faute au clavier qwerty :/
|| Merci de mettre des titres explicites !!! || La bouille à Troll ? || 
Vous voulez remercier l'équipe du forum ? Participez ! Exprimez-vous ! Revenez et parlez de ce que vous voulez ! Wink Image: actualites-informatiques-pcw.1.gif
15-06-2008 17:19 PM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse
Troll Hors ligne
Trolls' master
******

Messages : 15 818
Inscription : Mar 2006
Réputation : 21
Message : #16
Supprimer macro sous excel 2003
(erf double post... mais c'est pour être sûr que tu le vois Tongue )

J'ai aussi ce code si avec celui d'avant ça ne fonctionne pas :



Sub del_macro()
Dim VBC As Object

With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else
.VBComponents.Remove VBC
End If
Next VBC
End With

End Sub





A très bientôt.


Un poste sans accent ? La faute au clavier qwerty :/
|| Merci de mettre des titres explicites !!! || La bouille à Troll ? || 
Vous voulez remercier l'équipe du forum ? Participez ! Exprimez-vous ! Revenez et parlez de ce que vous voulez ! Wink Image: actualites-informatiques-pcw.1.gif
16-06-2008 07:04 AM
Visiter le site internet de cet utilisateur Trouver tous les messages de cet utilisateur Citer ce message dans une réponse




Discussions apparemment similaires...
Discussion : Auteur Réponses : Affichages : Dernier message
  devis sur excel 2003 papa31 14 9 800 22-11-2022 14:42 PM
Dernier message: Carot
  [Résolu] Microsoft Excel création fichier temporaire ameaulne 6 7 854 01-10-2012 19:39 PM
Dernier message: ameaulne
Rainbow [Résolu] Besoin d'un tuto d'Asterisk sous Windows woudam 3 10 462 25-10-2011 14:25 PM
Dernier message: woudam
  Supprimer le mot de passe Money Suite Financière Framboise 2 8 667 19-07-2011 17:48 PM
Dernier message: buzzmansai
  [RESOLU]Microsoft office 2003 ou est t-il ?! bils2 6 4 972 21-01-2011 08:43 AM
Dernier message: bils2
  [Résolu] Imprimante hp deskjet 845c ne fonctionne pas sous Windows Seven kayvxe 6 12 952 09-12-2010 22:09 PM
Dernier message: Troll
  [Résolu] Sous-titres et Media Player Classic theluckyluke 2 8 254 15-09-2010 17:49 PM
Dernier message: theluckyluke
  macro sous pack / open office Bengi2008 4 5 702 27-10-2009 11:31 AM
Dernier message: Troll
  périférique mp3 parait vide sous Vista chachanas 16 5 629 24-02-2008 18:21 PM
Dernier message: chachanas
  [Résolu] supprimer office 2003 rouday_s 14 10 354 10-10-2007 04:10 AM
Dernier message: Troll

Aller à :


Utilisateur(s) parcourant cette discussion : 1 visiteur(s)