Enregistrer des fiches

Bonjour ,

Ma question peut etre bizzare

J'ai une fiche sur excel qui comporte des champs libres qui sont remplis automatiquement

à l'aide d'un code vba , ces champs etant remplis par selection de données sur une autre feuille du meme classeur, je souhaiterai pouvoir enregistrer chaque fiche ainsi crée dans un dossier nommé : "FICHES" que je placerai sur mon bureau à l'aide d'un bouton

"enregistrer" ?

là je ne sais pas comment faire ? Quel serait la démarche si elle existe ?

En vous remerciant par avance pour votre intervention .

bonsoir,

Avec un fichier, ce sera + facile de t'aider

Amicalement

Claude

rebonsoir

voici mon fichier en pièce jointe , merci

Salut le forum

Tout d'abord, enregistrer un document sur le bureau, c'est très laid

Le classeur sera enregistré dans le répertoire courant;

le nom du classeur est celui de la valeur de G5 de la feuille active :

Sub test()
Dim Nom As String
Nom = [G5]
Activesheet.Copy
ActiveWorkbook.SaveAs Nom
End Sub

Mytå

Bonsoir, salut Mytå,

J'ai pas compris la même chose !

Les 2 fichiers doivent être dans le même répertoire

Amicalement

Claude

Re le forum

rocket4 a écrit :

Je souhaiterai pouvoir enregistrer chaque fiche ainsi crée dans un dossier nommé : "FICHES"

Un dossier "Fiches" ça peut être un répertoire comme un classeur, venant d'un novice.

Mytå

Bonjour Myta , je te remercie pour ton code , une fois ce dernier integré à la feuille contenant la fiche crée , pour la manipulation

consistant à l'enregistrement , me suffit il de cliquer sur enregistrer dans le menu ? etant novice comme tu le signifie , comment retrouver toutes mes fiches une fois crée , il me faudrait juste un petit cheminement dans les actions à effectuer

Merci encor

Re le forum

Mytå a écrit :

Le classeur sera enregistré dans le répertoire courant;

le nom du classeur est celui de la valeur de G5 de la feuille active.

Rocket, tes fiches seront dans le même répertoire que ton classeur qui contient la macro.

La macro enregistre automatiquement le fichier.

Mytå

Merci , j'ai pu solutionner le probleme !