Créer des copies de fichier .xls dans un meme fichier

[paul87]

Bonjour à tous, Bonjour le Forum,
Dans un dossier, j'ai classeur.xls avec un UF qui sert de menu, et un autre avec le programme "vierge" sans données.
ce que je souhaiterais faire, c'est:
- faire une commande : "Ajouter" qui génèrerai une copie de mon classeur.xls de base,(dans le meme dossier) avec une fenêtre qui s'ouvrirait pour demander le nom du nouveau classeur généré afin de pouvoir l'enregistrer autrement que sous "copie de"
-avoir une ComboBox, qui listerai tous les fichiers du dossier, avec une ouverture sur DbleClick
- avoir une commande "supprimer" pour détruire un fichier sélectionné dans la ComboBox.
Je ne commais pas du tout les codes nécessaires !!
Merci par avance
Paul

 

[MuscatMimi]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonjour a tous

Une Piste


Private Sub CommanButton1_Click()
Application.Dialogs(xlDialogSaveAs).Show ("Comptes Bancaire")
End Sub

Tu créé un Bouton
et tu met ce code dans ce bouton
et
Tu remplace ce qui est en bleu, par le Nom de ton Dossier

Excuse moi j'ai mal lu ta demande
mais c'est déja un début

A++++

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonjour et merci...
mais ça ne marche pas...
Comment faire?

 

[skoobi]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonjour à tous, Bonjour le Forum,
Dans un dossier, j'ai classeur.xls avec un UF qui sert de menu, et un autre avec le programme "vierge" sans données.
ce que je souhaiterais faire, c'est:
- faire une commande : "Ajouter" qui génèrerai une copie de mon classeur.xls de base,(dans le meme dossier) avec une fenêtre qui s'ouvrirait pour demander le nom du nouveau classeur généré afin de pouvoir l'enregistrer autrement que sous "copie de"
-avoir une ComboBox, qui listerai tous les fichiers du dossier, avec une ouverture sur DbleClick
- avoir une commande "supprimer" pour détruire un fichier sélectionné dans la ComboBox.
Je ne commais pas du tout les codes nécessaires !!
Merci par avance
Paul

Bonjour vaucluse immo, paul87,

Dans ce cas envoie nous le fichier avec l'USF contenant ce que tu nous dis, ça nous éviteras de refaire l'USF. Juste une petite remarque:

-avoir une ComboBox, qui listerai tous les fichiers du dossier, avec une ouverture sur DbleClick

Je te suggere de choisir une listbox à la place

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonjour,
oui effectivement avec un exemple de ce que je voudrais faire, ce serait mieux,
le voiçi donc, dans une version de brouillon.
en imaginant que les dossier d'origine et de destination soient les memes.
C:\Documents and Settings\PBX\Bureau\Nouveau dossier
et le nom du fichier "original" à copier serait "test"
Idéalement, une boite de dialogue s'ouvrirait pour donner un nouveau nom à la copie, ainsi qu'une ouverture automatique du nouveau fichier crée afin de pouvoir le compléter directement.
la listbox contiendrai la totalité des fichiers présents dans C:\Documents and Settings\PBX\Bureau\Nouveau dossier
avec une ouverture du fichier selectionné par dbleClick
Est-il possible d'avoir une mise à jour ou un rafraichissement instantané de la listbox?
pour le bouton supprimer le choix du fichier se ferai après selection dans la listbox et serait validé après une msgbox de confirmation..

Grand Merci!!!
mais c'est trop compliqué pour moi!!!!!

 

[MuscatMimi]

Re : Créer des copies de fichier .xls dans un meme fichier

Salut Skooby et Paul

Paul je te met un exemple avec le code que je t'ai donné
pour le reste je vais essayé de te dépanner,
tu sais ,moi aussi, je demande de l'aide, donc si je peux j'en apporte
au mieux que je peux et que de ce que je sais faire

 

[skoobi]

Re : Créer des copies de fichier .xls dans un meme fichier

Re,

Voici un code à mettre dans le code de l'USF qui devrait répondre à toutes les demandes (si je n'en ai pas oublié 😀)

Option Explicit
Dim Dossier As String
Private Sub CommandButton1_Click()

