Vba enregistre

Fermé
zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023 - 16 avril 2022 à 15:21
Le Pingou Messages postés 12155 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 - 17 avril 2022 à 21:44
Bonjour

J’ai à nouveau besoin de votre aide mais cette fois ci, par pour une formule excel pour lesquelles vous m’avez beaucoup appris mais plutôt pour un code VBA.
Je suis débutante dans les macros et je trouve ça passionnant et là je bloque.
J’ai un classeur qui comporte beaucoup de feuilles sur lesquelles j’ai effectué plusieurs mise ne forme via une macro. Et pour continuer ( et c’est là que je bloque), je voudrais enregistrer ce classeur à un endroit précis, avec un nom précis + une valeur qui se trouve en D1 de la 2ème feuille appelée « pro ».
Pour ce qui est des essais que j’ai déjà faits, pas de souci pour qu’il aille se poser a l’endroit que je veux, avec le nom choisi mais je ne sais pas comment ajouter à mon nom de fichier la cellule qui se trouve en D1 de la 2ème feuille.

J’espère que vous pourrez m’aider.

Cordialement

Zara70

5 réponses

Le Pingou Messages postés 12155 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 1 448
Modifié le 16 avril 2022 à 16:35
Bonjour,
Si bien compris, essayer avec ce code à mettre dans votre macro:

Chemin = "C:\Dossier Archivage\"
'Ajoute la valeur cellule D1 dans le nom du fichier
Fichier = "NomClasseur_" & Sheets("pro").Range("D1").Value & ".xlsm"
 
ActiveWorkbook.SaveCopyAs Chemin & Fichier


1
zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023 1
17 avril 2022 à 16:07
Bonjour et merci pour votre retour.
Malheureusement, j'ai beaucoup de mal à m’y retrouver.
Au regard de la photo jointe, pouvez-vous me dire ce qui ne va pas dans l’écriture du code.
Ce que je veux au final c’est enregistré le classeur sur lequel j’ai effectué des modifications dans le répertoire 3-envoi MCV sous le nom Suivi ano CF 10/04/2022.xlsx (le 10/04/2022 étant connu dans la feuille (« prodcf ») en cellule F1

Peut être pourrez vous trouvez la solution. Moi je sèche vraiment

Merci à vous

Zara70
0
Le Pingou Messages postés 12155 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 29 septembre 2024 1 448
Modifié le 17 avril 2022 à 21:50
Bonjour,
Je pense que c'est la date 10/04/2022 qu'il faut formater ainsi 10-04-2022 Car la barre oblique / sert de séparation des dossier/sous dossier. Comme suit:
fichier = "Suivi ANO CF_" & Format(Sheets("prodcf").Range("F1").Value, "dd-mm-yyyy")


1
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
16 avril 2022 à 16:33
Bonjour,

nom de fichier avec contenue cellule
"nomprecis" & Worksheets("pro").Range("D1") & ".xlsx" 
ou xlsm suivant ce que vous voulez
0
zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023 1
16 avril 2022 à 17:47
Merci beaucoup pour cette information.
Je l’essaie au plus vite et ne manque pas de revenir vers vous pour vous confirmer.
Encore merci

Zara70
0
zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023 1 > zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023
16 avril 2022 à 18:52
Je viens d’essayer et ça ne fonctionne pas mais je crois que c’est lié à ce que j’ai écrit au début :

J’ai noté :
Active workbook.saveas Filename:=« M:
\piliers quali\suivi AN\2022\envois resp\suivi an SAL «  & worksheets(« pro »).range(« D1 ») & « .xlsx »

Ça ne passe pas j’ai un message d erreur :
Erreur exécution 1004
Impossible d’utiliser cette extension avec le type de fichier sélectionné.
Modifiez l’extension du fichier dans la zone de texte Nom du fichier ou sélectionnez un autre type de fichier dans la zone type de fichier

Je ne comprends pas trop

Merci
0
zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023 1
16 avril 2022 à 18:53
Je viens d’essayer et ça ne fonctionne pas mais je crois que c’est lié à ce que j’ai écrit au début :

J’ai noté :
Active workbook.saveas Filename:=« M:
\piliers quali\suivi AN\2022\envois resp\suivi an SAL « & worksheets(« pro »).range(« D1 ») & « .xlsx »

Ça ne passe pas j’ai un message d erreur :
Erreur exécution 1004
Impossible d’utiliser cette extension avec le type de fichier sélectionné.
Modifiez l’extension du fichier dans la zone de texte Nom du fichier ou sélectionnez un autre type de fichier dans la zone type de fichier

Je ne comprends pas trop

Merci
1
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708 > zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023
17 avril 2022 à 13:47
Bonjour,
Manque un \ après SAL
1
zara70 Messages postés 178 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 11 février 2023 1 > f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024
17 avril 2022 à 14:25
Bonjour
Désolée j’ai ajouté le \ après Sal, et rien ne change, ça biggue. Je ne comprends absolument pas
0
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
17 avril 2022 à 18:52
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eriiic Messages postés 24597 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 22 septembre 2024 7 235
Modifié le 17 avril 2022 à 19:28
Bonjour,

/ est interdit, remplace par un -
Pour compléter, un fichier avec macro est un .xlsm. Tu restes avec .xlsx, c'est voulu ?
Et tous les répertoires doivent être existants. Créer l'arborescence avec mkdir si besoin.
eric

0