R
Rémi
Guest
Bonjour,
J'essaie d'écrire une macro pour updater mes fichiers automatiquement à partir d'autres fichiers que je reçois. Ce que je tente de faire, c'est de demander à Excel qu'il recherche un mot dans la première colonne (jusque là, rien de difficile). Le problème, c'est que le nom du fichier dans lequel je vais aller cherhcer mon information change à tous les mois.
Est-ce qu'il y a un moyen pour faire en sorte que la macro soit capable d'aller lire une cellule du fichier qui renverrait au bon nom de fichier à ouvrir?
Voici ce que j'ai fait jusqu'à maintenant:
Sub Test()
Dim d As Variant
Dim i As Integer
Dim v1 As Integer
Dim v As Variant
d = "Name"
v1 = 0
NOM_DE_FICHIER.Activate
For i = 1 To 10000
v = Cells(i, 1)
If v = d Then
v1 = i
Exit For
End If
Next i
If v1 = 0 Then
MsgBox "Erreur : Date introuvable"
Exit Sub
End If
Cells(v1, 1).Select
Je cherche donc le mot Name dans ma première colonne. Je ne sais simplement pas quoi mettre à la place de NOM_DE_FICHIER. Ce dernier fichier sera ouvert lorsque ma macro sera éxécutée. Je me demande s'il est possible de faire quelque chose comme:
Cells(1,1).activate où le contenu de la cellule (1,1) serait le nom du fichier que je pourrais taper moi-même et ainsi ne pas avoir à modifier ma macro à chaque éxécution.
Merci.
Rémi
J'essaie d'écrire une macro pour updater mes fichiers automatiquement à partir d'autres fichiers que je reçois. Ce que je tente de faire, c'est de demander à Excel qu'il recherche un mot dans la première colonne (jusque là, rien de difficile). Le problème, c'est que le nom du fichier dans lequel je vais aller cherhcer mon information change à tous les mois.
Est-ce qu'il y a un moyen pour faire en sorte que la macro soit capable d'aller lire une cellule du fichier qui renverrait au bon nom de fichier à ouvrir?
Voici ce que j'ai fait jusqu'à maintenant:
Sub Test()
Dim d As Variant
Dim i As Integer
Dim v1 As Integer
Dim v As Variant
d = "Name"
v1 = 0
NOM_DE_FICHIER.Activate
For i = 1 To 10000
v = Cells(i, 1)
If v = d Then
v1 = i
Exit For
End If
Next i
If v1 = 0 Then
MsgBox "Erreur : Date introuvable"
Exit Sub
End If
Cells(v1, 1).Select
Je cherche donc le mot Name dans ma première colonne. Je ne sais simplement pas quoi mettre à la place de NOM_DE_FICHIER. Ce dernier fichier sera ouvert lorsque ma macro sera éxécutée. Je me demande s'il est possible de faire quelque chose comme:
Cells(1,1).activate où le contenu de la cellule (1,1) serait le nom du fichier que je pourrais taper moi-même et ainsi ne pas avoir à modifier ma macro à chaque éxécution.
Merci.
Rémi