Variable VBA nom fichier ouvert

Résolu/Fermé
varin - 21 mars 2014 à 17:38
 varin - 24 mars 2014 à 15:31
Bonjour,

J'effectue des Copier-Coller d'un fichier vers l'autre.
Deux fenêtres sont ouvertes avec mon fichier et un autre fichier (*Export) dont le nom est toujours différent.
Je cherche à l'aide d'une macro à déclarer en variable le nom du deuxième fichier ouvert qui est toujours différent pour insérer cette variable dans la macro.

Actuellement la macro fonctionne avec le nom du fichier différent en dur.

Dim Nom_Fichier_Export As Variant
Sub Transfert()
Nom_Fichier_Export = "14-20000 Export.xlsx"
Windows(Nom_Fichier_Export).Activate
Sheets("Ouvrage").Select
Range("M2").Select
End Sub

Je vous remercie beaucoup pour votre aide éventuelle.

8 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
21 mars 2014 à 18:15
Bonjour,

un autre fichier (*Export) ---> vous l'ouvrez comment: par du VBA, manuellement ?????
0
Bonjour,

Le fichier *Export sera ouvert manuellement par les utilisateurs.

Merci de votre aide
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 mars 2014 à 11:25
Bonjour,

Il faudrait prevoir a ouvrir le fichier "export" par le VBA avec une boite a dialogue ouvrir fichier pour choisir le fichier a ouvrir.

Que pensez vous de la chose ????
0
Ce n'est pas possible, les fichiers export ont des noms différents et proviennent de diverses sources.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 mars 2014 à 11:39
Re,

Oui, mais ils sont bien dans un repertoire
0
Non ces fichiers sont nomades et sur les clés des utilisateurs.

Dans la macro, j'ai récupéré le nom du fichier export ouvert et je l'ai collé dans une cellule de mon fichier.

Je chercher maintenant la méthode pour coller ce nom de fichier (figurant dans une cellule de mon fichier) dans la macro à l'emplacement suivant :
Nom_Fichier_Export ="xxxxxxxxxxxxx.xlsx"

Merci
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
24 mars 2014 à 12:59
Re,

Non ces fichiers sont nomades et sur les clés des utilisateurs. Bonjour les virus

adaptez le nom de feuille et la cellule
Nom_Fichier_Export =Worksheets("feuil1").Range("A1")

ou si vous avez recupere le nom de fichier par votre macro, ecrivez directement Nom_Fichier_Export
0
J'avais déclaré la variable du nom du fichier "As Workbook" donc elle ne fonctionnait pas.

Je l'ai maintenant déclarée "As Variant" pour ouvrir la fenêtre du fichier Export et tout fonctionne.

Merci pour votre aide.
0