Discussion :

[laurentabj]

Question que je me pose depuis longtemps, est-il possible d'enregistrer partiellement un classeur.

Je m'explique : mon projet est une macro xla qui contient à la fois du code dans des modules est une base de données dans les feuilles.

Pour l'instant, l'utilisateurs peut stocker des données dans la BDD, mais uniquement de façon temporaire car je ne souhaite pas que la BDD soit altérée.
Donc mon code ne contient pas d'instruction de sauvegarde pour le moment.

Pourtant, pour certaines info, je souhaiterai pouvoir enregistrer la donnée receuillie pendant l'exécution du xla de façon à ce que celle-ci reste disponible à la prochaine exécution.

[ouskel'n'or]

Ajoute un classeur et copie la feuille contenant les données dedans.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Workbooks.Add
Workbooks("Classeur.xla").Sheets("LaFeuille").Copy Before:=Workbooks("Classeur1").Sheets(1)
ActiveWorkbook.saveas chemin & nomfich

[laurentabj]

Bonjour Ouskel'n'or !

Encore merci pour tes nombreuses contributions : je crois que je pourrais mettre ton nom dans le "à propos" de mon projet !

Oui il y a toujours cette solution, mais l'idéal pour moi est de pouvoir tout gérer à partir de ma macro xla qui se charge automatiquement au lancement d'excel, sans avoir recours à des fichiers exterieurs.

En bref, un et un seul fichier pour mon projet : la simplicité de diffusion et d'installation auprès de mes utilisateurs en dépend.

[ouskel'n'or]

Une solution de rechange ? Copier la feuille recueillie dans une feuille du xla en sortie et pour l'afficher, ajouter temporairement cette feuille au classeur qui utilise le xla.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim fl1 As Worksheet
Set fl1 = Workbooks("EnregistrerFichier.xla").Worksheets("Feuil1")
With fl1
    .Visible = True 'utile ??? Oui !
    .Activate       'utile ???  pas testé sans
    .Range("A1").Value = "Coucou, ça marche !"
    .Copy After:=Workbooks("Classeur2").Worksheets(Workbooks("Classeur2").Worksheets.Count)
End With

Juste une idée

Ligne de "copy" corrigée pour placer la feuille en dernier dans classeur2