qq lignes de programmes

Bonjour,
Heu! et sur ce forum..il y en a pourtant

J'ai bien farfoullé

Pour bien farfouiller sur ce sujet:

Google Cliquer sur groupes et chercher

"Do while len(f)>0"

@+

lSteph
olitoto a exposé le 15/11/2006 :

Bonjour à tous,


Je suis à la recherche de quelques lignes de programmes qui explorent
l'intégralité d'un dossier excel avec tous les onglets qu'il y en ai 2 ou 100
....
L'objectif est de faire une mise à jour globale des données se trouvant à
l'intérieur de chacun d'eux ( suppression de colonne, remplacement de contenu
de cellule, inclusion de logo, etc ...).

J'ai bien farfoullé sur le net, mais je n'ai rien trouvé ...


Merci d'avance.

Olivier

--
- -

Bonjour,
Heu! et sur ce forum..il y en a pourtant

J'ai bien farfoullé

Pour bien farfouiller sur ce sujet:

Google Cliquer sur groupes et chercher

"Do while len(f)>0"

@+

lSteph
olitoto a exposé le 15/11/2006 :

Bonjour à tous,


Je suis à la recherche de quelques lignes de programmes qui explorent
l'intégralité d'un dossier excel avec tous les onglets qu'il y en ai 2
ou 100 ....
L'objectif est de faire une mise à jour globale des données se
trouvant à l'intérieur de chacun d'eux ( suppression de colonne,
remplacement de contenu de cellule, inclusion de logo, etc ...).

J'ai bien farfoullé sur le net, mais je n'ai rien trouvé ...


Merci d'avance.

Olivier

Merci lsteph,

Mais je ne trouve rien qui me convienne, ou bien c'est en anglais .

As tu plus de précisions ?

Olivier

Bonjour,
Il y a juste quelques centaines de posts sur le sujet et rien que sur
la première page
au moins trois qui répondent à ta question, ou permettront d'adapter
selon le détail.
Une autre astuce pour bienfarfouiller, mais sache qd même qu'il y a
aussi un bouton aide
dans google cocher Pages francophones cela peut aider.

... donc étant donné les efforts que tu as déployé pour chercher
voici qd même
une piste sur cette méthode artisanale mais ayant fait ces preuves et
que je préfère dans le contexte de vba que devoir faire appel à
d'autres concepts de programmation car
"filesystemobject" ou "fso" seraient aussi des pistes pour ta recherche
dnc (ta macro à appeler à la place du msgbox f):

Sub masub()
Dim f As String
ChDir ("c:")
f = Dir("*.xls")
Do While Len(f) > 0
MsgBox f
f = Dir
Loop
End Sub

Cdlt.

lSteph

Bonjour,
Heu! et sur ce forum..il y en a pourtant

J'ai bien farfoullé

Pour bien farfouiller sur ce sujet:

Google Cliquer sur groupes et chercher

"Do while len(f)>0"

@+

lSteph
olitoto a exposé le 15/11/2006 :

Bonjour à tous,


Je suis à la recherche de quelques lignes de programmes qui explorent
l'intégralité d'un dossier excel avec tous les onglets qu'il y en ai 2
ou 100 ....
L'objectif est de faire une mise à jour globale des données se
trouvant à l'intérieur de chacun d'eux ( suppression de colonne,
remplacement de contenu de cellule, inclusion de logo, etc ...).

J'ai bien farfoullé sur le net, mais je n'ai rien trouvé ...


Merci d'avance.

Olivier

Merci lsteph,

Mais je ne trouve rien qui me convienne, ou bien c'est en anglais .

As tu plus de précisions ?

Olivier

..suite...
en complément, cette fois choisis pour "lechemindurépertoire",
un répertoire qui contient très peu de fichiers xls

Sub masub()
Dim f As String
Chdir("c:lechemindurépertoire")
f = Dir("*.xls")
Do While Len(f) > 0
Workbooks.Open f
f = Dir
Loop
End Sub

'@+

'lSteph

Bonjour,
Il y a juste quelques centaines de posts sur le sujet et rien que sur
la première page
au moins trois qui répondent à ta question, ou permettront d'adapter
selon le détail.
Une autre astuce pour bienfarfouiller, mais sache qd même qu'il y a
aussi un bouton aide
dans google cocher Pages francophones cela peut aider.

... donc étant donné les efforts que tu as déployé pour chercher
voici qd même
une piste sur cette méthode artisanale mais ayant fait ces preuves et
que je préfère dans le contexte de vba que devoir faire appel à
d'autres concepts de programmation car
"filesystemobject" ou "fso" seraient aussi des pistes pour ta recherche
dnc (ta macro à appeler à la place du msgbox f):

Sub masub()
Dim f As String
ChDir ("c:")
f = Dir("*.xls")
Do While Len(f) > 0
MsgBox f
f = Dir
Loop
End Sub


Merci pour ce code , mais j'ai dû mal m'exprimer :

Je ne cherche pas à ouvrir un liste de fichiers excel dans un répertoire
pour les traiter, (quoi que plus tard peut être),

mais

explorer tous les onglets ( ou feuilles ) d'un fichier excel pour y
faire des modifications globales.
Certains de mes fichiers ont parfois une centaine d'onglets.


En espérant m'être mieux fait comprendre ..


Olivier

Oui, comme tu parlais de dossier (répertoire)
j'ai pensé que ta difficulté portait sur l'ouverture consécutive de
différents classeurs(fichiers) contenu dans ce dossier,avant
d'envisager de s'attaquer aux onglets(feuilles)

Sans programmation tu peux te mettre en groupe de travail et effectuer
les mêmes actions sur tous les onglets du classeur, il suffit de les
sélectionner tous ensemble.

tu peux utiliser l'enregistreur pour voir ce que cela donne en vba
mais s'il faut écrire une macro qui effectue des actions
on peut aussi utiliser une boucle
exemple:

Dim sh as worksheet
For each sh in Activeworkbook
[a1]=sh.name
next

Cdlt

lSteph

Bonjour,
Il y a juste quelques centaines de posts sur le sujet et rien que sur
la première page
au moins trois qui répondent à ta question, ou permettront d'adapter
selon le détail.
Une autre astuce pour bienfarfouiller, mais sache qd même qu'il y a
aussi un bouton aide
dans google cocher Pages francophones cela peut aider.

... donc étant donné les efforts que tu as déployé pour chercher
voici qd même
une piste sur cette méthode artisanale mais ayant fait ces preuves et
que je préfère dans le contexte de vba que devoir faire appel à
d'autres concepts de programmation car
"filesystemobject" ou "fso" seraient aussi des pistes pour ta recherche
dnc (ta macro à appeler à la place du msgbox f):

Sub masub()
Dim f As String
ChDir ("c:")
f = Dir("*.xls")
Do While Len(f) > 0
MsgBox f
f = Dir
Loop
End Sub


Merci pour ce code , mais j'ai dû mal m'exprimer :

Je ne cherche pas à ouvrir un liste de fichiers excel dans un réperto ire
pour les traiter, (quoi que plus tard peut être),

mais

explorer tous les onglets ( ou feuilles ) d'un fichier excel pour y
faire des modifications globales.
Certains de mes fichiers ont parfois une centaine d'onglets.


En espérant m'être mieux fait comprendre ..


Olivier

...oupss..parti un peu vite ce truc écrit à la volée
donc plus précisément ceci écrit le nom de chaque feuille dans a1

Sub masub()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
sh.[a1] = sh.Name
Next
End Sub

Oui, comme tu parlais de dossier (répertoire)
j'ai pensé que ta difficulté portait sur l'ouverture consécutive de
différents classeurs(fichiers) contenu dans ce dossier,avant
d'envisager de s'attaquer aux onglets(feuilles)

Sans programmation tu peux te mettre en groupe de travail et effectuer
les mêmes actions sur tous les onglets du classeur, il suffit de les
sélectionner tous ensemble.

