Créer un fichier et exporter données

[Sam2]

Bjr le Forum!

Un programme permettant de créer un fichier et d'exporter les données sur le nouveau. J'ai pas mal chercher, tous le code est issu du forum.
Cependant, je début sur VBA et je recontre certaines difficultés:

1) Mon fichier créer doit obligatoirement se nommé "essai", je voudrai le paramétrer en fonction de la saisi de l'utilisateur
2) je n'arrive pas aussi à donner le choix à l'utilisateur de l'emplacement du fichier créer. L'emplacement est automatiquement sur le dossier "Mes documents"
3) Le code permettant après l'ouverture et le transfert d'un enregistrement automatique du fichier créer

Je joint un fichier permettant de mieux comprendre. Merci Sam

 

[Sam2]

Re : Créer un fichier et exporter données

Personne pour un coup de pouce ?

 

[MJ13]

Re : Créer un fichier et exporter données

Bonjour Sam2

Je n'ai pas bien compris ce que tu veux.
Il doit y avoir un problème au départ, expliques nous la démarche.
Es-tu en réseau (as-tu des lecteurs sur ton réseau)?
Existe t'il beaucoup d'utilisateurs ?.
Veux-tu sauvegarder le fichier entier ou une feuille?

La démarche pour faire des macros ne peut être conditionné qu'en ayant bien analysé ces paramètres.

 

[Sam2]

Re : Créer un fichier et exporter données

Bonjour MJ13,

Je vais essayé d'expliquer,

J'ai un fichiers excel où il y a un petit programme permettant d'évaluer un produit.
Ce programme s'initialise lors de son ouverture, ceux qui fait que toutes les données précédente sont perdu.
Donc lorsque l'utilisateur fait son évaluation je veux lui permettre d'enregistrer ses résultats :

En créant un nouveau fichier et en transférant les données de l'évaluation.
(peut-être existe t-il un moyen plus simple???)
Je suis arrivées à créer le nouveaux fichiers excel,

1) Le probleme c'est que je ne sais pas comment faire pour proposer à l'utilisateur de choisir le chemin de l'emplacement de ce nouveau fichier. Ce que j'ai programmé enregistre le nouveaux directement sur le dossier "Mes Documents"

2) Et j'ai un autre problème c'est dès je veux transférer les données sur le nouveaux fichier, je sais faire mais avec un nom de fichier que je connais. je ne sais pas programmer en fonction d'un nom que l'utilisateur aurai choisi.

3) et après la copie des données je voudrais enregistrer automatiquement sous le meme nom et le même chemin que l'utilisateur a demander sans demander confirmation.

Je sais pas si j'ai été assez clair, merci pour d'eventuelle pistes
Dans la PJ au dessus le programme d'enregistrement et de copie.

 

[MJ13]

Re : Créer un fichier et exporter données

Bonjour,

Je n'ai pas trop le temps actuellement mais sur Excel 2003
Voici l'aide de
ActiveWorkbook.SaveAs pour enregistrer un fichier:

(sinon il faut voir aussi dans curdir, chdir...)

SaveAs, méthode

Voir aussiS'applique àExempleDétails
Méthode SaveAs telle qu'elle s'applique aux objets Chart et Worksheet.
Cette méthode enregistre les modifications effectuées au graphique ou à la feuille de calcul dans un autre fichier.
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AddToMru, TextCodepage, TextVisualLayout, Local)
expression Obligatoire. Expression qui renvoie un des objets ci-dessus.
Filename Argument de type Variant facultatif. Chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet ; si vous ne le faites pas, Microsoft Excel enregistre le fichier dans le dossier en cours.
FileFormat Argument de type Variant facultatif. Format de fichier à utiliser quand vous enregistrez le fichier. Pour obtenir une liste des choix possibles, consultez la propriété FileFormat. Dans le cas d'un fichier existant, le format par défaut est le dernier format de fichier spécifié. Dans le cas d'un nouveau fichier, la valeur par défaut est le format de la version de Microsoft Excel en cours d'utilisation.
Password Argument de type Variant facultatif. Chaîne qui respecte la casse (maximum 15 caractères) et indique le mot de passe de protection à donner au fichier.
WriteResPassword Argument de type Variant facultatif. Chaîne qui indique le mot de passe de protection en écriture pour ce fichier. Si un fichier est enregistré avec un mot de passe et que ce mot de passe n'est pas fourni lorsque le fichier est ouvert, ce dernier est ouvert en lecture seule.
ReadOnlyRecommended Argument de type Variant facultatif. Affectez-lui la valeur True pour afficher, à l'ouverture du fichier, un message qui conseille d'ouvrir celui-ci en lecture seule.
CreateBackup Argument de type Variant facultatif. Affectez-lui la valeur True pour créer un fichier de sauvegarde.
AddToMru Argument de type Variant facultatif. Affectez-lui la valeur True pour ajouter ce classeur à la liste des fichiers utilisés récemment. La valeur par défaut est False.
TextCodePage Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
TextVisualLayout Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration). La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

