> Tous les forums > Forum Bureautique
 Macro Excel 2007
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
SKIPBO
  Posté le 14/12/2017 @ 16:58 
Aller en bas de la page 
Petit astucien

Bonjour.
J'ai un fichier EXCEl 2007, sur ce fichier j'ai fais une petite macro (commandée par un bouton) pour faire une sauvegarde quelque part sur mon disque. Cela fonctionne très bien, depuis longtemps.

Dans le même temps je voudrais une deuxième macro pour sauvegarder ce fichier, (ou un autre) sur un support USB, je fais bien cette macro qui fonctionne parfaitement, j'enregistre le tout, et je ferme le fichier.

Lorsque je reviens sur mon fichier, la dernière macro a disparue.

J'ai fais plusieurs fois la manip et c'est toujour pareil!

Que c'est il passé , peut être dans les paramètres d'excel. J'ai d'autres fichiers avec beaucoup de macros qui fonctionnent très bien.

Je vous remercie.

SKIPBO

onfiguration automatique à compléter]

Windows 7
Chrome 63.0.3239.84

Publicité
Magnan
 Posté le 15/12/2017 à 06:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Sans voir ta macro ... difficile de répondre.

Il faudrait à minima donner le code VB ou joindre un fichier pour que la réponse soit concrété et efficace.

A+

SKIPBO
 Posté le 15/12/2017 à 06:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

Merci pour la réponse.

Ci-joint la macro, qui fonctionne très bien, mais qui disparaît lorsque j'enregistre mon fichier et que je le ferme.

SKIPBO

Sub Sauvegardeusb()

'' Sauvegardeusb Macro

'

ChDir "E:\"

ActiveWorkbook.SaveAs Filename:="E:\CAPTUR 2015.xlsm", FileFormat:= _

xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

SKIPBO
 Posté le 16/12/2017 à 07:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

Je suis toujour à chercher pourquoi chaque fois que j'enregistre une macro, elle disparaît quand je ferme le fichier?

Peut être quelque paramètre dans EXCEL?

Je compte sur une aide charitable.

Merci.

SKIPBO

dlxpat
 Posté le 16/12/2017 à 07:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour, moi j'ai celle-ci qui marche très très bien !

Sub auto_close()

Dim Chemin As String, Fichier As String

' changer le nom du chemin en fonction du besoin

Chemin = "f:\compte\"

Fichier = "exemple_macro" & ".xlsm"

ActiveWorkbook.SaveCopyAs Chemin & Fichier

End Sub

SKIPBO
 Posté le 16/12/2017 à 08:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour dlxpat.

Merci pour ta proposition de macro, elle fonctionne très bien, ainsi que la mienne.

Mon problème c'est que à l'enregistrement du fichier, elles disparaissent , du module, aussi bien la tienne que la mienne.

J'ai beaucoup d'autres macros dans mes fichiers depuis longtemps, qui fonctionnent très bien.

Depuis quelques temps je ne peut plus enregistrer de macros sur n'importe quel fichier, celles ci disparaissent à l'enregistrement.

Je pense que cela doit venir de quelque paramètre d'Excel, mais......Lesquels?

En attendant d'autres réponses,

Merci.

SKIPBO

dlxpat
 Posté le 16/12/2017 à 08:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Là j'avoue ne pas pouvoir répondre ! Désolé

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
84,19 €SSD externe USB 3.1 PNY Elite CS1050 960 Go à 84,19 €
Valable jusqu'au 29 Janvier

RueDuCommerce fait une promotion sur le SSD externe USB 3.1 PNY Elite CS1050 960 Go qui passe à 84,19 € alors qu'on le trouve ailleurs à partir de 130 €. Ce SSD externe ultra compact (5,99 x 3,56 x 0,89 cm, 50 grammes) offre des vitesses allant jusqu'à 420 Mo/s en lecture et en écriture.


> Voir l'offre
319,99 €Caméra sportive GoPro HERO9 Black à 319,99 €
Valable jusqu'au 30 Janvier

Le vendeur sérieux AMobileCity via Rakuten fait une promotion sur la caméra sportive GoPro Hero 9 Black qui passe à 319,99 € au lieu de 429 €. Réalisez des vidéos 5K stabilisées avec HyperSmooth 3.0, prenez une photo de 20 mégapixels, ajustez la prise de vue numériquement et filmez au ralenti (x8). Ce modèle regorge de fonctionnalités, se montre étanche jusqu'à 10 mètres et résistant aux chocs et se pare de deux écrans pour un contrôle encore plus confortable. Prolongez l'expérience GoPro en ajoutant les modules optionnels comme un nouvel objectif, un éclairage LED ou un microphone externe. Enfin, l'application GoPro vous permettra de profiter pleinement de vos souvenirs enregistrés avec votre HERO 9 Black. 

16 € vous seront également reversés en points Rakuten utilisables pour vos prochains achats.


> Voir l'offre
732,37 €Portable Dell Inspiron 13 5310 (13.3 pouces, QHD+, Core i7, 8Go, SSD 512Go) à 732,37 €
Valable jusqu'au 29 Janvier

RueDuCommerce fait une belle promotion sur l'ordinateur portable Dell Inspiron 13 5310 qui passe à 732,37 € alors qu'on le trouve ailleurs à partir de 930 €. Cet ordinateur possède un écran 13.3 pouces QHD+ (2560x1600), un processeur Intel Core i7-11370H avec chip graphique Iris Xe intégré, 8 Go de RAM et un SSD de 512 Go. Le tout tourne sous Windows 10 Pro qui peut être mis à jour pour Windows 11.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique