Nom de fichier variable

Version imprimable

Bonjour,

J'ai besoin de votre aide, car je n'arrive pas à comprendre où est l'erreur

J'ai le code suivant qui me permet de copier des colonnes de différents fichiers dans mon fichier actuel :
Code:

1 2 3 4 5 6 7 8 Workbooks.Open "Z:\Rep\Function\" & Sheets(1).Range("A2").Text & "\" & Sheets(1).Range("A1").Text & "\Class\Function - 0001X - " & Sheets(1).Range("A1").Text & " " & Sheets(1).Range("A2").Text & ".xls" ' Copie des données : Workbooks("Function - 0001X - June 2013.xls").Sheets("FCR - Main").Range("F14:G54").Copy Workbooks("Test12.xls").Activate Workbooks("Test12.xls").Sheets("MONTHLY").Range("C7").Select Workbooks("Test12.xls").Sheets("MONTHLY").Paste ' Fermeture du 1er fichier : Workbooks("Function - 0001X - June 2013.xls").Close
Ce code marche bien pour ce que je veux faire, à savoir ouvrir un fichier en fonction qui se trouve dans des dossiers ANNEE puis MOIS où le mois est renseigné dans mon fichier en case A1 et l'année en case A2....

Seulement sur cette ligne de code :
Code:

1 2 ' Copie des données : Workbooks("Function - 0001X - June 2013.xls").Sheets("FCR - Main").Range("F14:G54").Copy
J'aimerais faire la même chose que sur la ligne d'avant, à savoir récupérer au lieu de "June" ce qu'il y a en case A1 et au lieu de "2013" ce qu'il y a en A2
mais ce

Code:

" & Sheets(1).Range("A1").Text & " " & Sheets(1).Range("A2").Text & ".xls"

qui marche pour le première ligne de code, me signale sur la ligne 3 une erreur "l'indice n'appartient pas à la sélection" alors que j'ai bien tout vérifier sur des éventuelles erreurs liées au nom du fichier ou un espace manquant...rien :cry:

Pouvez-vous svp me dire pourquoi ça ne marche pas et me trouver une solution car n'étant pas du tout expert en VBA j'ai des difficultés à trouver une parade :(

Edit : En gros je veux dans ceci "Workbooks("Function - 0001X - June 2013.xls").Sheets("FCR - Main").Range("F14:G54").Copy" mettre A1 à la place de "June" et A2 à la place de "2013"

Merci d'avance.
Cordialement.

bonjour,
j'essaierai ceci:

Code:

1
2
fichier = "Function - 0001X - " & Sheets(1).[A1].Value & " " & Sheets(1).[A2].Value & ".xls"
Workbooks(fichier).Sheets("FCR - Main").Range("F14:G54").Copy

11/07/2013, 12h05
corsica13

Bonjour et merci d'avoir pris le temps de me répondre...

J'ai essayé avec votre code mais j'ai la même erreur sur cette ligne :

Code:

Workbooks(fichier).Sheets("FCR - Main").Range("F14:G54").Copy

et lorsque dans votre code je remplace " & Sheets(1).[A1].Value & " " & Sheets(1).[A2].Value & ".xls" par June 2013.xls ceci marche...

Le problème vient bien donc de cette ligne

:cry:
11/07/2013, 12h15
rvtoulon
en ouvrant le fichier il devient le fichier actif, il suffit de
de récupérer son nom:
Code:

1 2 fichier = ActiveWorkbook.Name Workbooks(fichier).Sheets("FCR - Main").Range("F14:G54").Copy
11/07/2013, 12h42
corsica13

:ccool: Bravo c'était ça qu'il fallait faire ;)

Je vous remercie de l'aide apporté, maintenant peut-être que vous sauriez également me dire (je sais je suis embétant:?)

Mais j'aimerais au lieu de copier à partir d'une valeur

Code:

....("F14:G54").Copy

recopier à partir d'une case bien précise car dans certains cas, il faudrait (par exemple) que ça recopie à partir de F16=>G56

En gros dans notre exemple précédent en F12 et G12 il y a deux noms de colonnes et je voudrais dire à la macro : Copie moi à partir de ces NomsDeColonne + 2 (vers le bas) :calim2:

Je ne sais vraiment pas si c'est possible ni comment faire alors par tout hasard je vous demande :)

Merci encore d'avance de prendre le temps de me lire

Edit : J'ai peut-être trouvé une piste avec Cells.find(What:"TitreColonne") finalement ce n'est peut-être pas la bonne solution car je n'arrive pas à la faire marcher et je trouve rien sur internet :/