Discussion :

[LAETIAZ]

Bonjour à tous j'aimerais savoir si quelqu'un connait si par vba on pourrait d'après un fichier excel récupérer les données de ce dernier afin de les mettre sous forme de requêtes sql dans un fichier word merci d'avance pour l'aide que vous m'apporterez

[dadavyvy]

Comme qqch dans ce genre là?

[LAETIAZ]

Merci pour votre réponse Oui c'est ca exactement sauf que mon fichier a plusieurs feuilles et je ne s'est pas du tout comment je pourrais procéder?

[LAETIAZ]

Bonjour je suis dans un fichier excel et j'aimerais pouvoir en vba créer un fichier word dans lequel à partir des données des cellules pouvoir les récupérer et les mettre dans ce genre de phrase insert into et values voilà ce que j'ai tenté mais cela ne fonctionne pas

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
 
.... 
Dim PASCAL As Excel.Sheets 
Dim wordApp As Word.Application 
Dim wordDoc As Word.Document 
Dim VM_Vendeur As String 
Dim VM_Mois As String 
Dim VM_Jour As String 
Dim VM_NbVehicules As String 
Dim VM_NbServices As String 
 
 
 
Set wordApp = CreateObject("WordApplication") 
wordApp.Documents.Add.Path 
Worksheets("PASCAL").Select 
wordApp.Selection.typetext "INSERT INTO ventemensuelle (VM_Vendeur, VM_Mois, VM_Jour, VM_NbVehicules, VM_NbServices) VALUES (" & Cells(3, 2).Value & Cells(4, 7).Value & "30" & Cells(18, 7).Value & Cells(20, 7) & ")" & vbCrLf 
 
End Sub

[dadavyvy]

Enfin tu nous montres ton code... Par contre tu ne dis pas ou se situe le blocage. M'enfin bon...
Tu n'as pas bien du lire l'exemple (l'autre topic)...

Code :

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

1
2
3
4
5
6
7
Dim wordApp As Word.Application 
Dim wordDoc As Word.Document 
 
Set wordApp = CreateObject("WordApplication") 
wordApp.Documents.Add.Path 
Worksheets("PASCAL").Select 
wordApp.Selection.typetext "INSERT ..."

1/ Si tu déclares Word.Application (avec la référence Microsoft Word x.x Object Library), tu n'as pas besoin d'un CreateObject, il suffit de :

Code :

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

1
2
3
4
5
6
    Dim wordApp As Word.Application
    Set wordApp = New Word.Application ' Crée une nouvelle instance de Word
    wordApp.visible = True ' Sinon tu ne verras pas ton appli Word
    '(...)
    wordApp.Quit
    Set wordApp = Nothing

De toute facon la syntaxe exacte est : CreateObject("Word.Application") (avec un ".")
2/ wordApp.Documents.Add.Path n'est pas du tout correct. Il suffit de regarder l'exemple :

Code :

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

Set WordDoc = WordApp.Documents.Add

Avec ca, ça devrait tourner.

[LAETIAZ]

En fait cela me met une erreur ici: Dim wordApp As Word.Application (type défini par l'utilisateur non défini)