Méthode SaveAs telle qu'elle s'applique à l'objet Workbook.
Cette méthode enregistre les modifications effectuées dans le classeur dans un autre fichier.
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
expression Obligatoire. Expression qui renvoie un des objets ci-dessus.
Filename Argument de type Variant facultatif. Chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet ; si vous ne le faites pas, Microsoft Excel enregistre le fichier dans le dossier en cours.
FileFormat Argument de type Variant facultatif. Format de fichier à utiliser quand vous enregistrez le fichier. Pour obtenir une liste des choix possibles, consultez la propriété FileFormat. Dans le cas d'un fichier existant, le format par défaut est le dernier format de fichier spécifié. Dans le cas d'un nouveau fichier, la valeur par défaut est le format de la version de Microsoft Excel en cours d'utilisation.
Password Argument de type Variant facultatif. Chaîne qui respecte la casse (maximum 15 caractères) et indique le mot de passe de protection à donner au fichier.
WriteResPassword Argument de type Variant facultatif. Chaîne qui indique le mot de passe de protection en écriture pour ce fichier. Si un fichier est enregistré avec un mot de passe et que ce mot de passe n'est pas fourni lorsque le fichier est ouvert, ce dernier est ouvert en lecture seule.
ReadOnlyRecommended Argument de type Variant facultatif. Affectez-lui la valeur True pour afficher, à l'ouverture du fichier, un message qui conseille d'ouvrir celui-ci en lecture seule.
CreateBackup Argument de type Variant facultatif. Affectez-lui la valeur True pour créer un fichier de sauvegarde.
AccessMode Argument XlSaveAsAccessMode facultatif.
XlSaveAsAccessMode peut être l'une de ces constantes XlSaveAsAccessMode.xlExclusive (mode exclusif)xlNoChange par défaut (ne modifiez pas le mode d'accès)xlShared (share list) Si vous ne spécifiez pas cet argument, le mode d'accès n'est pas modifié. Cet argument est ignoré si vous enregistrez une liste partagée sans changer le nom du fichier. Pour changer le mode d'accès, utilisez la méthode ExclusiveAccess.


ConflictResolution Argument XlSaveConflictResolution facultatif.
XlSaveConflictResolution peut être l'une de ces constantes XlSaveConflictResolution.xlUserResolution (affiche la boîte de dialogue de résolution des conflits)xlLocalSessionChanges (accepte automatiquement les changements de l'utilisateur local)xlOtherSessionChanges (accepte d'autres changements à la place des changements de l'utilisateur local) Si cet argument n'est pas spécifié, la boîte de dialogue de résolution de conflit s'affiche.


AddToMru Argument de type Variant facultatif. Affectez-lui la valeur True pour ajouter ce classeur à la liste des fichiers utilisés récemment. La valeur par défaut est False.
TextCodePage Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
TextVisualLayout Argument de type Variant facultatif. Non utilisé dans la version française de Microsoft Excel.
Local Argument de type Variant facultatif. La valeur True enregistre les fichiers en fonction de la langue de Microsoft Excel (y compris les paramètres du Panneau de configuration). La valeur False (valeur par défaut) enregistre les fichiers en fonction de la langue de Visual Basic pour Applications (VBA) (qui est généralement l'anglais des États-Unis, sauf si le projet VBA où Workbooks.Open est exécuté est un ancien projet VBA XL5/95 de niveau international).

Exemple

Cet exemple montre comment créer un classeur, inviter l'utilisateur à taper un nom de fichier et enregistrer le classeur.
Set NewBook = Workbooks.AddDo fName = Application.GetSaveAsFilenameLoop Until fName <> FalseNewBook.SaveAs Filename:=fName

 

[Sam2]

Re : Créer un fichier et exporter données

Bonjour Michel,

Je te remercie pour les indications 😉