Discussion :

[mouftie]

Bonjour,
J'utilise beaucoup de tableau (ex Liste dans Excel 2003), car c'est plus parlant de faire référence à un nom de champ plutôt qu'un N° de colonne.
Donc j'utilise beaucoup la forme Range("[NomFichierSansExtension]NomDeFeuille!NomDeTable[Champ]")

Dans le cas qui me préocupe, je veux copier / coller d'un classeur dans un autre.

Ainsi, j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("[Récup]BddRecup!TbRecup[[ContTrait]:[PostTraitT]]").copy
Range("[TestSource]Traitmt!TbTeste[[ContTrait]:[PostTraitT]]").PasteSpecial Paste:=xlPasteFormats

cela fonctionne parfaitement ; sauf que mes fichiers ne s'appelle pas TestSource, mais Test Source S01
Mais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("[Récup.xlsx]BddRecup!TbRecup[[ContTrait]:[PostTraitT]]").copy
Range("[Test Source S01]Traitmt!TbTeste[[ContTrait]:[PostTraitT]]").PasteSpecial Paste:=xlPasteFormats

ne fonctionne plus.
Est-ce que quelqu'un connait la solution ou vais-je devoir renommer un grand nombre de fichier et modifier les macros qui nomment ces fichiers ?

Merci d'avance pour votre aide.
NB : j'ai bcp aimé le dossier Les tableaux dans Excel 2007

[78chris]

Bonjour

Il faut encadrer le nom du classeur et de la feuille par des '

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("'[Test Source S01]Traitmt'!TbTeste[[ContTrait]:[PostTraitT]]")

[mouftie]

Bonjour Chris,
Désolée, j'ai du m'absenter et je n'ai pas pu tester avant. Merci beaucoup pour ta réponse.

j'avais bien essayé de mettre des ' mais pas entre le nom de la feuille et le point d'exclamation...

de plus, j'ai du ajouter les extenstions de fichier pour que cela fonctionne. Je n'ai pas bien compris quand il faut les mettre et quand ce n'est pas nécessaire.

Pour le fun, comme mon nom de fichier change chaque semaine, il faut ajouter une variable, ce qui donne (je le mets si ça peut servir...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Sem As string
Sem = Sheets("A_Recup").Range("A1")
Range("[Récup.xlsx]BddRecup!TbRecup[[ContTrait]:[PostTraitT]]").Copy
Range("'[Test Source S" & Sem & ".xlsx]Traitmt'!TbTeste[[ContTrait]:[PostTraitT]]").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False

Si ce n'est pas abuser, j'aurais une autre question, stp.
comment compte-t-on le nombre de ligne d'un tableau liste ; j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = Sheets("A_Recup").Cells(Rows.Count, [DateRec])

ou DateRec représente le nom du champ de la colonne

[mouftie]

Je viens de trouver la solution à ma 2ème question.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = Range("[Récup.xlsx]BddRecup!TbDatRec").Rows.Count

Merci encore, à bientôt