Bonjour à tous.
Je dois récupérer les données d'un fichier excel qui permettait de gérer un
stock.
1- Le nom de la feuille correspond au nom de l'article
2- Les mouvements sur les articles sont sur chaque feuille.
Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de
chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE
que j'ai ajouté.
Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser
l'opération.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RGI
Bonjour
comme ceci Sub essai() For i = 1 To Sheets.Count Sheets("article").Select Cells(i, 1).Value = Sheets(i).Name Next End Sub
salutations
RGI
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
Bonjour
comme ceci
Sub essai()
For i = 1 To Sheets.Count
Sheets("article").Select
Cells(i, 1).Value = Sheets(i).Name
Next
End Sub
salutations
RGI
Bonjour à tous.
Je dois récupérer les données d'un fichier excel qui permettait de gérer un
stock.
1- Le nom de la feuille correspond au nom de l'article
2- Les mouvements sur les articles sont sur chaque feuille.
Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de
chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE
que j'ai ajouté.
Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser
l'opération.
comme ceci Sub essai() For i = 1 To Sheets.Count Sheets("article").Select Cells(i, 1).Value = Sheets(i).Name Next End Sub
salutations
RGI
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
isabelle
bonjour Irénée,
For Each f In Worksheets If f.Name <> "ARTICLE" Then Sheets("ARTICLE").Range("A" & Sheets("ARTICLE").Range("A65536").End(xlUp).Row + 1) = f.Name End If Next
isabelle
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
bonjour Irénée,
For Each f In Worksheets
If f.Name <> "ARTICLE" Then
Sheets("ARTICLE").Range("A" & Sheets("ARTICLE").Range("A65536").End(xlUp).Row + 1) = f.Name
End If
Next
isabelle
Bonjour à tous.
Je dois récupérer les données d'un fichier excel qui permettait de gérer un
stock.
1- Le nom de la feuille correspond au nom de l'article
2- Les mouvements sur les articles sont sur chaque feuille.
Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de
chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE
que j'ai ajouté.
Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser
l'opération.
For Each f In Worksheets If f.Name <> "ARTICLE" Then Sheets("ARTICLE").Range("A" & Sheets("ARTICLE").Range("A65536").End(xlUp).Row + 1) = f.Name End If Next
isabelle
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
Irénée A.
Merci à tous. Ca marche parfaitement
Bonjour
comme ceci Sub essai() For i = 1 To Sheets.Count Sheets("article").Select Cells(i, 1).Value = Sheets(i).Name Next End Sub
salutations
RGI
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
Merci à tous. Ca marche parfaitement
Bonjour
comme ceci
Sub essai()
For i = 1 To Sheets.Count
Sheets("article").Select
Cells(i, 1).Value = Sheets(i).Name
Next
End Sub
salutations
RGI
Bonjour à tous.
Je dois récupérer les données d'un fichier excel qui permettait de gérer un
stock.
1- Le nom de la feuille correspond au nom de l'article
2- Les mouvements sur les articles sont sur chaque feuille.
Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de
chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE
que j'ai ajouté.
Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser
l'opération.
comme ceci Sub essai() For i = 1 To Sheets.Count Sheets("article").Select Cells(i, 1).Value = Sheets(i).Name Next End Sub
salutations
RGI
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
For Each f In Worksheets If f.Name <> "ARTICLE" Then Sheets("ARTICLE").Range("A" & Sheets("ARTICLE").Range("A65536").End(xlUp).Row + 1) = f.Name End If Next
isabelle
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
Merci Isabelle
bonjour Irénée,
For Each f In Worksheets
If f.Name <> "ARTICLE" Then
Sheets("ARTICLE").Range("A" & Sheets("ARTICLE").Range("A65536").End(xlUp).Row + 1) = f.Name
End If
Next
isabelle
Bonjour à tous.
Je dois récupérer les données d'un fichier excel qui permettait de gérer un
stock.
1- Le nom de la feuille correspond au nom de l'article
2- Les mouvements sur les articles sont sur chaque feuille.
Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de
chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE
que j'ai ajouté.
Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser
l'opération.
For Each f In Worksheets If f.Name <> "ARTICLE" Then Sheets("ARTICLE").Range("A" & Sheets("ARTICLE").Range("A65536").End(xlUp).Row + 1) = f.Name End If Next
isabelle
Bonjour à tous. Je dois récupérer les données d'un fichier excel qui permettait de gérer un stock. 1- Le nom de la feuille correspond au nom de l'article 2- Les mouvements sur les articles sont sur chaque feuille. Je souhaite parcourir toutes les feuilles du classeur, récuperer le nom de chaque feuille et l'inscrire dans la colonne A d'une feuille appelée ARTICLE que j'ai ajouté. Merci à toute personne qui pourrait m'indiquer le code VBA pour réaliser l'opération.
