Fermeture et sauvegarde d'un fichier excel par macro

Messages postés
1
Date d'inscription
vendredi 23 novembre 2018
Dernière intervention
23 novembre 2018
- - Dernière réponse : cs_Le Pivert
Messages postés
5607
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 décembre 2018
- 23 nov. 2018 à 16:50
Bonjour à toutes et à tous

Voici mon problème, sur un sujet tellement simple en apparence mais je m'y cogne la tête depuis des heures. Je souhaite fermer mon fichier et le sauvegarder après l'opération de copier coller..... Et mon code ne marche pas, j'obtiens erreur neuf sur la ligne de code en gras souligné

Sub Sauvegarde()

'Identification du fichier
Dim Nom3 As String
Dim Nomfichier3 As String
Nom3 = InputBox("Quel est le nom du fichier en cours d'utilisation ?", "Nom du fichier en cours d'utilisation")
Nomfichier3 = Nom3

Range("J39:J45").Copy
Range("K39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Workbooks(Nomfichier3).Close SaveChanges:=False


End Sub


Quelqu'un(e) aurait une idée ??


Merci d'avance !!

A+
Afficher la suite 

Votre réponse

1 réponse

Messages postés
5607
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 décembre 2018
0
Merci
Bonjour,

a moins de vouloir changer le nom du classeur, il est inutile de demander le nom.

Voir ceci:

https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Application.ActiveWorkbook

et en complément pour enregistrer:

http://www.excel-plus.fr/vba/demvba/gerer-les-classeurs-en-vba/


Commenter la réponse de cs_Le Pivert

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.