Gestion des variables nommées comme une commande VBA

Bonjour la communauté.

J'ai beau chercher sur Internet, je ne parviens pas à trouver de sujet portant sur le problème que je rencontre actuellement.
J'avoue que je ne sais pas comment formuler précisément ma demande non plus ...

Je dois traiter un fichier excel avec une macro. Ce fichier contient 140 champs disposants tous d'un nom spécifique fixe (il s'agit de la configuration d'objets dans un middleware).
Je n'ai donc pas pas le choix du nom de ces champs.

Je cherche à appliquer un traitement pour chaque colonne. Je vous donne ci-dessous un exemple de ce que je peux avoir à faire.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim Colonne As Variant   For Each Colonne In Array(cmd, Status, Application, owner, Description, Command, Shell, Interactive, profile)   If Rows(1).Find(Colonne, , xlValues, xlWhole, , , False) Is Nothing Then Debug.Print "La colonne " & Colonne & " n'existe pas" Else Debug.Print "La colonne " & Colonne & "existe" End If   Next Colonne

---

Comme on peut le voir tout de suite, certains champs portent des noms qui sont interprétés par VBA (tous ceux qui commencent par une majuscule), certains étant des noms de commandes ... comme Shell.
Donc j'ai une erreur de compilation puisque cette commande Shell par exemple attend des arguments obligatoires.

La question est donc la suivante : est-ce qu'il est possible de "protéger" le nom des champs dans l'Array pour pouvoir les utiliser avec leur valeur dans la suite de la macro?
Et si oui comment?

Merci d'avance pour votre aide.

Bonjour,
C'est la première fois que je vois la boucle For Each .. Next utilisée ainsi. Je suis curieux de voir ce qui va en sortir.
Vous n'avez pas de message d'erreur à la ligne 4 ?
Où sont déclarées les variables cmd, Status, Application, owner, Description, Command, Shell, Interactive, profile ?

Bonjour, tu as essayé de mettre les noms entre guillemets ?

For Each Colonne In Array("cmd", "Status",etc...

Merci pour vos réponses rapides.

En effet, il apparaît que ce problème de nom de variable Shell me masquait le vrai problème ...

Suite à vos remarques, j'ai refait un test. J'avais effectivement essayé d'encadrer les noms de variable qui posaient problème avec des doubles cotes, sans succès.
Mais ce sont toutes les valeurs qu'il faut encadrer de cette façon ... sinon c'est erreur de compilation (une autre cette fois) direct!

Donc ceci fonctionne parfaitement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim Colonne As Variant   For Each Colonne In Array("test", "cmd", "status", "application", "owner", "description", "command", "shell", "interactive", "profile")   If Rows(1).Find(Colonne, , xlValues, xlWhole, , , False) Is Nothing Then Debug.Print "La colonne " & Colonne & " n'existe pas" Else Debug.Print "La colonne " & Colonne & " existe" End If   Next Colonne   End Sub

---

Je me suis fait avoir car jusqu'à présent, j'utilisais des Array avec des valeurs numériques qui ne nécessitent pas ces doubles cotes ...

Merci pour votre aide. :bravo: