Variable VBA nom fichier ouvert

Résolu
varin -  
 varin -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

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

Le fichier *Export sera ouvert manuellement par les utilisateurs.

Merci de votre aide
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
varin
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Oui, mais ils sont bien dans un repertoire
0
varin
 
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
varin
 
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