Discussion :

[schmitx]

Bonjour à tous
Voici le problème que je rencontre.

Dans un premier temps je vais rechercher à l'aide de la méthode "GetOpenFileName" un document dont le chemin d'accès sera stocké dans un label.

Code :

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

1
2
3
4
Dim QuelFichier
  QuelFichier = Application.GetOpenFilename()
  If QuelFichier <> False Then
  Label_chemin_fichier_a_enregistrer.Caption = QuelFichier

Ensuite je fais apparaître un message box pour me demander si je souhaite enregistrer ce document.
Si je clique sur "oui" alors:

-La procédure va dans un premier temps créer dossier dont le nom était renseigné précédemment dans une combobox.

Code :

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

1
2
3
4
5
Select Case MsgBox("Confirmer l'enregistrement du document, vbYesNo, "Rattachement d'un document")
          Case vbYes
 
 
MkDir "F:\Base de donné REX\Base document\" & frm_fiche_creation_rex.ComboBox_choixRF.Value

C'est ensuite que les choses se compliquent

Je voudrais que le document, dont le chemin est stocké dans le label soit copier collé dans le dossier qui vient d'être crée.

J'ai essayé avec la méthode "FilCopy" mais je n'arrive pas y insérer les variables.

Pouvez-vous m'aider?
Merci

[Invité]

Bonjour,

J'utilise cette macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub CopieFichier(Source As String, Destination As String)
 
Dim Fso As Object
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Fso.CopyFile Source, Destination
    Set Fso = Nothing
 
End Sub

Où Source et destination correspondent chaque fois aux Répertoire & "\" & Nom du fichier.

Cordialement.

[Marc-L]

Bonjour.

Où Source et destination correspondent chaque fois aux Répertoire & "\" & Nom du fichier.

Idem avec FileCopy source, destination …

[schmitx]

Merci pour vos réponses : )

Du coup comment écrire la synthaxe pour coder "source" et "destination"?
en reprenant les informations stockées?

Merci

[Invité]

Une illustration à adapter à partir de ma proposition

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
 
Private Sub CommandButton1_Click()
 
 
Dim QuelFichier As Variant
Dim RepertoireFichier As String
Dim NomDuFichier As String
Dim NouveauRepertoire As String
 
 
  QuelFichier = Application.GetOpenFilename()
  If QuelFichier <> False Then
     Label_chemin_fichier_a_enregistrer.Caption = QuelFichier ' Nom du fichier avec son répertoire
     RepertoireFichier = CurDir                               ' Nom du répertoire
     NomDuFichier = Dir(QuelFichier)                          ' Nom du fichier
   End If
 
   NouveauRepertoire = CurDir & "\Essai V1"                   ' A adpater à votre cas
   MkDir NouveauRepertoire
   CopieFichier Label_chemin_fichier_a_enregistrer, NouveauRepertoire & "\" & NomDuFichier
 
 
End Sub

Cordialement