Discussion :

[shaka84]

je m'explique je cherche a inserer dans une fichier Excel des informations issues d'une base de donnés par l'intermédiaire de Visual basic 5. Dans mon programme vb je crée une boucle me permettant de lire ma ou mes tables dans ma bdd , et me permettant d'insérer dans mon fichier excel les données dont j'ai besoin. Mais je ne sait pas comment ouvrir le fichier excel pour y inséré les donnée. Quelqu'un connaitrait-il un tutoriel sur sa ou un site m'expliquant comment créer ce code? merci d'avance

[SfJ5Rpw8]

voir la :

Utiliser Excel à partir de Visual Basic par Sébastien Curutchet

[shaka84]

Merci pour le lien je ne l'avais pas vu sur le site. Sa ma bien aidé mais je narrive pas a trouver le code me permettant d'enregistrer le fichier excel sous un nom différent sans avoir a le taper moi-même.
Voila le code que je tape:

Code :

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

monexcel.SaveAs "C:\PTI\" & Text4 & ".xls"

Text4 et ma variable qui recevra le nom de fichier.

Il me renvoie le message d'erreur suivant :

Code :

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

1
2
Erreur d'execution '438':
Cet objet ne gére pas cette propriété ou méthode.

Comment dois-je utiliser SaveAs dans mon code pour qu'il marche. Si je ne met que Save sa mache en partie puisqu'il me demande un nom de fichier. Mais je veux pas le rentrer manuellement.

[SfJ5Rpw8]

le saveAs est à appliquer à l'objet workbook.. pas à l'application excel ..
montre nous plus de ton code

[shaka84]

Voici mon code complet:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set monexcel = CreateObject("Excel.Application")
monexcel.Workbooks.Open "C:\PTI\absences.xls"
Set sheet = monexcel.ActiveWorkbook.Sheets(1)
 sheet.Cells(7, 1) = Text1
 sheet.Cells(7, 2) = Text2
 sheet.Cells(7, 3) = Text3
 sheet.Cells(7, 4) = Text4
 chemin = "C:\PTI\" & Text4 & ".xls"
monexcel.Application.Visible = True
monexcel.SaveAs chemin
monexcel.Workbooks.Close
Set monexcel = Nothing

[SfJ5Rpw8]

rajoute

Code :

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

1
2
3
4
5
6
7
8
 
Dim Wk As workbook
..
..
set WK = monexcel.Workbooks.Open "C:\PTI\absences.xls"
..
...
wk.SaveAs chemin

[shaka84]

Sa y est je pense que le code que j'ai fais fonction correctement. Du moins la il fonctionne. Voici ce que j'ai fais:

l'ancien:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set monexcel = CreateObject("Excel.Application")
monexcel.Workbooks.Open "C:\PTI\absences.xls"
Set sheet = monexcel.ActiveWorkbook.Sheets(1)
sheet.Cells(7, 1) = Text1
sheet.Cells(7, 2) = Text2
sheet.Cells(7, 3) = Text3
sheet.Cells(7, 4) = Text4
chemin = "C:\PTI\" & Text4 & ".xls"
monexcel.Application.Visible = True
monexcel.SaveAs chemin
monexcel.Workbooks.Close
Set monexcel = Nothing[/LEFT]

Je n'ai modifié que le nom qui est en rouge et quand je l'exécute sa marche.

le nouveau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set monexcel = CreateObject("Excel.Application")
monexcel.Workbooks.Open "C:\PTI\absences.xls"
Set sheet = monexcel.ActiveWorkbook.Sheets(1)
 sheet.Cells(7, 1) = Text1
 sheet.Cells(7, 2) = Text2
 sheet.Cells(7, 3) = Text3
 sheet.Cells(7, 4) = Text4
 chemin = "C:\PTI\" & Text4 & ".xls"
monexcel.Application.Visible = True
sheet.SaveAs chemin
monexcel.Workbooks.Close
Set monexcel = Nothing

Sa marche trés bien. Merci pour ton explication sur SaveAs.