enregistrement auto

[Daniel]

Bonjour à vous tous!

Je cherche à sauvegarder mon fichier sous un répertoire spécifique et avec
le nom de ma feuille active. L'enregistrement doit se faire dans le rep :
I:\\LOGISTIQUE\\ETIQUETTES\\APPLICATION\\GESTION DES ETIQUETTES\\CHILI

Mais en fait ce chemin d'acces est différent selon les cas donc se sont des
variables :
La première partie (I:\\LOGISTIQUE\\ETIQUETTES\\APPLICATION\\GESTION DES
ETIQUETTES) se trouve sur la feuille lien en cellule A4!
La deuxième partie (CHILI) est une variable qui se trouve sur la feuille
active, cellule C2.

La code que j'ai fait ne marche pas ! pourquoi??

Sub testlien()
ActiveWorkbook.SaveAs filename:= _
Range('Lien!A4') & Range('C2') & '\\' & ActiveSheet.Name & '.xls'
End Sub

Merci de votre réponse

 

[Christophe]

Slt Daniel,

Creepy a concocté dans un autre fil qqchose qui pourrait t'être utile : Lien supprimé


Bon ap'

 

[Daniel]

Merci beaucoup christophe, mais je cherche quelque chose de moins complexe, car en fait j'ai d'jà tout mon programme de créer et le lieu de sauvegarde est imposé! l'utilisateur n'a rien à faire.
Pour moi c'est juste une erreur de syntaxe sur cette macro :

Sub testlien()
ActiveWorkbook.SaveAs filename:= _
Range('Lien!A4') & Range('C2') & '' & ActiveSheet.Name & '.xls'
End Sub

Avant j'avais cette macro qui marchait très bien :
ActiveWorkbook.SaveAs filename:= _
'I:\\LOGISTIQUE\\ETIQUETTES\\METIERS\\' & Range('C2') & '\\' & ActiveSheet.Name & '.xls'

Mais le problème c'est que la première partie était fixe! donc si je déplace mon répertoire principal, toute les macros ne marcherons plus!

La solution est donc pour moi de mettre cette première partie à saisir dans une cellule comme ça si on change de repertoire, on peut faire évoluer le classeur!

Mais je bug au niveau de la syntaxe de cette première partie : des '', pas de ''', un &, pas de & .... ?????

 

[Daniel]

Ca y est ça marche, j'avai juste oublié un '/' !!
Merci beaucoup christophe

 

[Christophe]

De rien, je n'ai rien fait !

D'ailleurs certains disent que c'est ce que je fais de mieux !!!!


Christophe

 

[bencourriel]

Daniel écrit:

Ca y est ça marche, j'avai juste oublié un '/' !!
Merci beaucoup christophe

Bonjour Daniel,

Peux-tu réécrire la macro finale qui fonctionne pour vior où il manquait le '/'? Ça pourrait m'être utile.

Un gros merci.

 

[Daniel]

Salut bencourriel

Enfait c'est uniquement parceque ma chaîne de texte I:LOGISTIQUE\\ETIQUETTES\\METIERS n'avait pas de \\
à la fin ! donc il ajoutait la valeur de l'ActiveSheet.Name , ce qui fait excel ne comprennait pas où sauvegarder puisque le répertoire n'existait pas!

Le code définitif est donc (je crois car c'est de tête. je pourrai vérifier lundi) :
ActiveWorkbook.SaveAs filename:= _
Range('Lien!A4') & Range('C2') & ''\\'' & ' ActiveSheet.Name & '.xls'

par contre je lutte avec la fonction Mkdir en ce moment ! j'essaye de la 'variabiliser' par quelque chose comme ça :
mkdir Range('Lien!A4') & Range('C2') & ''\\'' & ' ActiveSheet.Name & '.xls'
Mais j'ai un problème de synthaxe pour l'instant!!!