[VBA-E] créer un fichier et mettre une photo

Version imprimable

28/06/2006, 10h50
morgan47

[VBA-E] créer un fichier et mettre une photo

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
28/06/2006, 11h13
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:

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

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

Code:

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"

28/06/2006, 13h03
morgan47

merci a vous deux pour vos réponce
je vais testé ça cette aprés midi.
28/06/2006, 13h03
Commodore

:tagcode:

VBA, parcourir les fichiers, selectionner fichiers, copier les fichiers

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:

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