Enregistrement d'un fichier quelconque sur un répertoire

[Résolu]
Signaler
Messages postés
30
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
2 août 2010
-
Messages postés
30
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
2 août 2010
-
Salut à tous!
Je viens vers vous après de nombreuses recherches, en effet je n'arrive pas à trouver de code concernant mon problème:
Je voudrais que, suite à un click sur un bouton commande, cela entraine un enregistrement d'un fichier (quand je dis quelconque c'est-à-dire texte, excel, image, etc...) s'effectuant toujours sur le même répertoire (ex.: C:\Mesdocuments).
Je n'arrive pas à trouver de code simple pour ça et je suis persuadé qu'il en existe seulement cela va faire 2 jours que je cherche sans succès :(...
Petite précision, le chemin d'accès du fichier à sauvegardé est affiché dans un textbox (suite à une recherche).
En vous remerciant, cordialement.

6 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Maintenant tu parles de copie !
Faudrait savoir : Enregistrement et copie, ce n'est pas la même chose.

Oui, FSO est une des possibilités.
Ta syntaxe n'est pas correcte :
Puisque tu sais qu'il faut encadrer le chemin-nom du fichier avec des ", il faut insérer un " à l'intérieur d'une chaine, elle même délimitée par des "
Pour faire ça, il te suffit de doubler le nombre de " à l'intérieur :
"" insèrera un seul " dans la chaine finale.
"""" veut dire :
1er " : début de chaine
2è et 3è " : doubler pour n'en avoir qu'un au final
4è " : fin de chaine

sPartie1 = """" & Form1.TextPj1.Text & """"
sPartie2 = """\\pysn1101\... blah blah ...\Pièces Jointes"""
fs.CopyFile sPartie1, sPartie2, False 
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
80
Salut
Tout dépend de la source des données.
Enregistrer un fichier texte ou Excel à partir de données contenues dans ton programme nécessite de la programmation, différente selon le type.
Enregistrer une image : si l'image est dans un des objets de ta forme : Voir SavePicture dans l'aide.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
30
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
2 août 2010

Très bien, je te remercie Jack! Je vais faire le necessaire.
Cordialement.
Messages postés
30
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
2 août 2010

Alors dans mon code j'ai mis (je ne sais pas si c'est une bonne méthode de copie):

Set fs = New FileSystemObject

fs.CopyFile "& Form1.TextPj1.Text &", "\\pysn1101\_dsty_stco\PLRS\1_SUIVI_AFFAIRES\8_DEMANDES DE TRAVAUX\Pièces Jointes", False

Et sur la ligne avec copyFile j'ai une erreur d'execution 53 qui me dit que le fichier est introuvable :s
Auriez vous une idée de l'erreur commise?
Messages postés
30
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
2 août 2010

Merci, ça marche!
Messages postés
30
Date d'inscription
lundi 11 janvier 2010
Statut
Membre
Dernière intervention
2 août 2010

Maintenant j'ai un nom ou numéro de fichier incorrect (erreur d'exécution 52) sauriez-vous pourquoi cela est possible?

Code VB6:
Set fs = New FileSystemObject

sPartie1 = """" & Form1.TextPj1.Text & """"

sPartie2 = """\\pysn30\_dsty_stco\PLRS\1_SUIVI_AFFAIRES\8_DEMANDES DE TRAVAUX\Pièces Jointes """

fs.CopyFile sPartie1, sPartie2, False