XL 2016 macro enregistrement dans dossier défini par avance

CYRIL CAMPAS · 3 Juin 2021

Bonjour à tous,

j'ai cherché une discussion qui ressemble à ma problématique, je suis certain qu'il doit y en avoir mais je pense que ma vision est altérée donc si sujet déjà existant, je m'excuse pour le double-post.

voici mon soucis, j'ai créé un questionnaire de validation de compétence, et à la fin du questionnaire, j'aimerai que le fichier aille s'enregistrer dans le dossier que j'ai défini à l'avance, en récupérant la valeur d'une cellule précise pour générer le nom du fichier. je précise que c'est un réseau pro commun, peut-être que ça a une incidence.

voici le code que j'ai écrit, mais cela ne fonctionne pas ! si des fois vous arriviez à me dépanner, vous feriez un heureux !

merci par avance à tous !

Sheets("Evaluation").Select

Dim chemin
Dim Fichier

chemin = "\\FRRMYW0001\SHARES\RANDSTAD\accueil au poste condi"

Fichier = [N2].Value & ".xlsm"

ActiveWorkbook.SaveAs Filename:=chemin & Fichier

Jacky67 · 3 Juin 2021

CYRIL CAMPAS à dit:
Bonjour à tous,

j'ai cherché une discussion qui ressemble à ma problématique, je suis certain qu'il doit y en avoir mais je pense que ma vision est altérée donc si sujet déjà existant, je m'excuse pour le double-post.

voici mon soucis, j'ai créé un questionnaire de validation de compétence, et à la fin du questionnaire, j'aimerai que le fichier aille s'enregistrer dans le dossier que j'ai défini à l'avance, en récupérant la valeur d'une cellule précise pour générer le nom du fichier. je précise que c'est un réseau pro commun, peut-être que ça a une incidence.

voici le code que j'ai écrit, mais cela ne fonctionne pas ! si des fois vous arriviez à me dépanner, vous feriez un heureux !

merci par avance à tous !

Sheets("Evaluation").Select

Dim chemin
Dim Fichier

chemin = "\\FRRMYW0001\SHARES\RANDSTAD\accueil au poste condi"

Fichier = [N2].Value & ".xlsm"

ActiveWorkbook.SaveAs Filename:=chemin & Fichier

Bonjour,
Essaye avec un "\" à la fin
chemin = "\\FRRMYW0001\SHARES\RANDSTAD\accueil au poste condi\"

CYRIL CAMPAS · 14 Juin 2021

Bonjour Jacky67, merci pour ta réponse, j'étais en congé je retrouve aujourd'hui le chemin du travail et je teste donc ta solution ! voici mon nouvel "os" :

,

tu penses que ça peut venir de quoi ?

merci par avance

Etoto · 14 Juin 2021

Bonjour,

Je ne suis pas connaisseur mais ton ActiveWorkbook.SaveAs Filename:=chemin & Fichier ne doit pas être ActiveWorkbook.Save As Filename:=chemin & Fichier ?

CYRIL CAMPAS · 14 Juin 2021

bonjour Etoto, je suis embêté, je ne vois pas la différence entre ma proposition et la tienne, je ne dois pas être bien réveillé !

Etoto · 14 Juin 2021

CYRIL CAMPAS à dit:
bonjour Etoto, je suis embêté, je ne vois pas la différence entre ma proposition et la tienne, je ne dois pas être bien réveillé !

Re,

Ton code a peut-être juste un problème avec le manque d'espace entre le .Save et le As.

CYRIL CAMPAS · 14 Juin 2021

lorsque je met un espace, ça me sort la ligne de code en erreur... je joins le fichier, je pense que ce sera plus simple pour comprendre le global

Etoto · 14 Juin 2021

CYRIL CAMPAS à dit:
lorsque je met un espace, ça me sort la ligne de code en erreur... je joins le fichier, je pense que ce sera plus simple pour comprendre le global

Re,

Je sais pas trop, franchement je ne vois pas le problème, est-ce le chemin qui à un problème ? Il suffit qu'un seul dossier a un nom avec un espace caché genre "RANDSTAD ". Normalement si on laisse chemin et Fichier en Variant ça marche quand même.

CYRIL CAMPAS · 14 Juin 2021

je vais vérifier les espaces de partout, sait-on jamais ! merci pour ton temps Etoto !

Etoto · 14 Juin 2021

CYRIL CAMPAS à dit:
je vais vérifier les espaces de partout, sait-on jamais ! merci pour ton temps Etoto !

Re,

J'ai essayé de refaire une macro qui est comme la tienne (bien sûr avec mon chemin) et cela à l'air de fonctionner, tout vas bien de mon coté, j'ai fait :

VB:

Dim chemin As String
Dim Fichier As String


chemin = "mon chemin"
Fichier = [B9].Value & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=chemin & Fichier
   
End Sub

Par contre je n'ai pas eu besoin de placer un "\" à la fin du chemin

Mais moi, j'ai utilisé des As String

Etoto · 14 Juin 2021

Re,

J'ai peut-être trouvé ton problème, ta macro prends en compte la cellule N2 de la feuille active, si tu exécutes ta macro sur une autre feuille que celle qui contient la bonne cellule N2 cela ne va peut-être pas marcher.

CYRIL CAMPAS · 14 Juin 2021

je vais donc la recommencer du début ! j'ai l'impression que le fait que ce soit sur un réseau commun ça ne m'aide pas vraiment !

CYRIL CAMPAS · 14 Juin 2021

Etoto à dit:
Re,

J'ai peut-être trouvé ton problème, t'as macro prends en compte la cellule N2 de la feuille active, si tu exécutes ta macro sur une autre feuille que celle qui contient la bonne cellule N2 cela ne va peut-être pas marcher.

ah je regarde ça !

Etoto · 14 Juin 2021

CYRIL CAMPAS à dit:
je vais donc la recommencer du début ! j'ai l'impression que le fait que ce soit sur un réseau commun ça ne m'aide pas vraiment !

Re,

Mon chemin est un réseau commun aussi. Je suis actuellement dans mon lieu de travail.

EDIT : Un ['Evaluation'!N2] fonctionnerait (je crois).

patricktoulon · 14 Juin 2021

Bonjour à tous
on le dira jamais assez
dans un module standard spécifiez toujours une address cellule avec le parent
exemple
Fichier =sheets("toto").[N2].value &".xlsm"
ou par le codename
Fichier =Feuil1.[N2].value &".xlsm"

XL 2016 macro enregistrement dans dossier défini par avance

CYRIL CAMPAS

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

Etoto

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

Etoto

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

Pièces jointes

Etoto

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

CYRIL CAMPAS

XLDnaute Junior

CYRIL CAMPAS

XLDnaute Junior

Etoto

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires