Recherche:

Je viens de tester ton dernier code, tant qu'à faire.
J'ai 2 soucis :
1/ J'ai du remplacer Math.Floor( par .Floor.

Au niveau fonctionnel il y a un bug.
Les colonnes de titres de AA a AZ sont...

Top. Encore merci

Ca marche impec. Un immense merci. je cloture.

yes, c'est ca qu'il me faut. merciiiii Je teste direct.

C'est effectivement l'idéal, mais je ne parviens pas à mettre la main sur la doc de cet objet OLE ou je pourrais trouver comment remplacer la méthode RANGE par quelque-chose comme CELL

Bonjour,
j'ai récupéré un code d'export de AdoDataset vers excel qui fait appel à une function qui ne supporte que 26 colonnes.
L'appel a cette fonction me sert a alimenter la première ligne de la...

Assure moi que tu as bien un code qui ressemble à ceci :

Function ConectReporte(Feuille As Worksheet, Vfilas As Integer, Optional FechaC As Variant, Optional FechaV As Variant, _
Optional...

Vu que ton parametre est "OPTIONAL", as tu essayé quelquechose du genre :

If Not IsMissing(TpoDoc) Then
Set prm(7) = Con.Param("TpoDoc", 200, 1, 15, TpoDoc)
Else
Set Prm(7) = Null


en...

Si vous utilisez comme moi le code CDO donné par rdurupt (Salut !) ou similaire, et que vous l'utilisez en boucle, vous pourriez faire face à un blocage total du code sur

.Send 'envoi du message...

Bonjour,
ça ne serait pas plutôt le range qui est mauvais :


Sheets("Données").Range("A:R").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

Il faut écrire par exemple
...

Oui, mais comme la Sheet est aussi variable, j'ai également besoin de l'élement (0) du split, sans le =. :weird:

Je viens d'essayer, mais comme je le craignais ca coince ici

.Range(D400_Row & LIdx).Value = Workbooks(Price_Workbook).Sheets(Exploded(0)).Range(Exploded(1)).Offset(0, 1).Value
...

Bonjour,
merci pour ta réponse.
Les variables D400_Row, Usin_Row ... contiennent le nom de la colonne ou stocker le résultat.


D400_Row = "Q"
Usin_Row = "R"
Pvc_Row = "S"

J'ai mis cela en...

Salut,
tu peux simplifier ton code

en remplaçant ceci

Sheets("Modèle").Visible = True
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Help ME!").Select ...

Bonjour,
dans une feuille excel recapitulative Pricelist.Table, les cellules d'un tableau font référence à des prix calculés qui se trouvent dans différentes feuilles du meme fichier.

exemple :...

Oui, j'ai aussi essayé la réparation et tous les fix de Microsoft que j'ai trouvé.

Sans effet.

Mais je vais encore chercher de ce côte.

Quelle cata :aie:

Bonjour j'ai exactement le même problème sur 3 pcs, et je n'arrive pas à en être maître.

Nettoyages effectués
Tous les fichiers *.exd ont été supprimé et le SP2 de Office2010 à été appliqué si...

Bonjour Kiki,
merci beaucoup pour le coup de pouce.
je confirme que ta solution fonctionne parfaitement pour WIN7 64 bits avec Office 2014 (32 bits).

Excellente journée.

Salut,
parce que je travaille depuis Access ou je gère des modèles de documents Word pour differentes entités.
Il est pratique de voir les signets d'un modèle dans l'ordre pour vérifier que ce...

Ca fonctionne comme ceci, mais c'est assez fastidieux :

' List Bookmarks
List_Bkm = ""
Bookm_Count = 0

'Get Bookmarks
For Each bkm In m_objdoc.bookmarks
...

Bonjour,
je cherche à récupérer la liste des signets d'un modèle, ce que je parviens à faire par ordre alphabétique , mais triée par emplacement comme le permet word (Insertion -> Signet -> Trier...

Merci pour l'info Robert.:ccool:

Bonjour,
on peut aller encore plus loin en constituant un fichier excel (par exemple) qui contiendrait les scripts VBA à appliquer après export vers excel des données.

Ceci donne une liberté...

Bonjour,

un exemple d'imports multiples sur la même page ici

Bonne journée.

Merci Eric,
c'est exactement vers cela que je me dirigeais.
Ca fonctionne parfaitement.:ave: