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 Ouverture de classeurs en VB ?

Ouverture de classeurs en VB ?

3 réponses
Avatar
Myriam
Bonjour à toutes et tous !!

Suite à un changement de matériel d'impression, j'ai des problèmes avec la
police Arial...

Je voudrais faire une macro qui ouvre les uns après les autres tous les
Classeurs Excel (xls) d'un dossier à choisir, sélectionne toutes les
feuilles & cellules du classeur, applique la police Helvetica, sauvegarde et
ferme le fichier...

Je sais faire en VB, la sélection des Feuilles et Cellules pour appliquer
l'helvetica.

Mais je sais pas ouvrir tous les xls (les uns après les autres) d'un dossier
à choisir ???
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M Virgule.la.bande.a.Basil@Netcourrier.com
Signaler un problème avec ce contenu

3 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
papou
Bonjour
Exemple à adapter:
With Application.FileSearch
.NewSearch
.LookIn "C:TOTO"
.FileType = msoFileTypeExcelWorkbooks
If .Execute <> 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
'ton code de modif des polices ici
Workbooks(.FoundFiles(i)).Close (True)
Next i
Else: MsgBox "Pas de fichier trouvé", vbInformation, "Pas trouvé"
End If
End With

Cordialement
Pascal

"Myriam" a écrit dans le message
de news:
Bonjour à toutes et tous !!

Suite à un changement de matériel d'impression, j'ai des problèmes avec la
police Arial...

Je voudrais faire une macro qui ouvre les uns après les autres tous les
Classeurs Excel (xls) d'un dossier à choisir, sélectionne toutes les
feuilles & cellules du classeur, applique la police Helvetica, sauvegarde
et

ferme le fichier...

Je sais faire en VB, la sélection des Feuilles et Cellules pour appliquer
l'helvetica.

Mais je sais pas ouvrir tous les xls (les uns après les autres) d'un
dossier

à choisir ???
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M




Avatar
papou
oups !!
.LookIn = "C:TOTO"

Cordialement
Pascal

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:uT%23X$
Bonjour
Exemple à adapter:
With Application.FileSearch
.NewSearch
.LookIn "C:TOTO"
.FileType = msoFileTypeExcelWorkbooks
If .Execute <> 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
'ton code de modif des polices ici
Workbooks(.FoundFiles(i)).Close (True)
Next i
Else: MsgBox "Pas de fichier trouvé", vbInformation, "Pas trouvé"
End If
End With

Cordialement
Pascal

"Myriam" a écrit dans le message
de news:
Bonjour à toutes et tous !!

Suite à un changement de matériel d'impression, j'ai des problèmes avec
la


police Arial...

Je voudrais faire une macro qui ouvre les uns après les autres tous les
Classeurs Excel (xls) d'un dossier à choisir, sélectionne toutes les
feuilles & cellules du classeur, applique la police Helvetica,
sauvegarde


et
ferme le fichier...

Je sais faire en VB, la sélection des Feuilles et Cellules pour
appliquer


l'helvetica.

Mais je sais pas ouvrir tous les xls (les uns après les autres) d'un
dossier

à choisir ???
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M








Avatar
Myriam
Merci !
--
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M
"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de news:

oups !!
.LookIn = "C:TOTO"

Cordialement
Pascal

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:uT%23X$
Bonjour
Exemple à adapter:
With Application.FileSearch
.NewSearch
.LookIn "C:TOTO"
.FileType = msoFileTypeExcelWorkbooks
If .Execute <> 0 Then
For i = 1 To .FoundFiles.Count
Workbooks.Open (.FoundFiles(i))
'ton code de modif des polices ici
Workbooks(.FoundFiles(i)).Close (True)
Next i
Else: MsgBox "Pas de fichier trouvé", vbInformation, "Pas trouvé"
End If
End With

Cordialement
Pascal

"Myriam" a écrit dans le
message


de news:
Bonjour à toutes et tous !!

Suite à un changement de matériel d'impression, j'ai des problèmes
avec



la
police Arial...

Je voudrais faire une macro qui ouvre les uns après les autres tous
les



Classeurs Excel (xls) d'un dossier à choisir, sélectionne toutes les
feuilles & cellules du classeur, applique la police Helvetica,
sauvegarde


et
ferme le fichier...

Je sais faire en VB, la sélection des Feuilles et Cellules pour
appliquer


l'helvetica.

Mais je sais pas ouvrir tous les xls (les uns après les autres) d'un
dossier

à choisir ???
______________________________________
J'aime bien les NewsGroup mais pas les virus !!!
Retirer Virgule. si vous voulez répondre !!
Myriam.M