Discussion :

[tit-doudou]

Bonjour à tous, j'ai parcouru un peu le forum en espérant trouver mon bonheur mais je n'ai pas réussi. Comme le dit le titre, j'ai un problème pour copier des cellules d'un classeur à un autre. D'une façon générale, j'ai réussi à utiliser une fonction en utilisant le nom des deux classeurs. Voici un exemple :

Code :

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

1
2
3
Sub Copie_données()
Workbooks("classeur_recept.xls" ).Sheets("Feuil1" ).Range("C3" ) = Workbooks("Classeur001.xls" ).Sheets("Feuil2" ).Range("J3" ).Value
End Sub

Cette fonction marche très bien. Cependant, je souhaiterais la réaliser sans forcément donner le nom du classeur source. En effet, à chaque utilisation, le classeur change de nom ("classeur001/classeur002" ). Peut-on le commander en sélectionnant un classeur déjà ouvert, en donnant le chemin d'un dossier pour l'ouvrir manuellement ou tout simplement en donnant le nom partiel du fichier ("classeur*.xls" : j'ai essayé mais cela ne marche pas). Si vous avez d'autres idées pour m'aider, n'hésitez pas.

En espérant avoir été clair, je vous remercie par avance.

PS: Excusez-moi pour le double-post

[zyhack]

Bonsoir

tu peux créer les noms de fichiers dynamiquement

essaye ce code et tu pourras l'adapter ensuite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub testnf()
Dim RacineFichier As String, nomfichier As String
Dim x As Integer
 
RacineFichier = "Classeur"
 
For x = 1 To 5
  nomfichier = RacineFichier & Format(x, "000") & ".xls"
  MsgBox nomfichier
Next
 
End Sub

bon courage