Discussion :

[Chromatic]

Bonjour a tous,

Je rencontre un petit probleme:
J ai un fichier exel avec certaine information qui me sert de template.
Tous les semaines. Je dois utiliser ce template le remplir de certaine information. Le probleme est que lorsque j ai modifier le template pour la premiere fois j aurai un template modifie lors de les manipultion suivante.

Pour eviter cela, je dois d abord realiser une copie du template avant de pouvoir le manipuler.
Comment copier un fichier excel ?
J ai un fichier TemplateInfo.xls
et je veux une copie de ce fichier Info.xls
(Ensuite je pourrai rajouter mes infos dans info.xls)

[Maître Kenobi]

salut,
rien ne t'empeches d'ouvrir ce template, de le modifier et de l'enregistrer sous un autre nom.

[Chromatic]

C vraiment bizarre ce qui se produit. J ai essaye ce que tu m a conseille.
Access m affiche une erreur "Can not acces to Info.xls" pour la ligne

xlWBtemplate.SaveAs "C:\Documents and Settings\NLBERN01\Contact Lijst\Applicatie\ContactLijst.xls"

En plus de ca je n arrive pas a supprimer les fichiers

Info.xls et templateInfo.xls via Windows
message d erreur "Cannot delete ContactLijst: There has been a sharing violation. The source or destination file may be in use."

[Chromatic]

help!!!!

[Maître Kenobi]

C vraiment bizarre ce qui se produit. J ai essaye ce que tu m a conseille.
Access m affiche une erreur "Can not acces to Info.xls" pour la ligne

xlWBtemplate.SaveAs "C:\Documents and Settings\NLBERN01\Contact Lijst\Applicatie\ContactLijst.xls"

En plus de ca je n arrive pas a supprimer les fichiers

Info.xls et templateInfo.xls via Windows
message d erreur "Cannot delete ContactLijst: There has been a sharing violation. The source or destination file may be in use."

regardes dans ton gestionnaire de tâches s'il n'y a pas une occurrence excel deja ouverte.

[Chromatic]

Le probleme vient bien de la. C plus ou moins resolu.

Le probleme maintenant c que mon programme demande a l utilisateur de confirmer qu il veux bien sauvegarde le fichier etant donne qu il existe deja.
Le probleme est que j aimerais que mon application soit autonome et qu elle ne depende pas d actions de l utilisateur

[Maître Kenobi]

ok, le fait de faire "save as" et de spécifier un nom autrE que le fichier ouvert, ca doit le faire, sauf si le nom de fichier à sauvegarder existe déjà.

[Chromatic]

le probleme est resolu. Merci Kenobi!

Pour ne pas que excel demande une confirmation de sauvegarde,
je supprime d aborde le fichier et ensuit je sauve. A ce moment je ne rencontre plus de probleme

Code :

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

1
2
3
4
5
6
7
8
 
 
   Set xlWBtemplate = xlApp.Workbooks.Open("C:\Applicatie\TemplateContactLijst.xls")
   Set xlWBTemp = xlApp.Workbooks.Open("C:\Applicatie\ContactLijstPersoon.xls")
    Kill "C:\Applicatie\ContactLijst.xls"
    xlWBtemplate.SaveAs "C:\Applicatie\ContactLijst.xls"
    xlWBtemplate.Close
    Set xlWBOutput = xlApp.Workbooks.Open("C:\Applicatie\ContactLijst.xls")

[Muhad'hib]

Salut,

Pour info, si tu veux évité la gymnastique "j'efface/j'enregistre", tu peux utiliser la propriété DisplayAlerts de ton Appli Excel :

Code :

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

ExcelSheet.Application.DisplayAlerts = False

(A remettre à true si tu rend l'appli uvisible et utilisable par l'utilisateur)

A+

[Chromatic]

C est exactement ce que je cherchais mais ca ne fonctionne pas
je ne comprend pas trop ou dois je rajouter cette ligne de code?

Merci d avance

[Muhad'hib]

Salut,

Dans ton cas ça doit être qqchose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim xlWBtemplate As Object
Dim xlApp As Object
Set xlApp = CreateObject("Excel.application")
Set xlWBtemplate = xlApp.Workbooks.Open("D:\Classeur1.xls")
xlWBtemplate.Application.DisplayAlerts = False
xlWBtemplate.SaveAs "D:\Classeur2.xls"
xlWBtemplate.Application.DisplayAlerts = True
xlWBtemplate.Close
Set xlApp = Nothing
Set xlWBtemplate = Nothing

Ainsi même si Classeur2.xls existe déjà, tu le remplace par Classeur1.xls

A+