Contenu récent par errog

  1. E

    ecriture ds word et .Selection

    Re : ecriture ds word et .Selection Bonsoir, J'ai résolu mon pb tout seul comme un grand : je n'avais pas vu que mes instructions en ...Selection se trouvaient ds une autre routine Le changement Dim > Public a résolu le pb Désolé pour le dérangement.:D
  2. E

    ecriture ds word et .Selection

    Bonsoir, Avec une macro excel , j'ouvre un .doc et j'écris au niveau d'un signet ...... Dim DocWord As Word.Document Dim AppWord As Word.Application Set AppWord = New Word.Application Set DocWord = AppWord.Documents.Open("D:\docu.doc") DocWord.Bookmarks("signet1").Range.Text = "blabla"...
  3. E

    Format monétaire / nb de décimales

    Re : Format monétaire / nb de décimales Merci Pierrot, ça marche :) ( je suis bien content d'avoir passé une heure a chercher et a essayer de contourner le pb :( )
  4. E

    Format monétaire / nb de décimales

    Bonjour, J'ai deux pbs : *Je dispose d'une feuille dont le contenu est au format monétaire 2 décimales. Je voudrais (par une macro enregistree ds ce classeur) écrire le contenu de plusieurs cellules dans un document word à differents emplacement repérés par des signets ( ou des champs...
  5. E

    vba office

    Re : vba office Merci pour les liens Eric
  6. E

    excel>word

    Re : excel>word Rebonjour Avec le code précédent j'ai ceci : Nombre d'arguments incorrect ou affectation de propriété En fait ce pb est peut etre spécifique à word ( en faisant une recherche sur les bookmarks, ça doit pouvoir se résoudre..) J'ai une question plus générale : Si je...
  7. E

    excel>word

    Re : excel>word Bonjour Pourtant le signet existe ( n'étant pas masqué, je me suis assuré qu'il existe bien sous le nom signet1) Que faire ? Je vais quand meme essayer ton code pour déceler une autre erreur éventuelle. Merci pierreJean
  8. E

    excel>word

    Bonjour, je voudrais insérer dans un signet de docu word le contenu d'une cellule d'un document excel a l'aide de la macro suivante contenu ds un classeur. Sub Essai() 'necessite d'activer la reference Microsoft Word xx.x Object Library Dim DocWord As Word.Document Dim AppWord As...
  9. E

    vba office

    Bonjour, On trouve pas mal d'infos ( forum ou livre ) sur vba excel, vba word... Existe-il un bouquin (ou un forum) ciblé sur vba et applications office qui traite de la communication entre ces applications ( je voudrais développer des codes qui utilisent a la fois excel, word et peut etre...
  10. E

    tableau vide

    Re : tableau vide Bonjour Le tableau P posait eneffet pb. Merci
  11. E

    tableau vide

    Bonsoir, J'ai créé un tableau à l'aide de boucles imbriquées For i = 1 To NB For J = 1 To N(i) For K = 1 To M(i, J) For L = 1 To P(i, J, K) ...écriture de C(i, J, K, L)......... Next L Next K Next J Next i Comme par la suite un pb apparait, j'ai testé juste apres le code...
  12. E

    erreur automation

    Re : erreur automation Rebonsoir En fait j'avais supprimé l'une des 2 instructions entre then et End if. Je pensais etre a l'abri de ce genre de C... et j'ai cherché pendant pas mal de temps une erreur plus noble. MERCI Wilfried!!!
  13. E

    erreur automation

    Bonsoir, Lors de l'utilisation d'une listbox avec un code classique du genre With USF_1.ListBox1 For i = 0 To .ListCount - 1 If .Selected(i) = True Then numero = i End If Next i End With J'ai le message suivant : erreur automation ; l'objet invoqué s'est déconnecté de...
  14. E

    Rowsource

    Re : Rowsource Merci beaucoup ;) ( et je retourne de ce pas à la FAQ )
  15. E

    Rowsource

    Bonsoir, Je voudrais réécrire le code suivant .. USF_LIBELLE.ListBox1.RowSource = "A1:A10" USF_LIBELLE.ListBox2.RowSource = "B1:B10" USF_LIBELLE.ListBox3.RowSource = "C1:C10" ........... avec une boucle For i = 1 to 10 USF_LIBELLE.Controls("ListBox" &...