tu peux utiliser l'enregistreur pour voir ce que cela donne en vba
mais s'il faut écrire une macro qui effectue des actions
on peut aussi utiliser une boucle
exemple:

Dim sh as worksheet
For each sh in Activeworkbook
[a1]=sh.name
next

Cdlt

lSteph

Bonjour,
Il y a juste quelques centaines de posts sur le sujet et rien que sur
la première page
au moins trois qui répondent à ta question, ou permettront d'adap ter
selon le détail.
Une autre astuce pour bienfarfouiller, mais sache qd même qu'il y a
aussi un bouton aide
dans google cocher Pages francophones cela peut aider.

... donc étant donné les efforts que tu as déployé pour cherc her
voici qd même
une piste sur cette méthode artisanale mais ayant fait ces preuves et
que je préfère dans le contexte de vba que devoir faire appel à
d'autres concepts de programmation car
"filesystemobject" ou "fso" seraient aussi des pistes pour ta recherc he
dnc (ta macro à appeler à la place du msgbox f):

Sub masub()
Dim f As String
ChDir ("c:")
f = Dir("*.xls")
Do While Len(f) > 0
MsgBox f
f = Dir
Loop
End Sub


Merci pour ce code , mais j'ai dû mal m'exprimer :

Je ne cherche pas à ouvrir un liste de fichiers excel dans un réper toire
pour les traiter, (quoi que plus tard peut être),

mais

explorer tous les onglets ( ou feuilles ) d'un fichier excel pour y
faire des modifications globales.
Certains de mes fichiers ont parfois une centaine d'onglets.


En espérant m'être mieux fait comprendre ..


Olivier

..suite..
autre façon de faire
Mettre une seule feuille dans un classeur qui servira de modèle,
avec le Logo et tout le tintouin
On en veut admettons une pour chaque mois

Sub UneFparmois()
Dim i As Byte
For i = 1 To 12
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Format("01/" & i & "/2006", "mmmyyyy")
Next
End Sub

@+

Oui, comme tu parlais de dossier (répertoire)
j'ai pensé que ta difficulté portait sur l'ouverture consécutive de
différents classeurs(fichiers) contenu dans ce dossier,avant
d'envisager de s'attaquer aux onglets(feuilles)

Sans programmation tu peux te mettre en groupe de travail et effectuer
les mêmes actions sur tous les onglets du classeur, il suffit de les
sélectionner tous ensemble.

tu peux utiliser l'enregistreur pour voir ce que cela donne en vba
mais s'il faut écrire une macro qui effectue des actions
on peut aussi utiliser une boucle
exemple:

Dim sh as worksheet
For each sh in Activeworkbook
[a1]=sh.name
next

Cdlt

lSteph

Bonjour,
Il y a juste quelques centaines de posts sur le sujet et rien que sur
la première page
au moins trois qui répondent à ta question, ou permettront d'adap ter
selon le détail.
Une autre astuce pour bienfarfouiller, mais sache qd même qu'il y a
aussi un bouton aide
dans google cocher Pages francophones cela peut aider.

... donc étant donné les efforts que tu as déployé pour cherc her
voici qd même
une piste sur cette méthode artisanale mais ayant fait ces preuves et
que je préfère dans le contexte de vba que devoir faire appel à
d'autres concepts de programmation car
"filesystemobject" ou "fso" seraient aussi des pistes pour ta recherc he
dnc (ta macro à appeler à la place du msgbox f):

Sub masub()
Dim f As String
ChDir ("c:")
f = Dir("*.xls")
Do While Len(f) > 0
MsgBox f
f = Dir
Loop
End Sub


Merci pour ce code , mais j'ai dû mal m'exprimer :

Je ne cherche pas à ouvrir un liste de fichiers excel dans un réper toire
pour les traiter, (quoi que plus tard peut être),

mais

explorer tous les onglets ( ou feuilles ) d'un fichier excel pour y
faire des modifications globales.
Certains de mes fichiers ont parfois une centaine d'onglets.


En espérant m'être mieux fait comprendre ..


Olivier