Remplacer le nom d'un fichier figé d'une macro par une variable

Résolu/Fermé

tit2014 Messages postés 5 Date d'inscription samedi 15 février 2014 Statut Membre Dernière intervention 23 février 2014 - 23 févr. 2014 à 15:49
tit2014 Messages postés 5 Date d'inscription samedi 15 février 2014 Statut Membre Dernière intervention 23 février 2014 - 23 févr. 2014 à 18:33

Bonjour à tous,

Novice en macro, je souhaiterai un peu d'aide sur ce problème.

Après avoir fait une extraction de données sur excel, j'ouvre automatiquement le fichier qui m'intéresse en lien avec ces données :

'après avoir renseigner le nom du fichier dans la cellule A1, on concatener le chemin de ce fichier pour le rapatrier'

Range("B1").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""f:\thierry\"",RC[-1],"".xlsm"")"
Range("B2").Select

'ouvre le ficher dont le chemin est mentionné en B1'

Workbooks.Open (Sheets(1).Range("B1").Value)

Là où je bloque c'est dans le copier-coller de ces données dans le fichier ouvert puisque la macro fige les noms des deux fichiers (lignes soulignées). Tout en sachant que le premier fichier aura toujours le même nom, ici "SITUATION FD macro1.xlsm"

'rapatriement de l'extration dans le fichier de synthese fédération à transmettre'

Windows("SITUATION FD macro1.xlsm").Activate
Cells.Select
Selection.Copy
Windows("FD75.xlsm").Activate

Je souhaiterai remplacer le deuxième fichier (ici "FD75.xlsm") par une variable (le nom est toujours le fichier ouvert en début de macro (cf mentionné en italique)

J'espère avoir été clair... merci d'avance pour votre aide

A voir également:

Remplacer le nom d'un fichier figé d'une macro par une variable
Fichier rar - Guide
Fichier host - Guide
Remplacer disque dur par ssd - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
23 févr. 2014 à 17:57

Bonjour,

un exemple:

Sub test()
    'ouvre le ficher
    Fichier = Sheets(1).Range("A1") & ".xlsm"
    Chemin = "f:\thierry\" & Fichier
    Workbooks.Open (Chemin)
'
'
'
    Windows("SITUATION FD macro1.xlsm").Activate
    Cells.Select
    Selection.Copy
    Windows(Fichier).Activate
End Sub

Réponse 2 / 2

tit2014 Messages postés 5 Date d'inscription samedi 15 février 2014 Statut Membre Dernière intervention 23 février 2014
23 févr. 2014 à 18:33

Merci beaucoup

Problème résolu

Discussions similaires

programme qui n'affiche pas le mot secret

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Trouver un nom avec une adresse

comment donner les droits sur fichier partage

Discussions similaires

Newsletters