Discussion :

[Heureux-oli]

Salut,
Tu as le choix d'ouvrir les classeurs Excel les uns après les autres, ou de tous les ouvrir ensemble.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim xlApp as Excel.application
Dim xlWB1 as Excel.WorkBook
Dim xlWB2 As Excel.WorkBook
 
set xlApp = New Excel.Application
 
Set xlWB1 = xlApp.WorkBooks.Open(monfichier1)
Set xlWB2 = xlApp.WorkBooks.Open(monfichier2)

[Etienne76]

Ca marche

Apres comment fais tu pour depuis la boucle For Each mettre dans une cellule qui s'incremente toute seule d'un colonne a chaque passage?

[Heureux-oli]

Salut,

Le plus facile est une variable qui va s'incrémenter seule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim intI as Integer
 
For each ...
intI = intI + 1
 
Next

[Etienne76]

Je me suis mal exprimé, en faite je voudrais que les valeurs de la premiere boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each myFF In ActiveDocument.FormFields

aillent directement dans un tableau Excel ou la première valeur se mettrait dans A2 et la deuxième dans B2 C2 D2 E2 et que pour le deuxième formulaire ca change en A3 B3 C3 D3 ...

Je ne vois pas comment faire pour l'appel d'excel ca marche avec les références sauf que je n'arrive pas à faire fonctionner une boite de dialogue

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Excel.Application.FileDialog (msoFileDialogOpen)

Je pense que je dois pas être bien loin...

En tout cas merci de tes précieux conseils je commence a vraiment apprécié le VBA

[Etienne76]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
'Option Explicit
Sub Test()
Dim objtable As Table
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
'Dim Feuill1 As Excel.Worksheets
Dim myFF As Formfield
 
'Set xlApp = New Excel.Application
            xlApp.Visible = True
        With xlApp.FileDialog(msoFileDialogOpen)
            .AllowMultiSelect = True
            .Show
            xlBook = .SelectedItems
            xlSheet = xlBook(Feuill1)
            MsgBox .SelectedItems(xlSheet)
End With
 'SUB Formfield()
 
'For Each myFF In ActiveDocument.FormFields
'If myFF.CheckBox Then
'If myFF.Result Then myFF.Name = xlSheet.Range(Cells(1, 1))
'End If
'If myFF.TextInput Then
'MsgBox myFF.Result
'End If
'Next myFF
End Sub

J'en suis a peu pres la ... erreur 91

[Heureux-oli]

Salut,

Il suffit d'aller sur la première ligne vide.

je pense que c'est UsedRange, mais Excel n'est pas mon fort.

[Etienne76]

Pense tu que le sujet peux etre déplacé dans Excel pour la finalisation? J'ai essayé en cherchant dans l'aide mais le choix de la Cellule Feuille et Classeur je capte pas trop trop alors du coup ca marche pas bien

[Heureux-oli]

Salut,

Pose la question dans Excel pour savoir comment récupérer la première ligne vide d'une feuille de calcul.