Bonjour à tous,
J'ai un petit problème à résoudre et je ne parviens pas à trouver la solution malgré mes recherches dans différents forums.
J'ai un classeur excel dont le nombre d'onglets et leur nom varient chaque jour. A l'aide d'une macro je dois saisir dans une cellule (H5) des renseignements dans tous les onglets sauf le 1er et 2ème onglets. Là où je coince c'est sur la sélection des onglets.Je voudrais donc sélectionner de l'onglet 3 jusqu'au dernier quelquesoit le nom.
J'ai ces quelques lignes, mais un message d'erreur d'exécution 438 apparait.
Je vous remercie de m'accorder de votre temps.
J'ai un petit problème à résoudre et je ne parviens pas à trouver la solution malgré mes recherches dans différents forums.
J'ai un classeur excel dont le nombre d'onglets et leur nom varient chaque jour. A l'aide d'une macro je dois saisir dans une cellule (H5) des renseignements dans tous les onglets sauf le 1er et 2ème onglets. Là où je coince c'est sur la sélection des onglets.Je voudrais donc sélectionner de l'onglet 3 jusqu'au dernier quelquesoit le nom.
J'ai ces quelques lignes, mais un message d'erreur d'exécution 438 apparait.
Code:
Sub SelectionFeuilles()
Dim i As Integer, MonArray()
ReDim MonArray(Worksheets.Count - 3) '-3 car je ne prends pas les 2 premières feuilles et l'array commence à l'indice 0
For i = 3 To Worksheets.Count 'Parcours les feuilles
MonArray(i - 2) = Sheets(i)
Next i
Sheets(MonArray).Select 'sélection de l'ensemble
End Sub
Je vous remercie de m'accorder de votre temps.