Programme VBA

Fermé
Signaler
Messages postés
19
Date d'inscription
lundi 10 mars 2008
Statut
Membre
Dernière intervention
27 décembre 2008
-
 amigo -
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+.