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 Copie formats lignes et colonnes

Copie formats lignes et colonnes

5 réponses
Avatar
LAFORCADE
Bonjour à tous

Voila :
J'ai crée un feuille "BON DE COMMANDE". Cette feuille, je l'envoie par mail
à un fournisseur. Mais le format de lignes et colonnes n'est pas pris en
compte.

Comment faire pour que la feuille envoyée en e-mail garde les formats des
lignes et colonnes ?

Merci
Signaler un problème avec ce contenu

5 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
LAFORCADE
Pour compléter ma demande, ma question réfère à la macro suivante :

Sub validation()
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub



Bonjour à tous

Voila :
J'ai crée un feuille "BON DE COMMANDE". Cette feuille, je l'envoie par mail
à un fournisseur. Mais le format de lignes et colonnes n'est pas pris en
compte.

Comment faire pour que la feuille envoyée en e-mail garde les formats des
lignes et colonnes ?

Merci





Avatar
Daniel
Bonsoir.
Essaie comme ça :

Sub validation()
Dim c As Range
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
With ThisWorkbook.Sheets("BON DE COMMANDE")
For Each c In Range("A1:G1")
c.ColumnWidth = .Cells(1, c.Column).ColumnWidth
Next c
For Each c In Range("A1:A38")
c.RowHeight = .Cells(c.Row, 1).RowHeight
Next c
End With
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub

Cordialement.
Daniel
"LAFORCADE" a écrit dans le message de
news:
Pour compléter ma demande, ma question réfère à la macro suivante :

Sub validation()
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub



Bonjour à tous

Voila :
J'ai crée un feuille "BON DE COMMANDE". Cette feuille, je l'envoie par
mail
à un fournisseur. Mais le format de lignes et colonnes n'est pas pris en
compte.

Comment faire pour que la feuille envoyée en e-mail garde les formats des
lignes et colonnes ?

Merci







Avatar
LAFORCADE
Daniel, merci beaucoup !

Encore une fois (parce que ce n'est pas la première fois !!!), tu m'a
apporté une solution à mon problème avec efficacité, rapidité, précision et
disponibilité !!!

Chapeau !!!

Une petite précision pour combler (un peu) mon ignorance : "c" ça veut dire
quoi ??


Bonsoir.
Essaie comme ça :

Sub validation()
Dim c As Range
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
With ThisWorkbook.Sheets("BON DE COMMANDE")
For Each c In Range("A1:G1")
c.ColumnWidth = .Cells(1, c.Column).ColumnWidth
Next c
For Each c In Range("A1:A38")
c.RowHeight = .Cells(c.Row, 1).RowHeight
Next c
End With
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub

Cordialement.
Daniel
"LAFORCADE" a écrit dans le message de
news:
Pour compléter ma demande, ma question réfère à la macro suivante :

Sub validation()
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub



Bonjour à tous

Voila :
J'ai crée un feuille "BON DE COMMANDE". Cette feuille, je l'envoie par
mail
à un fournisseur. Mais le format de lignes et colonnes n'est pas pris en
compte.

Comment faire pour que la feuille envoyée en e-mail garde les formats des
lignes et colonnes ?

Merci












Avatar
Daniel
"c" est défini comme une plage de cellule (Dim c As Range)
Dans la syntaxe "For Each c In Range...", c est considéré comme une cellule.
Daniel
"LAFORCADE" a écrit dans le message de
news:
Daniel, merci beaucoup !

Encore une fois (parce que ce n'est pas la première fois !!!), tu m'a
apporté une solution à mon problème avec efficacité, rapidité, précision
et
disponibilité !!!

Chapeau !!!

Une petite précision pour combler (un peu) mon ignorance : "c" ça veut
dire
quoi ??


Bonsoir.
Essaie comme ça :

Sub validation()
Dim c As Range
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
With ThisWorkbook.Sheets("BON DE COMMANDE")
For Each c In Range("A1:G1")
c.ColumnWidth = .Cells(1, c.Column).ColumnWidth
Next c
For Each c In Range("A1:A38")
c.RowHeight = .Cells(c.Row, 1).RowHeight
Next c
End With
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub

Cordialement.
Daniel
"LAFORCADE" a écrit dans le message
de
news:
Pour compléter ma demande, ma question réfère à la macro suivante :

Sub validation()
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub



Bonjour à tous

Voila :
J'ai crée un feuille "BON DE COMMANDE". Cette feuille, je l'envoie par
mail
à un fournisseur. Mais le format de lignes et colonnes n'est pas pris
en
compte.

Comment faire pour que la feuille envoyée en e-mail garde les formats
des
lignes et colonnes ?

Merci














Avatar
LAFORCADE
OK Daniel, c'est clair

Encore merci !!
A bientôt
Cordialement,
Laforcade


"c" est défini comme une plage de cellule (Dim c As Range)
Dans la syntaxe "For Each c In Range...", c est considéré comme une cellule.
Daniel
"LAFORCADE" a écrit dans le message de
news:
Daniel, merci beaucoup !

Encore une fois (parce que ce n'est pas la première fois !!!), tu m'a
apporté une solution à mon problème avec efficacité, rapidité, précision
et
disponibilité !!!

Chapeau !!!

Une petite précision pour combler (un peu) mon ignorance : "c" ça veut
dire
quoi ??


Bonsoir.
Essaie comme ça :

Sub validation()
Dim c As Range
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
With ThisWorkbook.Sheets("BON DE COMMANDE")
For Each c In Range("A1:G1")
c.ColumnWidth = .Cells(1, c.Column).ColumnWidth
Next c
For Each c In Range("A1:A38")
c.RowHeight = .Cells(c.Row, 1).RowHeight
Next c
End With
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub

Cordialement.
Daniel
"LAFORCADE" a écrit dans le message
de
news:
Pour compléter ma demande, ma question réfère à la macro suivante :

Sub validation()
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
ThisWorkbook.Sheets("BON DE COMMANDE").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "", "BON DE COMMANDE"
ActiveWorkbook.Close False
End Sub



Bonjour à tous

Voila :
J'ai crée un feuille "BON DE COMMANDE". Cette feuille, je l'envoie par
mail
à un fournisseur. Mais le format de lignes et colonnes n'est pas pris
en
compte.

Comment faire pour que la feuille envoyée en e-mail garde les formats
des
lignes et colonnes ?

Merci