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 Suppression de code par macro...

Suppression de code par macro...

2 réponses
Avatar
Cyril
Bonjour

Je rencontre le problème suivant :

Par une macro je réalise un copie de sauvegarde d'une feuille excel dans un
nouveau classeur.
Cette macro étant lancée par un bouton de commande je le supprime dans la
nouvelle feuille avant de la fermer mais je n'arrive pas à enlever le code
correspondant par ma macro.

Existe t'il un moyen de supprimer ce code??

(Pour info voila le code utilisé :

| Sheets("SAISIE").Select
| Dim param1 As String
| param1 = Range("I3").Value
| Sheets("SAISIE").Copy
| ChDir "\\SERVEUR\Fichiers Excel a classer"
| ActiveWorkbook.SaveAs Filename:= _
| "\\SERVEUR\Fichiers Excel a classer\" & param1 & ".xls",
FileFormat:= _
| xlNormal, Password:="", WriteResPassword:="",
|ReadOnlyRecommended:=False _
| , CreateBackup:=False
|Windows("" & param1 & ".xls").Activate
|ActiveSheet.Shapes("CommandButton1").Select
|Selection.Delete
|ActiveWindow.Close (True)

Merci d'avance
Signaler un problème avec ce contenu

2 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
Avatar
RGI
Bonjour Cyril

voir ici

http://www.excelabo.net/xl/macros.php#suppmacro

Salutations

RGI

Bonjour

Je rencontre le problème suivant :

Par une macro je réalise un copie de sauvegarde d'une feuille excel dans un
nouveau classeur.
Cette macro étant lancée par un bouton de commande je le supprime dans la
nouvelle feuille avant de la fermer mais je n'arrive pas à enlever le code
correspondant par ma macro.

Existe t'il un moyen de supprimer ce code??

(Pour info voila le code utilisé :

| Sheets("SAISIE").Select
| Dim param1 As String
| param1 = Range("I3").Value
| Sheets("SAISIE").Copy
| ChDir "SERVEURFichiers Excel a classer"
| ActiveWorkbook.SaveAs Filename:= _
| "SERVEURFichiers Excel a classer" & param1 & ".xls",
FileFormat:= _
| xlNormal, Password:="", WriteResPassword:="",
|ReadOnlyRecommended:úlse _
| , CreateBackup:úlse
|Windows("" & param1 & ".xls").Activate
|ActiveSheet.Shapes("CommandButton1").Select
|Selection.Delete
|ActiveWindow.Close (True)

Merci d'avance



Avatar
Cyril
Merci beaucoup de la rapidité de la réponse

Je me sens un peu honteux car apparemment ma recherche était mal formulée et
il y avait aussi une réponse sur le newsgroup (sujet: "suppression de code
par VBA" du 14/02/2006)

Merci encore à vous