Recherche:

ça maaaaarche !
JPhi, tu es fantastique !!!

Voici mon code :


ActiveSheet.PageSetup.Orientation = xlPortrait ' teste le niveau de zoom, tout sur 1 page, en mode portrait
...

ahaaa... ça sent bon ça ...
Je vais tester (mais pas tout de suite) et je te dis ...

le "Excel4" au milieu me gêne ... mais il y a là une idée quand même ... peut-être ?

Bjr JPhi,
Désolée, mais ça ne marche pas ...:(



Sub hhe_mise_en_page()
With ActiveSheet.PageSetup
(.....)
.Zoom = False
.FitToPagesWide = 1

Merci d'avoir répondu

Bien sûr que j'ai déjà testé l'enregistreur de macros dans tous les sens

activesheet.setup.zoom = false
.FitToPagesWide = 1
.FitToPagesTall = 1
(je n'ai pas mis le...

Bonjour à tous,
Avant d'imprimer, je vérifie avec la prévisualisation, quel est le format le plus lisible : portrait ou paysage.
Manuellement : je fais un ajustement sur 1 page en mode portrait, je...

Coucou,

Désolée d'avoir tardé à répondre, j'étais accaparée par d'autres sujets.

Mais bien sûuuuuuur !...
Mon erreur vient du fait que je mettais le chemin complet dans la désignation du...

@ Pierre
J'ai fait toutes mes tentatives en ayant au préalable ouvert le fichier "source", soit dans Excel 365, soit dans Excel 2010 (je savais que c'était plus simple avec le fichier ouvert). Sans...

Coucou,

Comme indiqué dans mon msg initial, j'ai bien essayé, mais KO aussi ...
"W:\TestMalhorne\Source Malhorne TestShPT.xlsx"
où W:\ est le lecteur réseau connecté avec le chemin du SP
...

A force de trouver des solutions de contournement à mes pbs, faute de mieux, j'ai construit une usine à gaz ! mais ça marche ... pas très beau, pas très rationnel ... peut-être que quand je serai...

ça n'a pas transporté les foules ... il est largement temps de cloturer.

Bonjour à tous,

J'ai beau tourner le truc dans tous les sens depuis des jours et des jours, je n'y arrive pas !

WIN7Pro - Excel 2010 - Sharepoint online 365

Je voudrais récupérer une valeur...

Bonjour,

J'ai créé un mappage personnalisé d'exportation vers Excel.
Je voudrais que mes collègues puissent exporter selon la même structure.
Je n'arrive pas à trouver le fichier des paramètres...

Coucou,

j'ai suivi le conseil de CDBE : tester sur un classeur vierge + reconstitution à minima de ma base.
Je confirme : c'est bien la ligne de commande
ActiveWorkbook.Names(CodeNameLign &...

Coucou,

Quelques pistes de solutions avant le cloturer ce sujet qui devient trop vieux ...

J'ai réussi à empêcher le "enregistrer sous" (j'ai du trouver ce bout de code dans un forum. ça...

Re-

La galère ! mon fichier est par terre !
Je ne sais pas ce qui s'est passé, pourquoi, comment ... toutes mes formules sont "devenues folles", ne correspondent plus à rien, sont en référence...

Coucou CDBE et Philippe,

(rentrée un peu tard hier soir, j'ai préféré "prendre des forces" plutôt que de m'y mettre tout de suite, parce que je sais que j'y aurai passé la nuit ...)

Je viens...

Coucou,

merci pour cette prompte réponse et cette suggestion.
pas le temps tout de suite, mais j'essaye ce soir et je te dis

ça n'expliquera pas pourquoi ces apostrophes apparaissent et me...

Bonjour à tous,

Trop bizarre ... J'essaye d'insérer une ligne dans un tableau et de donner un nom à cette nouvelle ligne, tout ça en vba.
insertion ligne ok
Par contre im-pos-si-ble de nommer...

Coucou Joe !
(contente de te retrouver)

Tu as raison ....

1) J'ai fait des tests sur ta super ligne de code pour aller au bout et être sure de comprendre le concept
De plus, ta ligne (avec 0)...

ça maaaarche !

For i = 1 To UBound(TabloGeneral, 1)
.Cells(1 + i, 5).Resize(LBound(TabloGeneral, 1), 3).Value = Application.Index(TabloGeneral, i, Array(1, 4, 3))
...

même pas possible de faire une boucle : chaque i ecrase la boucle précédente (et chaque boucle copie 3 fois la ième ligne correspondant au Array)
... mais ça, c'est à cause du Resize (Ubound...) ......

trouvé !... mais pas trouvé ... pffff
D'après le mode d'emploi de la methode Index
https://msdn.microsoft.com/en-us/library/office/ff197581.aspx
on peut restituer une ligne entière (param ligne à...

Gloups ...

.Cells(1, 1).Resize(UBound(TabloGeneral, 1), 3).Value = Application.Index(TabloGeneral, 0, Array(1, 4, 3))
' copie 3 fois la 1ère ligne (avec...

Coucou Joe

Trop fooooort, ton code !
pas encore testé, mais il est superbe (je me sens une extra-terrestre à m'extasier comme ça devant des lignes de code ... mais il y en a bien qui s'extasient...

Coucou,

Je croyais y être presque ... mais y'a un truc qui coince et qui m'échappe

Bien sûr le tuto de SilkyRoad est sur ma table de chevet en ce moment, stabilobossé et annoté de toutes parts....