× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 RESOLU Macro : Fermeture et Enregistrement Fichier
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
philippe221178
  Posté le 22/10/2004 @ 08:41 
Aller en bas de la page 
Petit astucien
Bonjour à tous. C'est ENFIN Vendredi!!! Voici donc l'une de mes macros : Sub Guardarconvariantes() Dim Chemin As String Dim nomDossier As String Dim nomFichier As String Range("c7").Select 'Cellule contenant le nom du dossier nomDossier = "I:\Ofertas2004_prog\" & ActiveCell.Value Range("h5").Select 'Cellule contenant le nom du fichier nomFichier = ActiveCell.Value Range("C11").Select 'Cellule contenant le nom du fichier2 nomFichier2 = ActiveCell.Value & ".xls" Chemin = nomDossier & "\" & nomFichier & " - " & nomFichier2 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 ChDir nomDossier ActiveWorkbook.SaveAs Filename:=Chemin, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Mais je souhaite désormais fermer ce fichier et l'enregistrer.... j'ai déjà mis toutes les fonctions que je connaissait pour le garder, mais il ne veut pas.... Quelqu'un a-t'il une solution, pour fermer et enregistrer un fichier? Merci à tous

Modifié par philippe221178 le 11/11/2004 11:47
Publicité
tig
 Posté le 22/10/2004 à 09:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Hello, Application.Quit permet de fermer Excel Bon W.E @+
tig
 Posté le 22/10/2004 à 09:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Ou plus propre Workbooks("NomFichierExcel.xls").Close SaveChanges:=True Et voilà
philippe221178
 Posté le 22/10/2004 à 10:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Tout simplement Genial.... Une question Tig, comment as tu appris tout cela? As tu un site Internet, ou un bouquin a me conseiller pour en savoir plus? C'est pour ton boulot que tu te serts de cela? Merci
tig
 Posté le 22/10/2004 à 10:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Je t'ai envoyé un MP
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
519,90 €Ultrabook HONOR MagicBook 14 (Ryzen 5 3500U, 8Go, 256 Go SSD) à 519,90 €
Valable jusqu'au 30 Octobre

HONOR fait une promotion sur son ultrabook HONOR MagicBook 14 qui passe à 519,90 € au lieu de 700 € grâce au code promo AMACHINES30PROMO. Cet ordinateur portable possède un écran 14 pouces Full HD IPS, un processeur AMD Ryzen 5 3500U (avec chip graphique Vega 8), 8 Go de mémoire DDR4, un SSD 256 Go PCIe NVME, le WiFi5 / Bluetooth 5.0, un lecteur d'empreintes, une webcam, un clavier rétro éclairé, une batterie 56 Wh (jusqu'à 10h d'autonomie) et ne pèse que 1,38 kg. Il fonctionne sous Windows 10. Une très bonne affaire pour une machine compacte et puissante.


> Voir l'offre
152,99 €NAS Synology DS220J à 152,99 €
Valable jusqu'au 26 Octobre

Amazon propose actuellement le NAS Synology DS220J à 152,99 € livré gratuitement. Ce NAS à 2 baies va vous permettre de mettre en place un espace de stockage sécurisé et peut aussi faire office de serveur multimédia, DLNA, serveur web, client ftp, bittorent, ... On le trouve ailleurs à partir de 180 €.


> Voir l'offre
299,95 €Ecran 31,5 pouces LG Ultragear 32GK650F-B (QHD, 144 Hz) à 299,95 €
Valable jusqu'au 31 Octobre

LDLC fait une promotion sur l'écran LG 31,5 pouces LG Ultragear 32GK650F-B qui passe à 299,95 € au lieu de 349 € ailleurs. Cet écran possède une dalle 31,5 pouces QHD (2560x1440) à 144 Hz, un temps de réponse de 5 ms. Il est compatible FreeSync.


> Voir l'offre

Sujets relatifs
probleme macro fermeture de fichier !!
Problème de macro " fermeture du fichier"
Macro Enregistrement CSV[RESOLU]
Creation d' une boucle macro dans fichier EXCEL pour impression
Récupérer une macro apres enregistrement en xls
[Macro optimisation écran] RESOLU
Macro pour ouverture d'un fichier Excel
Macro Copier ligne vers un autre fichier
enregistrement fichier
fichier macro personnel qui ne fonctionne pas
Plus de sujets relatifs à RESOLU Macro : Fermeture et Enregistrement Fichier
 > Tous les forums > Forum Bureautique