copier/coller

Question

bonjour, j ai un probleme avec VBA sous excel 2003, je developpe un outils dans le cadre de mon stage et je n arrive pas a copier un fichier word dans un dossier en utilisant des informations venant de textbox! voici mon code:

Private Sub CopyFiles(Origine As String, Destination As String)
TextBox1 = TextBox1 & "_"
TextBox2 = TextBox2 & "_"
TextBox3 = TextBox3 & ""
new_project = TextBox1 + TextBox2 + TextBox3
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If UserForm3.small_binders1.Value = True Then _
    fs.CopyFile "D:\My Documents\label small.ext", "D:\My Documents" & ComboBox1 + new_project
Set fs = Nothing
   
End Sub
si quelqu un voit une erreur ou a une idee,merci de le signaler. 
tom

jrivet · Answer

Salut,
Est ce que Excel te donne une erreur?
Est ce que le chemin existe?
Est ce que un msgbox  de "D:\My Documents" & ComboBox1 + new_project donne quelques chose de correct et existant?

NOTE: il serait bien d'utiliser TOUJOURS la même facon de concatener les chaînes de caracteres ie: &

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Jack · Answer

Salut
Le nom de ton fichier cible se termine par "new_project"
"new_project" se termine par "TextBox3"
"TextBox3" se termine par "/"
= Incorrect pour un nom de fichier

Utilise la méthode de jrivet pour voir le nom du fichier cible que tu as composé

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

tomy7 · Answer

excel ne me donne pas d erreur! 
j utilise un userform1  pour recuperer des info dans une combobox1, un textbox1, un textbox2, et un textbox 3! 
Avec ces infos je cree un dossier sous my documents mais apres je voudrais  en testant un bouton d option dans un userform3 copier un fichier word ds ce nouveau doc.
et la j ai un probleme.

jrivet · Answer

Re,
Je repose ma question:

Est ce que le chemin existe?
Est ce que un msgbox  de "D:\My Documents" & ComboBox1 + new_project donne quelques chose de correct et existant?

@+: Ju£i?n
Pensez: Réponse acceptée

tomy7 · Answer

le msgbox ne fonctionne pas , je suis quasiment sur aue mon erreur viens du combobox c est a dire aue je ne sais pas  comment recuperer la valeur du combobox autrement que par la maniere: Userform1.ComboBox1.value

Est ce qu il existe une autre maniere de recuperer ce qui a ete selectionne dans la combobox?

tomy7 · Answer

dsl mais je ne connais pas la ;ethode de jrivet!

jrivet · Answer

Re,
LE Msgbox ne fonctionne pas!!!!

Ca veut dire quoi exactement????

@+: Ju£i?n
Pensez: Réponse acceptée

tomy7 · Answer

tu veux que je cree un msgbox pour voir  si sa donne quelque chose de correct et existant?
Dans ce genre la:
Private Sub ()
Msgbox  "D:\My Documents" & ComboBox1 + new_project" 
en sub

jrivet · Answer

Re,
Basiquement, si tu essaie de copier quelque chose dans le repertoire de destination: "D:\My Documents" & ComboBox1 + new_project

Il faudrait s'assurer qu'il existe. HORS jusqu'à présent RIEN ne nous dit que le répertoire "D:\My Documents" & ComboBox1 + new_project existe donc je te demandais de faire (par exemple juste avant la copie)

Call Msgbox("D:\My Documents" & ComboBox1 & new_project)

pour que tu puisses vérifier si le chemin donné dans le Msgbox est VALIDE.

@+: Ju£i?n
Pensez: Réponse acceptée

tomy7 · Answer

Dsl j ai compri un un peu lentement ! mais j ai essaye et le chemin que je veu est bon, mtn c'est le copier coller qui ne va pas.

cs_MPi · Answer

Regarde dans ton aide le mot FileCopy

Dans ta Sub, tu passes 2 paramètres Origine et Destination qui ne servent pas... (?)

Pour le combobox, utilise ComboBox1.Text pour récupérer le texte sélectionné

Finalement, lorsque tu écris ceci
"D:\My Documents" & ComboBox1 + new_project
Il ne semble pas y avoir de backslash (\) entre combobox1 et new_project
Ça doit causer un problème à mon avis... et ça rejoint ce que JRivet (salut) te dit...

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Copier/coller

11 réponses

Votre réponse

Discussions similaires