Nommer, et enregistrer automatiquement dans un répertoire défini. Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 193
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 5 avril 2018, 15:36

Bonjour,
Tout est dit dans le titre.
Merci de votre collaboration
Cordialement,
Fichier original.xlsm
(25.14 Kio) Téléchargé 20 fois
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'952
Appréciations reçues : 81
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 5 avril 2018, 20:57

Bonsoir

Essayez avec ce code :
Sub sauvegarde()
Dim chemin As String, fichier As String

With ThisWorkbook.Worksheets("Création")
    chemin = .Range("A1")
    fichier = .Range("B5")
    .Copy
End With
With ActiveWorkbook
        .SaveAs chemin & "\" & fichier & ".xlsx"
        .Close
End With
End Sub
Attention toutefois au répertoire que vous mettez en cellule A1. A voir votre fichier je pense que ce serait plutôt ceci --> F:\Gr1\Envoi

Pour en être sûr, via l'explorateur de windows, placer vous dans le répertoire et copier le lien de la barre au dessus dans votre cellule A1

Cordialement
@+ Dan ;)
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 193
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 5 avril 2018, 21:41

Salut Dan, salut à tout le forum
J’ai oublié un élément fondamental, je suis archi nul en informatique.
Je joins le message d’erreur
Merci de ton aide
Fichier original (1).xlsm
(77.69 Kio) Téléchargé 17 fois
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'952
Appréciations reçues : 81
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 6 avril 2018, 08:00

Re

Je vous ai expliqué dans mon message précédent ce qu'il faut avoir dans votre cellule A1. En fonction de votre dernier fichier --> F: et non pas "sauvegarde "...
Le fichier sera sauvé dans votre répertoire F

Cordialement
@+ Dan ;)
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 193
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 6 avril 2018, 11:58

Salut Dan,
J’ai bien rectifié
J’ai mis en cellule « A1 » F :
Cela ne fonctionne pas
Par contre C : fonctionne
Logiquement, le chemin est
F
Obs 2017 – 2018
Gr 1
Pourrait-on l’enregistrer dans le même dossier que l’original, si cela se vérifie plus simple ?
Apparemment, cela s’avère compliqué donc on peut éventuellement laisser tomber
De toute façon, merci de votre dévouement et patience.
Fichier original (1).xlsm
(437.2 Kio) Téléchargé 21 fois
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'952
Appréciations reçues : 81
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 6 avril 2018, 12:40

Re,

Normal que cela ne fonctionne pas si vous mettez un espace entre la lettre et le : :?
Pourrait-on l’enregistrer dans le même dossier que l’original, si cela se vérifie plus simple ?
Alors vous remplacez cette ligne :
chemin = .Range("A1")
par ceci :
chemin = Thisworkbook.path
Dans ce cas, vous n'avez plus besoin de mettre le répertoire en cellule A1

Coridalement
1 membre du forum aime ce message.
@+ Dan ;)
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 193
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 6 avril 2018, 16:17

Salut Dan, salut à tout le forum
Je t’avais prévenu que j’étais nul concernant Excel,
À aucun moment je n’ai pensé que mettre un espace entre F et deux points pouvait causer un bug.
Une dernière question sur ce sujet, si je veux revenir au départ.
En A1, j’inscris
F:\Obs 2017 - 2018\Gr 1\Envoi \CAP juste où pas, pas d’espace ?
De toute manière, c’est résolu avec mention.
Merci, Dan pour ta patience et surtout pour tes compétences que tu sais mettre au profit de ceux qui en ont besoin.
A bientôt.
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 5'952
Appréciations reçues : 81
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 8 avril 2018, 12:16

re

De base c'est toujours mieux de ne jamais mettre d'espace. C'est la pire des choses en informatique que ce soit dans le nom de fichier, dans le nom de feuille ou répertoire.

Pour en être sûr de ton répertoire exact en cellule A1, le mieux est de chercher le répertoire via l'explorateur windows et une fois que tu es dans le bon répertoire, tu cliques en haut dans la barre d'adresse. Ensuite fais un copier via CTRL + C et colle le résultat dans ta cellule A1.

Pour ta question au sujet de F:\Obs 2017 - 2018\Gr 1\Envoi \CAP, si tu ne veux pas te tromper, tu nommes tes dossiers comme suit :

Obs_2017-2018 ou ceci --> Obs_2017_2018
Gr1 ou Gr_1 ou Gr-1
Envoi
CAP

Sans espaces tu évites les erreurs. A toi de voir si tu préfères le _ ou le -

Si besoin d'autres explications, n'hésite pas

Cordialement
@+ Dan ;)
B
Bobbyfrance
Membre fidèle
Membre fidèle
Messages : 193
Inscrit le : 5 janvier 2018
Version d'Excel : 2016FR

Message par Bobbyfrance » 10 avril 2018, 13:55

Bonjour,
Désolé du retard pour répondre, absence non prévue.
Merci à Dan, pour ta réponse
C’est vraiment super, ce que vous êtes capable de faire (toi et tous les intervenants).
Un grand merci.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message