Generer Par [vba-e]

Version imprimable

08/04/2007, 21h31
LAETIAZ

Generer Par [vba-e]

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
08/04/2007, 23h20
dadavyvy

Comme qqch dans ce genre là?
09/04/2007, 00h23
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?

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:D

Code:

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

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)...
Citation:
Envoyé par LAETIAZ
Code:

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:

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:

Set WordDoc = WordApp.Documents.Add

Avec ca, ça devrait tourner.

12/04/2007, 18h19
LAETIAZ

En fait cela me met une erreur ici: Dim wordApp As Word.Application (type défini par l'utilisateur non défini)
12/04/2007, 18h35
dadavyvy
Il faut déclarer la référence : "Microsoft Word x.x Object Library"
Outils > Référence...

Ou alors, tu t'en passes et tu utilises des CreateObject :
Code:

1 2 Dim wordApp, wordDoc Set wordApp = CreateObject("Word.Application")
Mais tu n'auras pas l'aide intuitive de VBA, qui t'affichera en liste déroulante les propriétés et méthodes de tes objets Word...

Voilà ce que j'ai fait et ca ne marche toujours pas:?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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
Dim wordApp, wordDoc
 
Set wordApp = CreateObject(Word.Application)
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Add
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
wordApp.Quit
Set wordApp = Nothing

Merci pour votre aide:D

12/04/2007, 18h43
dadavyvy

Oup desole, j'ai corrige mon post...
C'est bien CreateObject("Word.Application") avec des guillemets...
Il ne faut pas quitter l'application Word sinon on ne verra pas le resultat :
commenter la ligne :

Code:

wordApp.Quit

Merci beaucoup ceci marche mais pour récupérer les données ca coince est ce que ceci est correct:

Code:

1
2
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

Je suppose qu'il faut rajouter des ",".
Pour optimiser, on peut également eviter les select :
Code:

1 2 3 Dim f as WorkSheet Set f = Worksheets("PASCAL") wordApp.Selection.typetext "INSERT INTO ventemensuelle (VM_Vendeur, VM_Mois, VM_Jour, VM_NbVehicules, VM_NbServices) VALUES (" & f.Cells(3, 2).Value & "," & f.Cells(4, 7).Value & ",30," & f.Cells(18, 7).Value & "," & f.Cells(20, 7) & ")" & vbCrLf
Cela dépend bien sur du type des donnees dans la table, d'apres le nom des champs je verrai plutot :
Code:

1 2 3 Dim f as WorkSheet Set f = Worksheets("PASCAL") wordApp.Selection.typetext "INSERT INTO ventemensuelle (VM_Vendeur, VM_Mois, VM_Jour, VM_NbVehicules, VM_NbServices) VALUES ('" & f.Cells(3, 2).Value & "'," & f.Cells(4, 7).Value & ",30," & f.Cells(18, 7).Value & "," & f.Cells(20, 7) & ")" & vbCrLf
Avec un quote autour du nom du vendeur, en supposant que le mois et le jour sont des entiers déclarés en tant que tels dans la bdd

12/04/2007, 19h33
LAETIAZ

merci comment on pourrait faire pour dire si il y a rien dans cellule alors mettre null:D

Code:

1
2
3
Dim f as WorkSheet
Set f = Worksheets("PASCAL")
wordApp.Selection.typetext "INSERT INTO ventemensuelle (VM_Vendeur, VM_Mois, VM_Jour, VM_NbVehicules, VM_NbServices) VALUES (" & Iif(Trim(f.Cells(3, 2))="","null","'" & f.Cells(3, 2).Value & "'") & "," & Iif(Trim(f.Cells(4, 7))="", "null", f.Cells(4, 7).Value) & ",30," & Iif(Trim(f.Cells(18, 7))="","null",f.Cells(18, 7).Value) & "," & Iif(Trim(f.Cells(20, 7))="","null",f.Cells(20, 7)) & ")" & vbCrLf

12/04/2007, 20h09
LAETIAZ

Merci beaucoup ca marche super une toute petite dernière question pour une données d'une cellule mis en décimales 2 cela ne le prend pas en compte et me met plein de chiffres après la "," alors que la cellule a pour format de décimales comment pourrais t'on corriger le problème?:D
12/04/2007, 20h28
dadavyvy

C'est par ce que tu utilises la propriété Value de la cellule, c'est à dire la valeur de la cellule et non le texte affiché. Donc il faut remplacer les Cells(3, 2).Value par des Cells(3, 2).Text
12/04/2007, 20h40
LAETIAZ

Merci et comment peut on faire pour mettre entre guillemets car comme ca ca ne marche pas """ et puis comment on fait pour enregistrer le fichier word et lui donner un nom merci encore beaucoup pour votre aide:D
12/04/2007, 22h52
LAETIAZ

comment faire pour enregistrer le fichier word sous un titre en vba?:)
12/04/2007, 23h09
dadavyvy

Pour les guillemets, il en faut 4 : "guille""met" te donne guille"met.
POur l'enregistrement du document :

Code:

wordDoc.SaveAs Filename

Il suffit de regarder dans VBA-Word...

merci que puis-je mettre à la place de "passe" si il ne trouve pas le fichier de l'année précèdente car je l'ai déjà utiliser merci
Code:

1 2 3 4 5 6 DETRUIRE = CDate(MOIS & "/" & ANNEE - 1) On Error GoTo passe Kill (wordDoc.Path & "\" & "INSERT_" & Format(DETRUIRE, "yyyy") & "_" & Format(DETRUIRE, "mm") & (".xls")) Exit Sub passe:
:D

13/04/2007, 00h05
LAETIAZ

Merci énormément pour votre aide:D

Où est le probleme avec "passe"? Sinon tu peux mettre aussi : On Error Resume Next
Code:

1 2 3 4 DETRUIRE = CDate(MOIS & "/" & ANNEE - 1) On Error Resume Next Kill (wordDoc.Path & "\" & "INSERT_" & Format(DETRUIRE, "yyyy") & "_" & Format(DETRUIRE, "mm") & (".xls")) On Error Goto 0
(cf. aide VBA sur "On Error")

13/04/2007, 00h08
LAETIAZ

c bon j'ai trouvé mon erreur mais merci sincèrement de ton aide ;)