VBA Copie de n'importe quel fichier provenant d'une autre macro à partir de son chemin d'accès.

Version imprimable

06/02/2013, 13h18
robuno

1 pièce(s) jointe(s)

VBA Copie de n'importe quel fichier provenant d'une autre macro à partir de son chemin d'accès.

Bonjour à tous,
tout d'abord je tiens à dire que j'ai cherché pendant un bon
moment avant de poser cette question :D alors voilà...
Je remercie d'avance celui ou celle qui pourra m'aider...

En gros, J'ai un système d'acquisition qui m'enregistre des données dans un fichier .DAT
et à chaque nouvelle acquisition il sera dans un dossier différent, donc...

Avec une macro je dois pouvoir choisir n'importe quel fichier .DAT dans
n'importe quel dossier dans mon disque dur et en récupérer le chemin
d'accès pour ensuite l'utiliser dans une autre macro qui elle va faire une copie
de ce fichier dans le même répertoire.
Cette copie servira pour la mise à jour du fichier excel comportant les graphs.

j'ai écris le code qui fait bien la mise à jour des DATA dans mon fichier excel mais
à chaque fois que je fais une nouvelle acquisition je dois entrer à la main le nouveau chemin
d'accès du nouveau fichier .DAT.

Le but:
Dans la 1ère macro:
1. Ouverture de l'explorateur de fichiers
2. Séléction du fichier concerné
3. Récuperation du chemin d'accès pour la 2ème macro.

Dans la 2ème macro:
4. Copie du fichier sélectionné et récupération du chemin d'accès de ce dernier.
5. Une fois que l'on a les deux chemin d'accès( fichier original et copie) je veux
pouvoir les insérer dans mon code dans chaque lignes qui ont besoin du chemin d'accès concerné.

En fichier attaché je vous met le code que j'utilise pour la mise à jour des data des graphs(2ème macro)
06/02/2013, 14h50
COCONUT2

Une proposition:
Au déclenchement de la macro (par un bouton par exemple), ouverture d'une IHM qui contient une combobox.
L'initialisation de l'IHM va chercher tous les fichiers .DAT par la fonction de recherche de fichier ici .

Restera à utiliser l'adresse du fichier selectionné.

Un exemple d'une IHM svp!!?

Pour ma part j'ai ce code pour ouvrir un fichier et le stocker dans une variable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public nom As String
 
Sub test()
 
Dim fd As Object
 
Set fd = Application.FileDialog(msoFileDialogOpen)
    With fd
        .Title = "Choix du Fichier pour le stockage des DATA"
        .InitialFileName = ""
        .Filters.Clear
        .AllowMultiSelect = False
        If .Show <> 0 Then
            nom = .SelectedItems(1)
 
        Else
            MsgBox "Vous n'avez selectionné aucun fichier", , "Recommencer"
        End If
    End With
End Sub

Maintenant comment faire une copie du fichier via la variable qui contient le chemin complet?