Programme VBA

Fermé
Marion1985 Messages postés 19 Date d'inscription lundi 10 mars 2008 Statut Membre Dernière intervention 27 décembre 2008 - 14 mars 2008 à 17:12
 amigo - 14 mars 2008 à 17:34
Bonjour,
Je dois remplir un tableau Excel avec des données provenant de fichiers différents. Pour cela j'ai crée un CommandButton dont le code est :

Private Sub CommandButton3_Click()
Application.DisplayAlerts = False

For j = 17 To 29
Cells(i, j).Select
numfichier = j - 16
ActiveCell.FormulaR1C1 = "='L:\cdg\TDBG\Technique\[0 & numfichier & SPIARDEPVL 2006.XLS]37'!R67C4"

Next j
Application.DisplayAlerts = False
End Sub

Le nom des fichiers diffèrent uniquement par un numero que j'ai appelé numfichier.
Lorsque je lance le code mes cellules se remplissent de #REF! . Pourquoi? Pourtant le chemin du fichier me semble bon...

1 réponse

Bonjour,

Je pense qu'au niveau de la syntaxe ill faut ecrire comme ceci:

ActiveCell.FormulaR1C1 = "='L:\cdg\TDBG\Technique\[0" & numfichier & "SPIARDEPVL 2006.XLS]37'!R67C4"

A+.
0