XL 2016 macro enregistrement dans dossier défini par avance

CYRIL CAMPAS

XLDnaute Junior
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

XLDnaute Barbatruc
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

XLDnaute Junior
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" :

,
1623650043790.png


tu penses que ça peut venir de quoi ?


merci par avance
 

Etoto

XLDnaute Barbatruc
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.
 
Dernière édition:

Etoto

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Réponses
10
Affichages
502

Statistiques des forums

Discussions
312 038
Messages
2 084 824
Membres
102 682
dernier inscrit
ing_dupree