Nommer, et enregistrer automatiquement dans un répertoire défini

Bonjour,

Tout est dit dans le titre.

Merci de votre collaboration

Cordialement,

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

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

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

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.

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

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.

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

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.