Enregistrement d'un fichier quelconque sur un répertoire Résolu

Question

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.

cs_Jack · Accepted Answer

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

cs_Jack · Answer

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)

Solomein · Answer

Très bien, je te remercie Jack! Je vais faire le necessaire.
Cordialement.

Solomein · Answer

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?

Solomein · Answer

Merci, ça marche!

Solomein · Answer

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

Enregistrement d'un fichier quelconque sur un répertoire

6 réponses

Votre réponse

Discussions similaires