Discussion :

[morgan47]

rebonjour
j'ai trouver comment créer un dossier sous vba excel, mais je voudrai savoir un petit truc.
j'ai par exemple des photos sur une clé USB.
je voudrai faire une userform ou l'on sélectionne une photo et ca la copie dans un répertoire, est ce possible en vba excel?
si oui vous pourriez me dire quel référence je doit activé?
et si vous aviez un site ou je pouvais voir comment ca marche ca serai super.
merci bien

[Commodore]

oui c'est possible.
renseigne toi sur le FileSystemObject.

avec lui tu peux manipuler des collections de fichiers, de lecteurs et de dossiers.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim FSO As Object
Set FSO=CreateObject("scripting.FileSystemObject")

[jveudvacances]

J'ajoueterai un controle dans la userform (commondialog)
et la référence microsoft scripting runtime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'chemin de la foto
dim sPathFoto as string
Dim fso As New FileSystemObject
 
Pour choisir la foto :
with CommonDialog1
.ShowOpen
sPathFoto = .filename
end with
 
'copier la foto vers répertoire de copie
fso.CopyFile sPathFoto, "Repertoire de copie"

[morgan47]

merci a vous deux pour vos réponce
je vais testé ça cette aprés midi.

[Commodore]

[morgan47]

Salut
hier je me poser la question de la gestion des fichiers en VBA(pour moi sous excel.
donc en surfant j'ai réussi à faire un petit code qui permet a l'aidre d'un bouton de sélectionner un fichier et de le copier dans un autre répertoire, j'ai tapez ce code ce matin et j'y ajouterai surement des choses d'ici ce soir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub parcourir_Click()
 
  Dim QuelFichier
  QuelFichier = Application.GetOpenFilename() 'fenetre habituel windows parcourir
  If QuelFichier = False Then
    MsgBox "Vous n'avez pas sélectionné de fichier"
  End If
 
     If InStr(QuelFichier, "\") = 0 Or Right(QuelFichier, 1) = "\" Then
        Extractfilename = ""
        Exit Sub
    End If
    Extractfilename = Mid(QuelFichier, InStrRev(QuelFichier, "\") + 1)
 
'InstrRev recherche la position d'un caractère commencant par la fin
'mid() renvoie une chaîne, extraite de Nomdechaîne, commençant au caractère numéro nombre1 et faisant nombre2 caractères de long
'InStr permet à la fois de vérifier si la chaîne recherchée est bien présente, 
'et si oui, alors elle retourne la position de la première itération de la chaîne recherchée.
'InStr([PositionDeDépart],Chaine1,Chaine2,[TypeDeComparaison])
'Right() = Retourne un nombre de caractères définis dans la partie droite d'une chaîne.
 
    MsgBox Extractfilename
 
    FileCopy QuelFichier, "C:\Documents and Settings\mregourd\Bureau\test\" & Extractfilename
 
End Sub