Enregistrer sous .....

[wachoo31]

Bonjour à toutes et tous vous les excelliens de qualité

Mon problème du jour:

je voudrais créé une macro pour enregistrer une copie de feuille sous un nom de fichier défini par le contenu d'une cellule mais le gros problème est que je voudrais pouvoir a chaque fois choisir le répertoire de destination sans pouvoir changer le nom du fichier.

Je sais je suis compliqué mais bon. Cela est il possible et comment faire

 

[poum]

salut wachoo

cet exemple te montre comment enregistrer le classeur entier
mais si ton probleme est juste de pouvoir lui dire toi meme le chemin, ça devrait répondre a ta question


Dim titre_fichier As String
titre_fichier = Range('A1').Value

Dim chemin As String
chemin = InputBox('Saisissez votre chemin ci-dessous', 'Fichier')

ActiveWorkbook.SaveCopyAs (chemin & titre_fichier)


bonne prog
(tu peux me joindre par mail : tumpraitta106@free.fr)

 

[wachoo31]

Bonsoir poum, Re le forum

Merci pour ton code cela m'avance déjà mais n'est 'il pas possible au lieu de l'imputbox de faire apparaitre la fenetre comme quand on fait un enregistrer sous, cela m'aurai mieux aider

Bonne soirée a tous, je vais plancher encore quelque heure sur le sujet

 

[wachoo31]

Bonsoir poum, Re le forum

Merci pour ton code cela m'avance déjà mais n'est 'il pas possible au lieu de l'imputbox de faire apparaitre la fenetre comme quand on fait un enregistrer sous, cela m'aurai mieux aider

Bonne soirée a tous, je vais plancher encore quelque heure sur le sujet