Bonsoir à tout le forum
Voilà mon problème: J'ai un fichier contenant 3 feuilles que je dois envoyer à plusieurs personnes. Quand le travail sera fini, ces personnes devront extraire Les 3 feuilles. Cependant, dans une feuille, une plage de cellules comporte des arguments qui feront pour certains plus de 255 caractères. Et donc en extrayant la feuille, les arguments seront tronqués. J'ai donc bien compris qu'il fallait copier les cellules et non la feuille pour voir la totalité des arguments. Voici la macro:
Cependant comment faire pour éviter de citer le classeur qui n'aura plus pour eux le même numéro.
Encore merci de m'avoir suivi.
Voilà mon problème: J'ai un fichier contenant 3 feuilles que je dois envoyer à plusieurs personnes. Quand le travail sera fini, ces personnes devront extraire Les 3 feuilles. Cependant, dans une feuille, une plage de cellules comporte des arguments qui feront pour certains plus de 255 caractères. Et donc en extrayant la feuille, les arguments seront tronqués. J'ai donc bien compris qu'il fallait copier les cellules et non la feuille pour voir la totalité des arguments. Voici la macro:
Code:
Sub Macro1()
'
'
Workbooks.Add
Windows("Classeur1").Activate
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Cells.Select
ActiveSheet.Paste
Range("A7").Select
Sheets("Feuil2").Select
Windows("Classeur1").Activate
Application.CutCopyMode = False
Range("A8").Select
Sheets("Demande").Select
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Feuil3").Select
Windows("Classeur1").Activate
Application.CutCopyMode = False
Range("A1").Select
Sheets("Récap").Select
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Windows("Classeur1").Activate
Application.CutCopyMode = False
Range("A1").Select
Windows("Classeur2").Activate
ActiveWorkbook.Colors = Workbooks("Classeur1").Colors
Sheets("Feuil1").Select
Windows("Classeur2").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Encore merci de m'avoir suivi.