Application.Dialogs(xlDialogSaveAs).Show "Test" 'C:\Documents and Settings\PBX\Bureau\Nouveau dossier
ListeFichier
End Sub

Private Sub CommandButton2_Click()
If MsgBox("Confirmer la suppression du fichier " & ListBox1.Value, vbExclamation + vbYesNo, "Suppression de fichier") = vbYes Then Kill Dossier & ListBox1.Value
ListeFichier
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open Dossier & ListBox1.Value

End Sub

Private Sub UserForm_Initialize()
ListeFichier
End Sub
Sub ListeFichier()
Dim Fich As String
ListBox1.Clear
Dossier = "C:\Documents and Settings\PBX\Bureau\Nouveau dossier\"
Fich = Dir(Dossier & "*.xls")
Do
  ListBox1.AddItem Fich
  Fich = Dir()
Loop Until Fich = ""

End Sub

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Un grand merci à toi, skoobi
je teste ça dans les minutes qui viennent, et je te tiens au courant....!!

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonsoir, Merci beaucoup à toi
cela semble parfait...juste une petite modif...
en fait lorsque l'on crée une copie, cela crée une copie du fichier "menu", et moi ce qu'il me faudrait c'est une copie du fichier "test"..
avec une ouverture instantané du nouveau fichier crée
et que l'appli "menu" reste en arrierre plan pour réapparaitre lorsque qu'on ferme le fichier en cours...
MERCI+++

 

[skoobi]

Re : Créer des copies de fichier .xls dans un meme fichier

Re,

en fait lorsque l'on crée une copie, cela crée une copie du fichier "menu", et moi ce qu'il me faudrait c'est une copie du fichier "test"..

Euhh, le fichier test n'existe pas à ce moment là.
Pour faire une copie du fichier que tu veux, il te faut juste l'ouvrir comme tu le demandais puis tu clic "ajouter", ça fera une copie du fichier actif.

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonsoir,
et encore merci...mais je crois que je me suis mal exprimé ou alors j'ai mal formulé mon besoin.
si, si le fichier "test" est deja existant et localisé dans
C:\Documents and Settings\PBX\Bureau
en fait c'est une matrice vierge...qui ne sert qu'a etre dupliquée.
si j'ai choisi cette méthode c'est pour garder mon fichier original en version initiale et que les utilisateurs puissent travailler sur des versions qu'ils vont documenter et modifier.
lorsqu'on clique sur le bouton ajouter en fait, cela doit juste générer une copie de ce fichier "test" dans le meme emplacement.
une simple inputbox pour renomer le fichier copié suffirait...
Je suis vraiment désolé de t'avoir fait perdre du temps...
encore Merci

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Bonjour à tous...Bonjour le Forum
Après quelques recherches...
avec l'aide F1 de FileCopy,....
j'ai fait ça..

Private Sub CommandButton1_Click()
Dim SourceFile, DestinationFile
SourceFile = "C:\Documents and Settings\PBX\Bureau\Nouveau dossier\test.xls"
DestinationFile = "C:\Documents and Settings\PBX\Bureau\Nouveau dossier\copytest.xls"

MyValue = InputBox("entrez....", title)

FileCopy SourceFile, DestinationFile
End Sub

Ca marche, mais cela ne correspond pas a mes besoins...cela copie bien bien le fichier spécifié "test", mais ..en fait ça copie le contenu dans un fichier qui doit déja exister,....moi ce qu'il me faut c'est que cela crée une copie du fichier "test" un peu comme un CtrlC/CtrlV et que le non du nouveau fichier copié soit donné par Input box
Merci..

 

[paul87]

Re : Créer des copies de fichier .xls dans un meme fichier

Re-...
ça y est, je crois que j'ai réussi.....avec :

Private Sub CommandButton1_Click()
MyValue = InputBox("entrez le non du nouveau fichier", title)
FileCopy "C:\Documents and Settings\PBX\Bureau\Nouveau dossier\test.xls", "C:\Documents and Settings\PBX\Bureau\Nouveau dossier\" & MyValue & " profile.xls"
ListeFichier
End Sub

Super!!!!
Merci a vous skoobi et vaucluse immo !!!!!