bgll11
Messages postés3Date d'inscriptionmardi 27 juin 2006StatutMembreDernière intervention13 janvier 2012 13 janv. 2012 à 07:59
Exactement ce dont j'avais besoin pour commencer avec Excel! Merci!
lecoque
Messages postés2Date d'inscriptionmardi 18 mai 2010StatutMembreDernière intervention18 mai 2010 19 mai 2010 à 10:46
"AfficherExcel" comment en t'il déclarer
car moi j'ai vb expresse 2005 et je n'arrive pas à savoir si excel est ouvert ou pas
et je n'arrive pas a modifie excel si il es déjà ouvert et non enregistré
mais si c moi qui ouvre excel et exécute la macro il y a pa de soucie
quelqu'un peut il m'aidé
merci
1gima1
Messages postés7Date d'inscriptionjeudi 3 novembre 2005StatutMembreDernière intervention18 mars 2007 24 juin 2007 à 18:56
Bonjour,
je crois que c'est et dans format de la celluleet dans l'onglet alignement, on choisi ce que l'on désire comme alignement.
bonne journée
Atojul
Messages postés2Date d'inscriptionjeudi 26 avril 2007StatutMembreDernière intervention26 avril 2007 26 avril 2007 à 09:37
Bonjour
Est-ce que quelqu'un saurait me dire comment aligner le texte de toutes mes cellules à droite ?
merci d'avance pour votre aide
cs_UNi
Messages postés35Date d'inscriptionvendredi 15 février 2002StatutMembreDernière intervention27 avril 2009 18 août 2006 à 10:19
trés sympa comme source ...c'est une bonne base pour débuter avec excel et VB ;o)
cs_Cathbad
Messages postés2Date d'inscriptionjeudi 20 juillet 2006StatutMembreDernière intervention24 juillet 2006 20 juil. 2006 à 13:46
Pour les personnes qui ont/avaient des problème avec le processus excel restant dans les processus en cours, il suffit de faire :
Set Docexcel = nothing.
++
pintodu28
Messages postés1Date d'inscriptionmercredi 19 avril 2006StatutMembreDernière intervention21 avril 2006 21 avril 2006 à 16:24
Goog
enimien
Messages postés1Date d'inscriptionlundi 27 mars 2006StatutMembreDernière intervention 3 avril 2006 3 avril 2006 à 15:29
Zakarry, tes remarques ne sont pas utiles, il faut bien débuter un jour, moi je trouve que tu sent du gland.
samurize
Messages postés10Date d'inscriptionlundi 7 février 2005StatutMembreDernière intervention 2 septembre 2006 13 avril 2005 à 23:38
Merci j'ai lu, mais encore faut-il savoir les utiliser. De toute façon j'ai changer mon prog pour ne plus etre dépendant à Excel.
Merci quand meme...
loskiller62
Messages postés135Date d'inscriptionjeudi 30 janvier 2003StatutMembreDernière intervention12 juillet 20061 13 avril 2005 à 09:22
T'as pas lu ce qu'a dit laurent 207? non ? Et bien tu devrais...
"pour connaître les syntaxes à utiliser, faîte une macro sous excel, ce qui vous donnera le code vb à utiliser"
samurize
Messages postés10Date d'inscriptionlundi 7 février 2005StatutMembreDernière intervention 2 septembre 2006 9 mars 2005 à 20:29
Est-ce que quelqu'un pourrais m'aider pour changer les bordures des cellules.
Ca fait déja un petit bout de temps que j'essaye, mais infructueusement.
Merci d'avance.
Sinon Bravo pour le code. Marche à merveille.
sailinna
Messages postés6Date d'inscriptiondimanche 6 juin 2004StatutMembreDernière intervention20 mai 2008 10 juin 2004 à 22:26
en fait c'est bon ca marche tres bien j'avais fait une boulette ...merci quand meme nowsfr
biebiere
Messages postés2Date d'inscriptionmardi 9 mars 2004StatutMembreDernière intervention10 juin 2004 10 juin 2004 à 16:55
salut j'ai le même probleme que huuuuu21. lorsque je lance excel et que je ferme la fenetre excel manuellement le processus "excel.exe" reste vivant. lorsque je ferme l'application par la methode "quit" même problème. j'ai vadrouillé un peu sur le net et pas mal de personnes l'ont rencontré. Avez vous une solution (parce que la je galère et c'est pour mon stage)?
laurent207
Messages postés101Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention11 avril 2008 8 juin 2004 à 10:51
pour connaître les syntaxes à utiliser, faîte une macro sous excel, ce qui vous donnera le code vba. Ensuite, sous vb (exe standard) copier le vba dans vb (n'oublier pas de rajouter la référence Microsoft Excel XXX Object Library et de créer un objet avec l'instruction set). Enfin, rajouter l'objet devant chaque ligne du code vba (enfin presque) et... La suite à vous de découvrir, mais une macro peut vous aider pour la syntaxe.
nowsfr
Messages postés4Date d'inscriptiondimanche 2 mai 2004StatutMembreDernière intervention 9 décembre 2007 7 juin 2004 à 20:18
ok mé coment tu fé pour imprimé le classeurs ou ta feuille
sailinna
Messages postés6Date d'inscriptiondimanche 6 juin 2004StatutMembreDernière intervention20 mai 2008 6 juin 2004 à 21:20
ce programme ne marche pas chez moi, est ce parce que j'ai vb6 ? par exemple les fonctions set et Excel.Application ne sont pas reconnues.
josepatlopezval
Messages postés10Date d'inscriptionlundi 17 mai 2004StatutMembreDernière intervention25 janvier 2005 17 mai 2004 à 17:25
Bien, je salurais ton initiative, de deposer une petite documentation qui m'a été fort utile pour ma production en entreprise et de ce pas je fournis un petit code, qui de par un recordset et une requette SQL revoie le resultat de la requette dans un fichier xls ( je n'ai pas mis la declar du recordset lol ) :
'' A la base je faisait un petit generateur de requette sql vers
'' mais ma cible a changer
searchRS.RecordSource = "select " + campo$ + " from " +from$ + " Where " + Where$ + orden$
searchRS.Refresh
'' Vers excel
'''''''' Contenu de la requete vers excel (Merci)
Dim xlApp
Dim xlBook
Dim xlSheet
Dim col, row As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
row = 1
''searchRS.Recordset.RecordCount ''Numero de ligne
col = 1
'' Checkcampos$ ''numero de colonne
Me.Show
searchRS.Recordset.MoveFirst
''''''''''''''' ENTETE''''''''''''''''''''
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1).Name
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
''''''''''''''' Corps ''''''''''''''''''''''
While searchRS.Recordset.EOF = False
row = row + 1
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1)
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
col = 1
searchRS.Recordset.MoveNext
josepatlopezval
Messages postés10Date d'inscriptionlundi 17 mai 2004StatutMembreDernière intervention25 janvier 2005 17 mai 2004 à 17:25
Bien, je salurais ton initiative, de deposer une petite documentation qui m'a été fort utile pour ma production en entreprise et de ce pas je fournis un petit code, qui de par un recordset et une requette SQL revoie le resultat de la requette dans un fichier xls ( je n'ai pas mis la declar du recordset lol ) :
'' A la base je faisait un petit generateur de requette sql vers
'' mais ma cible a changer
searchRS.RecordSource = "select " + campo$ + " from " +from$ + " Where " + Where$ + orden$
searchRS.Refresh
'' Vers excel
'''''''' Contenu de la requete vers excel (Merci)
Dim xlApp
Dim xlBook
Dim xlSheet
Dim col, row As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
row = 1
''searchRS.Recordset.RecordCount ''Numero de ligne
col = 1
'' Checkcampos$ ''numero de colonne
Me.Show
searchRS.Recordset.MoveFirst
''''''''''''''' ENTETE''''''''''''''''''''
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1).Name
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
''''''''''''''' Corps ''''''''''''''''''''''
While searchRS.Recordset.EOF = False
row = row + 1
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1)
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
col = 1
searchRS.Recordset.MoveNext
cs_Mick14
Messages postés3Date d'inscriptionvendredi 9 avril 2004StatutMembreDernière intervention13 avril 2004 9 avril 2004 à 18:29
Pas mal...sauf que t'aurais pu aller un peu plus loin quand même!
cs_feihung
Messages postés4Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention26 mars 2004 26 mars 2004 à 11:12
Génial ton initiative de poster cette source, merci!
Mais pour rejoindre aléria ce qui aurait été super aussi, c'est la manipulation des donées via des listbox vb ou autres du fichier excel.
Encore merci tu me sors d'une belle *£$%§ !!
huuuuu21
Messages postés30Date d'inscriptionmercredi 24 septembre 2003StatutMembreDernière intervention 8 septembre 2009 6 nov. 2003 à 10:03
Moi j'ai un problème, j'ai fais un prog qui ressemble à ça, avec un createobject et tous ça, mais lorsque je fais docmachin.application.quit excel se ferme, mais quand je fait Ctrl Alt Suppr, et je regarde les processus qui sont en cours, excel est encore en marche.
En fait excel n'est pas visible, car il a quitté, mais il est encore en arrière plan.
Excel se ferme en fait lorsque je quitte le programme, ce n'est pas génant sous Xp, mais le programme que j'ai réalisé, j'en ai besoin sous win98, et malheureusement ça plante à la fermeture d'excel.
avez vous une solution please ????
huuu
daetips
Messages postés142Date d'inscriptionjeudi 10 juillet 2003StatutMembreDernière intervention10 novembre 2007 3 sept. 2003 à 21:22
super
testondd
Messages postés8Date d'inscriptionjeudi 17 juillet 2003StatutMembreDernière intervention21 août 2003 25 juil. 2003 à 11:26
il est tres bien ce document car c'est une bonne base pour commencer
Au moins ca va me servir
Pandeo
Messages postés2Date d'inscriptionvendredi 7 mars 2003StatutMembreDernière intervention15 juillet 2003 15 juil. 2003 à 19:59
Quand tu créées des rapports à partir de VB, ca peut être intéressant de mettre de la couleur, des tailles de caractères différentes, une polices différentes, et même de mettre en gras. Ca dépend de ce que tu fais avec.
cs_Aleria
Messages postés3Date d'inscriptionjeudi 22 mai 2003StatutMembreDernière intervention21 mai 2005 12 juil. 2003 à 09:14
C'est bien ! mais il y a des commandes un peu superflues pour moi (quel est l'interet de mettre du texte en gras dans Excel via Vb ? par exemple) sinon ce programme tutorial est très bien,très complet !
Pandeo
Messages postés2Date d'inscriptionvendredi 7 mars 2003StatutMembreDernière intervention15 juillet 2003 17 juin 2003 à 19:22
Bien que le code est trèb bien documenté, ca revient à partir l'enregistreuse et à regarder le code qui se fait... et le docExcel peut être oublié; ca allège le code
stupideGandalf
Messages postés1Date d'inscriptionmardi 27 mai 2003StatutMembreDernière intervention28 mai 2003 28 mai 2003 à 14:02
J'ai une ptite question, comment faire pour garder ta syntaxe et ouvrir une feuille de données qui comportera les enregitrements d'une requête??
laurent207
Messages postés101Date d'inscriptionjeudi 31 janvier 2002StatutMembreDernière intervention11 avril 2008 20 févr. 2003 à 16:35
oui ça serai sympa denous dire où trouver la doc car mmoi non pls je n'ai pas trouvé avec MSDN
cs_jupiter
Messages postés34Date d'inscriptionlundi 5 août 2002StatutMembreDernière intervention 9 janvier 2009 24 déc. 2002 à 09:01
Dans quelle doc peut on trouver ces parametrages ? je n'ai pas trouvé avec MSDN
GarnetDiAlexandros
Messages postés55Date d'inscriptionmercredi 31 juillet 2002StatutMembreDernière intervention19 novembre 2004 12 nov. 2002 à 16:03
C très bien, très compréhensible et complet
10/10
gevaen
Messages postés5Date d'inscriptionmardi 25 septembre 2001StatutMembreDernière intervention24 mars 2004 20 févr. 2002 à 10:39
Au moins ça fonctionne. Pas mal.
Zackarry
Messages postés28Date d'inscriptionvendredi 13 juillet 2001StatutMembreDernière intervention 1 février 2002 24 janv. 2002 à 14:20
13 janv. 2012 à 07:59
19 mai 2010 à 10:46
car moi j'ai vb expresse 2005 et je n'arrive pas à savoir si excel est ouvert ou pas
et je n'arrive pas a modifie excel si il es déjà ouvert et non enregistré
mais si c moi qui ouvre excel et exécute la macro il y a pa de soucie
quelqu'un peut il m'aidé
merci
24 juin 2007 à 18:56
je crois que c'est et dans format de la celluleet dans l'onglet alignement, on choisi ce que l'on désire comme alignement.
bonne journée
26 avril 2007 à 09:37
Est-ce que quelqu'un saurait me dire comment aligner le texte de toutes mes cellules à droite ?
merci d'avance pour votre aide
18 août 2006 à 10:19
20 juil. 2006 à 13:46
Set Docexcel = nothing.
++
21 avril 2006 à 16:24
3 avril 2006 à 15:29
13 avril 2005 à 23:38
Merci quand meme...
13 avril 2005 à 09:22
"pour connaître les syntaxes à utiliser, faîte une macro sous excel, ce qui vous donnera le code vb à utiliser"
9 mars 2005 à 20:29
Ca fait déja un petit bout de temps que j'essaye, mais infructueusement.
Merci d'avance.
Sinon Bravo pour le code. Marche à merveille.
10 juin 2004 à 22:26
10 juin 2004 à 16:55
8 juin 2004 à 10:51
7 juin 2004 à 20:18
6 juin 2004 à 21:20
17 mai 2004 à 17:25
'' A la base je faisait un petit generateur de requette sql vers
'' mais ma cible a changer
searchRS.RecordSource = "select " + campo$ + " from " +from$ + " Where " + Where$ + orden$
searchRS.Refresh
'' Vers excel
'''''''' Contenu de la requete vers excel (Merci)
Dim xlApp
Dim xlBook
Dim xlSheet
Dim col, row As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
row = 1
''searchRS.Recordset.RecordCount ''Numero de ligne
col = 1
'' Checkcampos$ ''numero de colonne
Me.Show
searchRS.Recordset.MoveFirst
''''''''''''''' ENTETE''''''''''''''''''''
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1).Name
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
''''''''''''''' Corps ''''''''''''''''''''''
While searchRS.Recordset.EOF = False
row = row + 1
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1)
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
col = 1
searchRS.Recordset.MoveNext
Wend
rs$ = MsgBox("Procedure Termine", vbInformation)
xlApp.Visible = True
End If
17 mai 2004 à 17:25
'' A la base je faisait un petit generateur de requette sql vers
'' mais ma cible a changer
searchRS.RecordSource = "select " + campo$ + " from " +from$ + " Where " + Where$ + orden$
searchRS.Refresh
'' Vers excel
'''''''' Contenu de la requete vers excel (Merci)
Dim xlApp
Dim xlBook
Dim xlSheet
Dim col, row As Integer
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
xlApp.Visible = True
row = 1
''searchRS.Recordset.RecordCount ''Numero de ligne
col = 1
'' Checkcampos$ ''numero de colonne
Me.Show
searchRS.Recordset.MoveFirst
''''''''''''''' ENTETE''''''''''''''''''''
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1).Name
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
''''''''''''''' Corps ''''''''''''''''''''''
While searchRS.Recordset.EOF = False
row = row + 1
While col <= Checkcampos$
xlApp.Worksheets(1).Cells(row, col).Value = searchRS.Recordset.Fields(col - 1)
xlApp.Worksheets(1).Cells(row, col).ColumnWidth = "30"
col = col + 1
Wend
col = 1
searchRS.Recordset.MoveNext
Wend
rs$ = MsgBox("Procedure Termine", vbInformation)
xlApp.Visible = True
End If
9 avril 2004 à 18:29
26 mars 2004 à 11:12
Mais pour rejoindre aléria ce qui aurait été super aussi, c'est la manipulation des donées via des listbox vb ou autres du fichier excel.
Encore merci tu me sors d'une belle *£$%§ !!
6 nov. 2003 à 10:03
En fait excel n'est pas visible, car il a quitté, mais il est encore en arrière plan.
Excel se ferme en fait lorsque je quitte le programme, ce n'est pas génant sous Xp, mais le programme que j'ai réalisé, j'en ai besoin sous win98, et malheureusement ça plante à la fermeture d'excel.
avez vous une solution please ????
huuu
3 sept. 2003 à 21:22
25 juil. 2003 à 11:26
Au moins ca va me servir
15 juil. 2003 à 19:59
12 juil. 2003 à 09:14
17 juin 2003 à 19:22
28 mai 2003 à 14:02
20 févr. 2003 à 16:35
24 déc. 2002 à 09:01
12 nov. 2002 à 16:03
10/10
20 févr. 2002 à 10:39
24 janv. 2002 à 14:20
3 oct. 2001 à 17:18
3 oct. 2001 à 17:01