Enregistrer sous : valeur cellule

Bonjour à tous,

Je rencontre un blocage pour une macro qui va peut-être vous paraître simple.

En effet, je ne connais pas les macros, donc je me débrouille comme je peux mais là je coince.

Bref, voici ma problématique :

Je souhaiterais créer un bouton qui me permet d'enregistrer sous.

Le nom de fichier doit correspondre à la cellule A1.

J'ai fait pas mal de recherche et pas mal d'essais mais ça bloque toujours.

Je dispose d'Office 2010 Pro. Mon fichier est enregistrer en . xlsm

Mon pc est un pc pro avec session en Active Directory (je ne sais pas si ça joue)

J'ai créé un dossier Pronos dans mon C: avec autorisation de lecture et écriture (au cas où ça jouerais aussi.

Voici le code que j'ai utilisé :

Sub Enreg_Fichier()
    Dim NomFichier As String
    NomFichier = Range("A1")
    ActiveWorkbook.SaveAs "C:\pronos\" & NomFichier
End Sub

Malgré ça, il me réponds :

Je vous remercie par avance pour votre aide.

Sébastien

Bonjour,

A première vue il n'y a pas d'erreur, c'est n'est donc pas une question de syntaxe.

Faut voir quel est la feuille active quand tu envoi cette commande, essaye avec...

Sub Enreg_Fichier()
    Dim NomFichier As String
    NomFichier = Sheets("NomDeLaFeuille").Range("A1")
    ActiveWorkbook.SaveAs "C:\pronos\" & NomFichier
End Sub

Tu dis

Bonjour, et merci pour ta réponse.

Malheureusement, toujours le même soucis.

J'ai essayé depuis mon pc perso, j'ai bien créé le même dossier

Malheureusement, je rencontre le même problème.

J'ai fait un screenshot de la ligne qu'il met en surbrillance dès fois que cela pourrait t'aider.

Je te remercie encore pour ton aide précieuse.

PS : Avant d'exécuter la macro, je réaffecte à chaque fois la bonne macro après modif, pour être sûr qu'il va bien chercher la bonne macro.

Le nom de la feuille est le même que le nom du classeur ? -> A éviter

Faudrait savoir ce qu'il y a dans la cellule A1 ? tu peu poster ton classeur (sans donnée confidentielle) ?

J'ai fait un essai malheureusement, ça ne fonctionne pas

J'ai fait un nouveau fichier vierge avec cette seule macro, malheureusement ça ne fonctionne pas

Le fichier :

Si cela ne fonctionne pas, est-il possible de créer un nouveau fichier et de me l'envoyer.

Encore merci pour l'aide apporté

Bonjour,

Pas de problème constaté avec

Sub Enreg_Fichier()
Dim test As String
    test = Sheets("Feuil1").Range("A1")
    ActiveWorkbook.SaveAs "C:\pronos\" & test
End Sub

A+

Ok, donc le problème vient bien de mon pc, va falloir que j'approfondisse cela.

Merci encore pour ton aide.

Je clos en résolu.

Négatif, jfais encore un essai

Sub Enreg_Fichier()
Dim test As String
    test = Sheets("Feuil1").Range("A1")
debug.Print "En A1 il y a = " & test
stop
    ActiveWorkbook.SaveAs "C:\pronos\" & test
End Sub

Le code va s’arrêter sur le stop

Regarde ce qu'il y a dans la fenêtre Exécution, si pas présente -> Ctrl+G

Tu devrais voir ce qu'il y a RÉELLEMENT dans A1

Tu dis

Bonjour,

Quand je clique sur le bouton, j'ai la fenêtre suivante qui se lance :

Merci encore pour votre aide

Bon, j'ai continuer à travailler dessus et maintenant ça fonctionne

Je ne sais pas pourquoi ça bloquait, mais en tout cas ça fonctionne.

Je remet donc le code final si cela peut servir.

Merci encore pour votre aide

Sub Enreg_Fichier()
    Dim NomFichier As String
    NomFichier = Sheets("Iching").Range("B1")
    ActiveWorkbook.SaveAs "C:\pronos\" & NomFichier
End Sub

A-tu bien regarder ce que tu écrit....

Tu t'évertue à dire que ça ne fonctionne pas avec la cellule A1 et ensuite tu dis que ça va avec la cellule B1, et en plus tu sais pas pourquoi !! vraiment...

Bonjour,

C'est parce que le code que j'ai copié en dernier était mon code final avec mon fichier officiel.

Mais dire pourquoi est-ce un simple fichier ne fonctionnait pas, je n'ai pas la réponse, lol

Merci encore pour votre aide