Bonjour,
Je ne maitrise pas suffisamment les macros.
Je souhaiterais creer une macro qui me permette de formater (ex : telle largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes disant
qu'il faille aller dans tels ou tels classeurs...
Merci d'avance
Reda
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
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
Pascal Engelmajer
Salut, si les classeur sont ouverts... dim wbk as Workbook set wbk = Workbooks("nom_du_classeur") wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news:
Bonjour, Je ne maitrise pas suffisamment les macros. Je souhaiterais creer une macro qui me permette de formater (ex : telle largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes disant
qu'il faille aller dans tels ou tels classeurs... Merci d'avance Reda -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Salut,
si les classeur sont ouverts...
dim wbk as Workbook
set wbk = Workbooks("nom_du_classeur")
wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"reda" <reda@reda.fr> a écrit dans le message de news:
2004219-14519-594704@foorum.com...
Bonjour,
Je ne maitrise pas suffisamment les macros.
Je souhaiterais creer une macro qui me permette de formater (ex : telle
largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les
en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes
disant
qu'il faille aller dans tels ou tels classeurs...
Merci d'avance
Reda
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Salut, si les classeur sont ouverts... dim wbk as Workbook set wbk = Workbooks("nom_du_classeur") wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news:
Bonjour, Je ne maitrise pas suffisamment les macros. Je souhaiterais creer une macro qui me permette de formater (ex : telle largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes disant
qu'il faille aller dans tels ou tels classeurs... Merci d'avance Reda -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
reda
ok, je vais essayerde chercher pour voir comment faire avec des classeurs fermés (car il y en a bcp)
"Pascal Engelmajer" a écrit dans le message news:
Salut, si les classeur sont ouverts... dim wbk as Workbook set wbk = Workbooks("nom_du_classeur") wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news:
Bonjour, Je ne maitrise pas suffisamment les macros. Je souhaiterais creer une macro qui me permette de formater (ex : telle largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes disant
qu'il faille aller dans tels ou tels classeurs... Merci d'avance Reda -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
ok, je vais essayerde chercher pour voir comment faire avec des classeurs
fermés (car il y en a bcp)
"Pascal Engelmajer" <pascal.engelmajer@ilyapa_spam.net> a écrit dans le
message news: uljaQNw9DHA.2856@TK2MSFTNGP10.phx.gbl...
Salut,
si les classeur sont ouverts...
dim wbk as Workbook
set wbk = Workbooks("nom_du_classeur")
wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"reda" <reda@reda.fr> a écrit dans le message de news:
2004219-14519-594704@foorum.com...
Bonjour,
Je ne maitrise pas suffisamment les macros.
Je souhaiterais creer une macro qui me permette de formater (ex : telle
largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les
en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes
disant
qu'il faille aller dans tels ou tels classeurs...
Merci d'avance
Reda
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
ok, je vais essayerde chercher pour voir comment faire avec des classeurs fermés (car il y en a bcp)
"Pascal Engelmajer" a écrit dans le message news:
Salut, si les classeur sont ouverts... dim wbk as Workbook set wbk = Workbooks("nom_du_classeur") wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news:
Bonjour, Je ne maitrise pas suffisamment les macros. Je souhaiterais creer une macro qui me permette de formater (ex : telle largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes disant
qu'il faille aller dans tels ou tels classeurs... Merci d'avance Reda -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Pascal Engelmajer
Salut, il suffit de les ouvrir et de les refermer dim wbk as Workbook set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls .../... wbk.Close True si ce sont tous les classeurs d'un répertoire qui présentent une particularité identifiable on peut scanner ce repertoire -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news: c14hee$h3v$
ok, je vais essayerde chercher pour voir comment faire avec des classeurs fermés (car il y en a bcp)
"Pascal Engelmajer" a écrit dans le message news:
Salut, si les classeur sont ouverts... dim wbk as Workbook set wbk = Workbooks("nom_du_classeur") wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news:
Bonjour, Je ne maitrise pas suffisamment les macros. Je souhaiterais creer une macro qui me permette de formater (ex : telle
largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes
disant
qu'il faille aller dans tels ou tels classeurs... Merci d'avance Reda -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
Salut,
il suffit de les ouvrir et de les refermer
dim wbk as Workbook
set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls
.../...
wbk.Close True
si ce sont tous les classeurs d'un répertoire qui présentent une
particularité identifiable on peut scanner ce repertoire
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"reda" <reda@reda.fr> a écrit dans le message de news:
c14hee$h3v$1@news.tiscali.fr...
ok, je vais essayerde chercher pour voir comment faire avec des classeurs
fermés (car il y en a bcp)
"Pascal Engelmajer" <pascal.engelmajer@ilyapa_spam.net> a écrit dans le
message news: uljaQNw9DHA.2856@TK2MSFTNGP10.phx.gbl...
Salut,
si les classeur sont ouverts...
dim wbk as Workbook
set wbk = Workbooks("nom_du_classeur")
wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"reda" <reda@reda.fr> a écrit dans le message de news:
2004219-14519-594704@foorum.com...
Bonjour,
Je ne maitrise pas suffisamment les macros.
Je souhaiterais creer une macro qui me permette de formater (ex :
telle
largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les
en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de
codes
disant
qu'il faille aller dans tels ou tels classeurs...
Merci d'avance
Reda
--
Ce message a ete poste via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
Salut, il suffit de les ouvrir et de les refermer dim wbk as Workbook set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls .../... wbk.Close True si ce sont tous les classeurs d'un répertoire qui présentent une particularité identifiable on peut scanner ce repertoire -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news: c14hee$h3v$
ok, je vais essayerde chercher pour voir comment faire avec des classeurs fermés (car il y en a bcp)
"Pascal Engelmajer" a écrit dans le message news:
Salut, si les classeur sont ouverts... dim wbk as Workbook set wbk = Workbooks("nom_du_classeur") wbk.Sheets("nom_de_la_feuille").Range("X:X").ColumnWidth = 45
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news:
Bonjour, Je ne maitrise pas suffisamment les macros. Je souhaiterais creer une macro qui me permette de formater (ex : telle
largeur
de colonne pour telles colonnes, etc.) plusieurs classeurs dont les en-tetes de
colonnes sont identiques : je n'arrive pas a trouver les lignes de codes
disant
qu'il faille aller dans tels ou tels classeurs... Merci d'avance Reda -- Ce message a ete poste via la plateforme Web club-Internet.fr This message has been posted by the Web platform club-Internet.fr
http://forums.club-internet.fr/
reda
En effet, j'aurais dû y penser, on est obligé de les ouvrie et de les refermer ! Généralement ce sont des classseurs d'un même réperoire qui contiennent les mêmes données (donc, les colonnes sont + ou - pareils) : ce qui distingue un classeur d'un autre, c'est qu'ils concernent chacun une année différente. Comment faire pour scanner ce répertoire ?
il suffit de les ouvrir et de les refermer dim wbk as Workbook set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls .../... wbk.Close True si ce sont tous les classeurs d'un répertoire qui présentent une particularité identifiable on peut scanner ce repertoire
En effet, j'aurais dû y penser, on est obligé de les ouvrie et de les
refermer !
Généralement ce sont des classseurs d'un même réperoire qui contiennent les
mêmes données (donc, les colonnes sont + ou - pareils) : ce qui distingue un
classeur d'un autre, c'est qu'ils concernent chacun une année différente.
Comment faire pour scanner ce répertoire ?
il suffit de les ouvrir et de les refermer
dim wbk as Workbook
set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls
.../...
wbk.Close True
si ce sont tous les classeurs d'un répertoire qui présentent une
particularité identifiable on peut scanner ce repertoire
En effet, j'aurais dû y penser, on est obligé de les ouvrie et de les refermer ! Généralement ce sont des classseurs d'un même réperoire qui contiennent les mêmes données (donc, les colonnes sont + ou - pareils) : ce qui distingue un classeur d'un autre, c'est qu'ils concernent chacun une année différente. Comment faire pour scanner ce répertoire ?
il suffit de les ouvrir et de les refermer dim wbk as Workbook set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls .../... wbk.Close True si ce sont tous les classeurs d'un répertoire qui présentent une particularité identifiable on peut scanner ce repertoire
Pascal Engelmajer
Salut, Sub scanneFic() Dim fichier, rep, nomFic ' Renvoie le nom de fichier avec l'extension indiquée. Si plusieurs ' fichiers *.xls existent, le premier fichier trouvé est renvoyé. fichier = Dir("C:TEST*.XLS") Do Debug.Print fichier 'pour tester 'on a récupéré le nom du fichier ... fichier = Dir ' Appelle de nouveau Dir sans argument pour renvoyer le ' fichier *.XLS suivant dans le même dossier. Loop Until fichier = "" End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news: c175g5$b92$
En effet, j'aurais dû y penser, on est obligé de les ouvrie et de les refermer ! Généralement ce sont des classseurs d'un même réperoire qui contiennent les
mêmes données (donc, les colonnes sont + ou - pareils) : ce qui distingue un
classeur d'un autre, c'est qu'ils concernent chacun une année différente. Comment faire pour scanner ce répertoire ?
il suffit de les ouvrir et de les refermer dim wbk as Workbook set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls .../... wbk.Close True si ce sont tous les classeurs d'un répertoire qui présentent une particularité identifiable on peut scanner ce repertoire
Salut,
Sub scanneFic()
Dim fichier, rep, nomFic
' Renvoie le nom de fichier avec l'extension indiquée. Si plusieurs
' fichiers *.xls existent, le premier fichier trouvé est renvoyé.
fichier = Dir("C:TEST*.XLS")
Do
Debug.Print fichier 'pour tester
'on a récupéré le nom du fichier ...
fichier = Dir
' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.XLS suivant dans le même dossier.
Loop Until fichier = ""
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"reda" <reda@reda.fr> a écrit dans le message de news:
c175g5$b92$1@news.tiscali.fr...
En effet, j'aurais dû y penser, on est obligé de les ouvrie et de les
refermer !
Généralement ce sont des classseurs d'un même réperoire qui contiennent
les
mêmes données (donc, les colonnes sont + ou - pareils) : ce qui distingue
un
classeur d'un autre, c'est qu'ils concernent chacun une année différente.
Comment faire pour scanner ce répertoire ?
il suffit de les ouvrir et de les refermer
dim wbk as Workbook
set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls
.../...
wbk.Close True
si ce sont tous les classeurs d'un répertoire qui présentent une
particularité identifiable on peut scanner ce repertoire
Salut, Sub scanneFic() Dim fichier, rep, nomFic ' Renvoie le nom de fichier avec l'extension indiquée. Si plusieurs ' fichiers *.xls existent, le premier fichier trouvé est renvoyé. fichier = Dir("C:TEST*.XLS") Do Debug.Print fichier 'pour tester 'on a récupéré le nom du fichier ... fichier = Dir ' Appelle de nouveau Dir sans argument pour renvoyer le ' fichier *.XLS suivant dans le même dossier. Loop Until fichier = "" End Sub
-- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "reda" a écrit dans le message de news: c175g5$b92$
En effet, j'aurais dû y penser, on est obligé de les ouvrie et de les refermer ! Généralement ce sont des classseurs d'un même réperoire qui contiennent les
mêmes données (donc, les colonnes sont + ou - pareils) : ce qui distingue un
classeur d'un autre, c'est qu'ils concernent chacun une année différente. Comment faire pour scanner ce répertoire ?
il suffit de les ouvrir et de les refermer dim wbk as Workbook set wbk = Workbooks.open ("chemin" & "nom_du_classeur")' avec .xls .../... wbk.Close True si ce sont tous les classeurs d'un répertoire qui présentent une particularité identifiable on peut scanner ce repertoire
