Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fichiers excel d'un dossier

Fichiers excel d'un dossier

2 réponses
Avatar
arnaud
Bonjour à tous !

J'aimerai dans une macro, que pour un dossier donné (F:\FICHEST), ma macro
ouvre chaque classeur au fur et à mesure pour récupérer des donénes et les
coller dans un nouveau classeur excel.
Très Grossierement :

For each classeur in F:\FICHEST
ouvre classeur
Val1 = range("A1").value
Val2 = range("A2").value
sheets("monnouveauclasseur").activate
copy ma feuille existante
Sur nouvelle feuille
Range("B1").value = Val1
Range("B2").value = Val2
next classeur

Merci de votre aide !!!
Arnaud
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Essaie ce code :

Sub test()
Dim Fich As String
Fich = Dir("F:Fichest*.xls")
Do While Fich <> ""
'ton traitement
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"arnaud" a écrit dans le message de news:
uWiJZQ9$
Bonjour à tous !

J'aimerai dans une macro, que pour un dossier donné (F:FICHEST), ma macro
ouvre chaque classeur au fur et à mesure pour récupérer des donénes et les
coller dans un nouveau classeur excel.
Très Grossierement :

For each classeur in F:FICHEST
ouvre classeur
Val1 = range("A1").value
Val2 = range("A2").value
sheets("monnouveauclasseur").activate
copy ma feuille existante
Sur nouvelle feuille
Range("B1").value = Val1
Range("B2").value = Val2
next classeur

Merci de votre aide !!!
Arnaud






Avatar
arnaud
Merci je teste !

"Daniel" a écrit dans le message de news:
uGnvCl#$
Bonjour.
Essaie ce code :

Sub test()
Dim Fich As String
Fich = Dir("F:Fichest*.xls")
Do While Fich <> ""
'ton traitement
Fich = Dir
Loop
End Sub

Cordialement.
Daniel
"arnaud" a écrit dans le message de news:
uWiJZQ9$
Bonjour à tous !

J'aimerai dans une macro, que pour un dossier donné (F:FICHEST), ma
macro


ouvre chaque classeur au fur et à mesure pour récupérer des donénes et
les


coller dans un nouveau classeur excel.
Très Grossierement :

For each classeur in F:FICHEST
ouvre classeur
Val1 = range("A1").value
Val2 = range("A2").value
sheets("monnouveauclasseur").activate
copy ma feuille existante
Sur nouvelle feuille
Range("B1").value = Val1
Range("B2").value = Val2
next classeur

Merci de votre aide !!!
Arnaud