Generer Par [vba-e]

**LAETIAZ** · 08/04/2007, 21h31

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

Comme qqch dans ce genre là?

**LAETIAZ** · 09/04/2007, 00h23

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** · 12/04/2007, 17h18

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** · 12/04/2007, 18h08

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)...

Envoyé par LAETIAZ

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** · 12/04/2007, 18h19

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

**dadavyvy** · 12/04/2007, 18h35

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 :

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

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...

**LAETIAZ** · 12/04/2007, 18h41

Voilà ce que j'ai fait et ca ne marche toujours 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
 
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

**dadavyvy** · 12/04/2007, 18h43

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 :

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

wordApp.Quit

**LAETIAZ** · 12/04/2007, 18h53

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

Code :

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

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

**dadavyvy** · 12/04/2007, 18h57

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

Code :

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

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 :

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

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

**LAETIAZ** · 12/04/2007, 19h33

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

**dadavyvy** · 12/04/2007, 19h37

Code :

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

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

**LAETIAZ** · 12/04/2007, 20h09

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?

**dadavyvy** · 12/04/2007, 20h28

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

**LAETIAZ** · 12/04/2007, 20h40

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

**LAETIAZ** · 12/04/2007, 22h52

comment faire pour enregistrer le fichier word sous un titre en vba?

**dadavyvy** · 12/04/2007, 23h09

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

Code :

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

wordDoc.SaveAs Filename

Il suffit de regarder dans VBA-Word...

**LAETIAZ** · 12/04/2007, 23h33

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 :

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

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:

**LAETIAZ** · 13/04/2007, 00h05

Merci énormément pour votre aide

Generer Par [vba-e]

Macros et VBA Excel

Discussions similaires

Partager

Partager