Sauvegarder fichier

Le
DAMS
Bonjour à tous,

J'ai un problème concernant des fichiers. J'arriva à ouvrir fichier
xls en tant qu'object et à le sauver où je veux.

Dim Db As DAO.Database
Dim XL_Classeur As Object
Dim XL_App As Object
Set Db = CurrentDb
Set XL_App = CreateObject("Excel.Application")

With XL_App
Set XL_Classeur = .Workbooks.Open("c:tata.xls")
XL_App.Visible = False
XL_Classeur.SaveAs ("c:temptoto.xls")
.ActiveWorkbook.Close
.Quit
End With



Par contre je souhaiterais faire cela mais avec un fichier un
particulier (extension proche du txt). En faire je souhaiterais
trouver une fonction qui me permet de selectionner un fichier et de
choisir ou je veux le sauvegarder, en quelque sorte cela correspond à
un copier coller, mais je ne sais pas comment faire.
Quelqu'un pourrait-il m'aider?

Merci d'avance à tous
DAMS
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Thierry (ze Titi)
Le #6385421
Bonjour DAMS

Regarde de ce côté, tu y trouveras ton bonheur:
http://officesystemaccess.seneque.net/scr_scripting_runtime.htm
Très facile d'utilisation et très puissant !

Dans ton message du vendredi 26/10/2007 jour de Saint Dimitri, tu as pris l'initiative
de nous narrer les faits suivants:
Bonjour à tous,

J'ai un problème concernant des fichiers. J'arriva à ouvrir fichier
xls en tant qu'object et à le sauver où je veux.

Dim Db As DAO.Database
Dim XL_Classeur As Object
Dim XL_App As Object
Set Db = CurrentDb
Set XL_App = CreateObject("Excel.Application")

With XL_App
Set XL_Classeur = .Workbooks.Open("c:tata.xls")
XL_App.Visible = False
XL_Classeur.SaveAs ("c:temptoto.xls")
.ActiveWorkbook.Close
.Quit
End With



Par contre je souhaiterais faire cela mais avec un fichier un
particulier (extension proche du txt). En faire je souhaiterais
trouver une fonction qui me permet de selectionner un fichier et de
choisir ou je veux le sauvegarder, en quelque sorte cela correspond à
un copier coller, mais je ne sais pas comment faire.
Quelqu'un pourrait-il m'aider?

Merci d'avance à tous
DAMS


--
Cordialement,
Thierry

Tout pour réussir avec Access :
http://www.mpfa.info

pgz
Le #6385401
Bonjour.

L'objet FileDialog de bibli Microsoft Office Control te permet d'ouvrir un
explorateur de fichiers ou de dossiers.
Les méthodes du FileSystemObject de la bibli IWSH te permettent de déplacer
des fichiers ou dossiers.

Bon courage,
--
pgz

"Ce qui se conçoit mal s''exprime obscurément et les mots pour le dire
arrivent péniblement." - dicomoche.net
_____________________________
pgz.conseil at orange.fr
Publicité
Poster une réponse
Anonyme