XL 2016 macro enregistrement dans dossier défini par avance

[CYRIL CAMPAS]

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]

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]

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]

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]

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]

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]

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]

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]

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

 

[Etoto]

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 :

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]

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]

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]

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]

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]

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"