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
Garette
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du document dans les colonnes A et B. Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le document n'a jamais été imprimé.
Sub AfficheProprietes() Sheets.Add On Error Resume Next Y = 1 For Each X In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = X.Name Cells(Y, 2).Value = X.Value Y = Y + 1 Next Columns("A:B").EntireColumn.AutoFit End Sub
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du
document dans les colonnes A et B.
Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le
document n'a jamais été imprimé.
Sub AfficheProprietes()
Sheets.Add
On Error Resume Next
Y = 1
For Each X In ActiveWorkbook.BuiltinDocumentProperties
Cells(Y, 1).Value = X.Name
Cells(Y, 2).Value = X.Value
Y = Y + 1
Next
Columns("A:B").EntireColumn.AutoFit
End Sub
La macro suivante insere une nouvelle feuille et affiche les proprietés du document dans les colonnes A et B. Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le document n'a jamais été imprimé.
Sub AfficheProprietes() Sheets.Add On Error Resume Next Y = 1 For Each X In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = X.Name Cells(Y, 2).Value = X.Value Y = Y + 1 Next Columns("A:B").EntireColumn.AutoFit End Sub
Club
Bonsoir,
N'y a t l pas une fonctionnalité plus simple qu'une macro !
-- Merci de votre aide et à bientôt,
Clue "Garette" a écrit dans le message de news:
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du document dans les colonnes A et B. Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le document n'a jamais été imprimé.
Sub AfficheProprietes() Sheets.Add On Error Resume Next Y = 1 For Each X In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = X.Name Cells(Y, 2).Value = X.Value Y = Y + 1 Next Columns("A:B").EntireColumn.AutoFit End Sub
Bonsoir,
N'y a t l pas une fonctionnalité plus simple qu'une macro !
--
Merci de votre aide et à bientôt,
Clue
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
e0ZCZOoDHHA.3212@TK2MSFTNGP04.phx.gbl...
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du
document dans les colonnes A et B.
Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le
document n'a jamais été imprimé.
Sub AfficheProprietes()
Sheets.Add
On Error Resume Next
Y = 1
For Each X In ActiveWorkbook.BuiltinDocumentProperties
Cells(Y, 1).Value = X.Name
Cells(Y, 2).Value = X.Value
Y = Y + 1
Next
Columns("A:B").EntireColumn.AutoFit
End Sub
N'y a t l pas une fonctionnalité plus simple qu'une macro !
-- Merci de votre aide et à bientôt,
Clue "Garette" a écrit dans le message de news:
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du document dans les colonnes A et B. Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le document n'a jamais été imprimé.
Sub AfficheProprietes() Sheets.Add On Error Resume Next Y = 1 For Each X In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = X.Name Cells(Y, 2).Value = X.Value Y = Y + 1 Next Columns("A:B").EntireColumn.AutoFit End Sub
jps
ben si, Club, tu fais Fichier Propriétés et tu recopies tout ce qui est écrit... jps
" Club" a écrit dans le message de news: 45660e94$0$2265$
Bonsoir,
N'y a t l pas une fonctionnalité plus simple qu'une macro !
-- Merci de votre aide et à bientôt,
Clue "Garette" a écrit dans le message de news:
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du document dans les colonnes A et B. Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le document n'a jamais été imprimé.
Sub AfficheProprietes() Sheets.Add On Error Resume Next Y = 1 For Each X In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = X.Name Cells(Y, 2).Value = X.Value Y = Y + 1 Next Columns("A:B").EntireColumn.AutoFit End Sub
ben si, Club, tu fais Fichier Propriétés et tu recopies tout ce qui est
écrit...
jps
" Club" <pub.info@free.fr> a écrit dans le message de news:
45660e94$0$2265$426a34cc@news.free.fr...
Bonsoir,
N'y a t l pas une fonctionnalité plus simple qu'une macro !
--
Merci de votre aide et à bientôt,
Clue
"Garette" <nospam.Garette@hotmail.com> a écrit dans le message de news:
e0ZCZOoDHHA.3212@TK2MSFTNGP04.phx.gbl...
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés
du document dans les colonnes A et B.
Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le
document n'a jamais été imprimé.
Sub AfficheProprietes()
Sheets.Add
On Error Resume Next
Y = 1
For Each X In ActiveWorkbook.BuiltinDocumentProperties
Cells(Y, 1).Value = X.Name
Cells(Y, 2).Value = X.Value
Y = Y + 1
Next
Columns("A:B").EntireColumn.AutoFit
End Sub
ben si, Club, tu fais Fichier Propriétés et tu recopies tout ce qui est écrit... jps
" Club" a écrit dans le message de news: 45660e94$0$2265$
Bonsoir,
N'y a t l pas une fonctionnalité plus simple qu'une macro !
-- Merci de votre aide et à bientôt,
Clue "Garette" a écrit dans le message de news:
Bonsoir,
La macro suivante insere une nouvelle feuille et affiche les proprietés du document dans les colonnes A et B. Le On Error Resume Next est à géré. En effet une erreur est renvoyé si le document n'a jamais été imprimé.
Sub AfficheProprietes() Sheets.Add On Error Resume Next Y = 1 For Each X In ActiveWorkbook.BuiltinDocumentProperties Cells(Y, 1).Value = X.Name Cells(Y, 2).Value = X.Value Y = Y + 1 Next Columns("A:B").EntireColumn.AutoFit End Sub