Discussion :

[Miraie]

Bonjour,

Je fais une macro afin de faire un "enregistrer sous" de mon fichier. Le nom de mon fichier est la valeur de la cellule "BE2" de la feuille "Calcule". Quand je lance ma macro, j'ai le message d'erreur

Erreur d'exécution '1004': La méthode 'SaveAs' de l'objet'_Workbook' a échoué.

Et la ligne 8 se surligne en jaune. Quand je passe mon curseur sur mon code je remarque de ma variante Nomdeficher n'a que ".xlsm" comme valeur. Que dois-je modifier afin d'avoir le nom désiré?

Merci d'avance,

Voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Enregistrer()
Dim Nomdefichier As String
Dim Chemin As String
 
    Chemin = "U:\Documents\"
    Nomdefichier = Sheets("Calcule").Range("BE2") & ".xlsm"
    ThisWorkbook.SaveAs Chemin & Nomdefichier, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 
 
End Sub

[ARTURO83]

Bonjour,

Je pense que c'est le chemin qui n'est pas bon, ou du moins incomplet.
Faites l'opération suivante:
-Ouvrez Excel
-Développeur- "Enregistrer une macro"
-Ouvrez un fichier quelconque qui se trouve dans "U:\Documents".
-Arrêtez l'enregistrement
-Allez dans le module et récupérez le chemin enregistré et collez-le à la place de "U:\Documents" de votre fichier.
Essayez

Cdlt

[Miraie]

Bonjour Arturo83,

Vous ne croyez pas que l'erreur viendrait du nom de fichier qui semble inexistant?

Merci,

[ARTURO83]

Vous ne croyez pas que l'erreur viendrait du nom de fichier qui semble inexistant?

Au départ, avant le premier enregistrement, le fichier est bien inexistant, non?

Avez-vous essayez ce que j'ai proposé?

[Qwazerty]

Salut

Si la variable Nomdefichier ne contient que ".xlsm", de deux choses l'une.
Soit la cellule Sheets("Calcule").Range("BE2") est vide
Soit l'information est dans une autre cellule

Plusieurs pistes
Il est préférable de donner un "nom" à la cellule, par exemple "NomFichier". Pour faire ça il faut cliquer sur la cellule à nommer, puis menu "Formule", "gestionnaire de nom". Bouton "Nouveau", tu saisis le Nom ("NomFichier") et tu enregistres

Dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nomdefichier = ThisWorkBook.worksheet("Calcule").Range("NomFichier").value & ".xlsm"

Avantage, si la cellule est déplacer, le nom suivra la cellule, les noms sont accessible à partir d'autre page s'il sont configurer en portée classeur (défini lors de la création du nom).


Plus globalement, regarde du coté de l'extension .xlt et xltm, ce sont les fichiers modèle d'Excel. Le fichier de base ouvre une copie de lui même quand on double-clique sur le fichier pour le lancer, ainsi le modèle ne peut être détruit.


++
Qwaz

[Miraie]

Bonjour et merci pour vos réponses.

En fait le but de ma macro est d'ouvrir un fichier "master" et de l'enregistrer sous un autre nom. Donc, non, le nom du fichier n'existe pas avant le lancement de la macro.

Il me faut un fichier par semaine afin d'archiver quel véhicule fessait quoi a cette date et quel chauffeur le chauffait. Auriez-vous une autre approche à me suggérer?

Merci encore pour votre précieuse aide.