Bonjour,
 
Ptite question pour les développeurs en VB concernant d'abord la récupération de variable dans une autre feuille. Sur la form1 je fais "Public couleurtest As ColorConstants" dans la déclaration de variable. Et quand j'affiche ma variable sur la form2 elle semble vide.
Peut être ma variable (qui stocke une couleur choisie de la palette couleur "couleurtest = CommonDialog1.Color" ) ne peut être exporter sur une autre feuille?
 
 
2ième question:
je voudrai copier un fichier qui est sur mon DD.
"'Dim fso As New FileSystemObject, fil As File
'Set fil = fso.CopyFile("C:\Program Files\test", "F:\", overwrite)"
 
Il me sort un message très compréhensif "Type défini par l'utilisateur non Défini"
comment copier bêtement un fichier please help me!
 
 
3ième question:
   
je fais un lecteur qui lit les .wav et les .mid
je sélectionne un fichier dans un FileListBox mais le pb c'est qu'il me lit soit l'extension .wav soit l'autre mais pas les 2! Je m'explique mieux je vois bien les fichiers .wav et .mid dans le FileListBox mais j'arrive pas à lui dire que le DeviceType ="WaveAudio"(.wav) ou = "Sequencer"(.mid) selon le fichier choisi?
 
J'ai fais tout mes efforts sur ces questions mais là j'ai plus de solution donc si qq veut bien me venir en aide je le(s) remercie(nt) d'avance...

1er : variable public dans un module    
2eme : FileCopy    
 
3eme: API
 

 
Apprend les bases avant de vouloir faire des choses plus compliqué (je pence notement aux modules)
 
EDIT : le jaune ça se voit pas  

Vraiment trop nul ce mec.

qui ?

grand merci déjà pour les 2 premières aides!
ça marche nikel merci prog 1001 ;-)
je v test pour la 3 ième en espérant que je m'en sorte pas trop mal...

j'avé oublié d'actualiser  
ya un ptit malin ki vient chercher à prog.?lol

Si t'as encore besoin d'aide, n'hésite pas !
ça fait plaisir de voir des gens qui apprécie l'aide que l'on lui apporte.

Autre pb il copie la 1 ière fois mais pas la 2 ième?
 
Private Sub Command1_Click()
 
Dim SourceFile, DestinationFile
 
' Définit le nom du fichier source
SourceFile = "C:\Program Files\test.txt"
' Définit le nom du fichier cible
DestinationFile = "F:\test.txt"
' Copie le fichier source dans le fichier cible( s'il n'existe pas, il le crée)
FileCopy SourceFile, DestinationFile
 
 
' On renvoit le fichier dans le répertoire de base
' Copie inverse de la précédente
FileCopy DestinationFile, SourceFile

Non rien.  

VB renvoie un message d'erreur?

http://forum.hardware.fr/forum2.ph [...] =0&subcat=
 
               
 
 

non pas de msg d'erreur

je préfère pas rechercher tes posts okin...
On s'aide come on peut...

Comment tu sais que le 2ème FileCopy ne marche pas ?

en faite mon fichier "C:\Program Files\test.txt" du départ n'a pas changé.
il aurait du être remplacé par celui là "F:\test.txt".
Entre les 2 copies mon fichier test.txt est modifié et est donc renvoyé après modif ds le rep de base.
 
Dim user, pass, chemin, chaine As String
user = Text1.Text
pass = Text2.Text
 
chemin = "C:\Program Files\modif_fichier (commande)"
chaine = chemin & " " & user & " " & pass
 
Dim RetVal
RetVal = Shell(chaine, 1)
 
et ensuite la 2 ième copie
' On renvoit le fichier dans le répertoire de base
' Copie inverse de la précédente
FileCopy DestinationFile, SourceFile

Peut-être un problème de protection ? Ce qui m'étonne, c'est qu'il n'y a pas de message d'erreur. Essaie de détruire le fichier avant la copie:
Kill nom_du_fichier

Il le détruit, donc il copie pas vu ke ya plus de fichier:
"fichier introuvable"!
dsl j'ai mis du temps j'avais un pb avec VB mon appli fonctionnait plus (un bug ds VB) j'ai du le relancer pour que ça refonctionne(ss faire de modif ds le code)...  
Merci M$    

Ce que je veux dire, c'est de détruire "C:\Program Files\test.txt" avant de l'écraser avec F:\test.txt au 2ème FileCopy. Evidemment que si tu détruis ton fichier original, tu vas avoir du mal à le copier !!!

lol
il le copie bien mais il veut pas le détruire avant la 2ième copie et j'ai pas de msg d'erreur!
en faite j'avais donné le chemin "C:\Program Files\test.txt" pour exemple
mais en réalité c'est un autre fichier:
"C:\Program Files\EasyPHP1-7\www\Gespil\Prive\Prot\htpasswd"
Mais je pense pas que ça vienne de ça. C'est un fichier ordinaire (pas en lecture seule et pas caché)

Je vois pas. Essaie d'afficher le nom des fichiers juste avant le FileCopy pour voir si ils sont bien nommés.

merci quand même je vais essayer ça mais je pense pas que ça vienne du nom de fichier car pour la 1 ière copie ça fonctionne bien et je garde les mêmes variables( ou st stockées les chemins des 2 fichiers).

Je pence avoir une petite idée mais avant dit moi quelle valeur contient user et pass, la valeur de text1.text et de text2.text en fait.
 
car par exemple, si tu oublis l'extention ça va copier le fichier mais pas comme tu l'attendais.

user et pass contiennent des caractères.
ex:user = toto et pass = motdepass
Le fichier à copier n'a pas d'extension.
il s'appelle juste "htpasswd".

 
copie qqlque part et recopie a l'endroit initial.
 
si c'est pas ça alors je ne comprend pas ce que tu veut faire. adapte le sinon.
 
EDIT : il faut que l'adresse soit valide.
si le dossier de destination n'existe pas, créé le avec MkDir et n'oubli pas les "\"
exemple : chaine = chemin & "\" & user & "\" & motdepass

d'accord ça fonctionne pour la 1 ière copie mais quand je fais:
FileCopy DestinationFile, SourceFile ' l'inverse  
ça marche pas
et aussi quand je fais un kill de SourceFile ça fais rien et ya pas de msg d'erreur. Je comprends pas au pire je laisserai mon appli dans le rép ou ya le fichier SourceFile comme ça j'aurais plus de besoin de le copier...
c chiant mais tant pis!

c'est pas normal. ta forcement fait une erreur qqpart.
sinon le son, ça marche ?

nikel! en faite j'ai pas spécifier le "DeviceType" et comme ça il prend tout par défaut.
Lit tout les mp3, wav, midi, avi ... ;-)

les API y'a que ça de vrai !!!