Recherche:

Donc tu conseilles de piloter Excel à partir d'Access et non l'inverse ?

Bonjour,

comme ceci


Sheets("evolution").range("A2:IV65536").clearcontents
Personnellement je n'utilise jamais Clearcontents j'écris tout simplement "" dans la cellule ce qui la vide.

...

Je savais pas. Ca accélère vraiment le code ?

Bonjour,
Pour avoir dejà travaillé sur le même genre de problèmatique, je te conseille de procéder autrement.
Je suppose que les données exportées sur Excel sont à l'origine le résultat d'une...

:lol: Il faudrait plus d'une vie pour compter jusque là.
Mais c'est vrai que l'on recherche tous la vitesse :mrgreen:

Le gel de l'écran doit malgé tout te faire gagner un temps fou.

Peut être...

Bonjour à tous,

J'ai résolu mon problème en rajoutant une pause dans ma macro. Ca me permet d'avoir le message m'invitant à imprimer ou non malgré que les marges soient en dehors de la zone...

Bonjour,

Je ne sais pas si tu as besoin de voir le chrono évoluer à l'écran ou non si tel n'est pas le cas je te conseille de placer ce code au début de ton code :


...

J'essaie ca dès lundi. Ce que je n'arrive pas à comprendre, c'est que chez moi je n'ai jamais de message me disant que mes marges sont en dehors de la section (je vous donnerai le message d'erreur...

Bonsoir,

Il y a quelques temps je postais pour obtenir un code me permettant d'imprimer une page en particulier d'un fichier word à partir d'excel. J'ai obtenu ce code :


...
Case "doc" ...

Merci Michel. J'ai fait tourner la macro aujourd'hui, un jeu d'enfant :mouarf:

Vraiment bien ce code. Peux tu me dire la différence entre :
'Print #1, Rs.GetString(, 500, vbTab, vbCrLf, "");
Print #1, Rs.GetString(, 600, ";", vbCrLf, "");

Dans mon cas je...

Merci pour le code Michel. Pour te répondre bbil en fait j'ai besoin d'ouvrir environ 80 fichiers excel pour ensuite les enregistrer en csv. Je teste ta macro dès que je peux Michel je suis d'apéro...

Bonjour,

Désolé si la question a deja été posée, je n'ai pas trouvé.

Je cherche un début de macro qui par exemple ouvre tour à tour tous les fichiers excel se trouvant dans un même dossier....

Tu peux également faire une somme si comme dans le classeur ci-joint.

1868

Très pratique cette fonction :D

Geoffray

Désolé je n'avais pas vu
Geoffray

Bonjour,

Je souhaiterais ne pas avoir de son pour mes Msgbox



MsgBox("Voulez-vous insérer une feuille vierge ?", vbYesNo)


Quelle commande dois-je rajouter ?

Effectivement ca marche avec :mouarf:



Doc.PrintOut, Range:=4, Pages:=CStr(NumPage)

Bonjour,

J'ai testé


et



les deux ne marchent pas. Mais la solution de bbil me convient tout à fait.

Super :mouarf:


Doc.PrintOut Range:=4, Pages:=Chr(34) & NumPage & Chr(34)


Ne marche pas et me renvoie une erreur 5441

Par contre

Comme dit plus haut j'ai bien fait



Doc.PrintOut Range:=3


Mon document word s'ouvre bien et la page souhaitée est correctement imprimée quand je fais ca

Ca me renvoit une erreur d'éxécution 424 : objet requis, dommage !

Ca signigifie quoi Cstr sinon ?

Salut,

Tu peux également supprimer les valeurs de cette manière :

Worksheets("Prévisionnel").Range("I2:K46").value = ""

A mon avis c'est plus léger ;)

Bonne soirée Geoffray

Bonsoir,

Dès lors que je remplace le "2" par ma variable qui s'appelle NumPage, mon code plante.



Dim w
Set w = CreateObject("Word.Application")
.
.

Franchement pas très sympa, d'autant que les up intempestifs n'étaient pas voulu je n'avais pas vu que tu avais posté dans mon message d'où les up intempestifs.

Sur quoi je butais :


Problème...

Bonsoir,

Tout d'abord je risque surement de decevoir Zazaraignée et Skilkyroad qui m'ont gentillement aidé hier pour un post plus ou moins similaire ...