Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600 cellules
d'un fichier excel qui devrait être nommé test.xls et sauvegardé dans le
répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les lignes
de 1 à 40
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600 cellules
d'un fichier excel qui devrait être nommé test.xls et sauvegardé dans le
répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les lignes
de 1 à 40
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600 cellules
d'un fichier excel qui devrait être nommé test.xls et sauvegardé dans le
répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les lignes
de 1 à 40
Bonjour Erick,Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et sauvegardé
dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pour de tels tableaux, j'utilise un fichier texte avec :
- séparateur point-virgule entre chaque cellule d'une ligne
- fin de ligne par VbCrLf
J'enregistre le fichier avec l'extension xls.
--
Cordialement
Aski
Bonjour Erick,
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et sauvegardé
dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pour de tels tableaux, j'utilise un fichier texte avec :
- séparateur point-virgule entre chaque cellule d'une ligne
- fin de ligne par VbCrLf
J'enregistre le fichier avec l'extension xls.
--
Cordialement
Aski
Bonjour Erick,Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et sauvegardé
dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pour de tels tableaux, j'utilise un fichier texte avec :
- séparateur point-virgule entre chaque cellule d'une ligne
- fin de ligne par VbCrLf
J'enregistre le fichier avec l'extension xls.
--
Cordialement
Aski
Hi Aski,
Merci pour ta réponse si rapide mais malheureusement, je ne sais pas plus
gérer les fichiers textes que les fichiers xls!
Je voudrais pouvoir adresser les valeurs de n directement dans les
cellules du fichier .xls.
Mais je ne sais même pas comment créer ce fichier xls et comment le placer
dans le répertoire souhaité.....
De même, la dénomination des colonnes dans Excel m'interpelle car comment
traduire la 27ème colonne par AA....etc?
Merci
Erick
"aski" wrote in message
news:Bonjour Erick,Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pour de tels tableaux, j'utilise un fichier texte avec :
- séparateur point-virgule entre chaque cellule d'une ligne
- fin de ligne par VbCrLf
J'enregistre le fichier avec l'extension xls.
--
Cordialement
Aski
Hi Aski,
Merci pour ta réponse si rapide mais malheureusement, je ne sais pas plus
gérer les fichiers textes que les fichiers xls!
Je voudrais pouvoir adresser les valeurs de n directement dans les
cellules du fichier .xls.
Mais je ne sais même pas comment créer ce fichier xls et comment le placer
dans le répertoire souhaité.....
De même, la dénomination des colonnes dans Excel m'interpelle car comment
traduire la 27ème colonne par AA....etc?
Merci
Erick
"aski" <aski@asc.asc> wrote in message
news:EACF70D7-F409-4D83-AD2C-F22EC17A762C@microsoft.com...
Bonjour Erick,
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pour de tels tableaux, j'utilise un fichier texte avec :
- séparateur point-virgule entre chaque cellule d'une ligne
- fin de ligne par VbCrLf
J'enregistre le fichier avec l'extension xls.
--
Cordialement
Aski
Hi Aski,
Merci pour ta réponse si rapide mais malheureusement, je ne sais pas plus
gérer les fichiers textes que les fichiers xls!
Je voudrais pouvoir adresser les valeurs de n directement dans les
cellules du fichier .xls.
Mais je ne sais même pas comment créer ce fichier xls et comment le placer
dans le répertoire souhaité.....
De même, la dénomination des colonnes dans Excel m'interpelle car comment
traduire la 27ème colonne par AA....etc?
Merci
Erick
"aski" wrote in message
news:Bonjour Erick,Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pour de tels tableaux, j'utilise un fichier texte avec :
- séparateur point-virgule entre chaque cellule d'une ligne
- fin de ligne par VbCrLf
J'enregistre le fichier avec l'extension xls.
--
Cordialement
Aski
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600 cellules
d'un fichier excel qui devrait être nommé test.xls et sauvegardé dans le
répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les lignes
de 1 à 40
Pouvez-vous m'aider?
Un grand merci
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600 cellules
d'un fichier excel qui devrait être nommé test.xls et sauvegardé dans le
répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les lignes
de 1 à 40
Pouvez-vous m'aider?
Un grand merci
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600 cellules
d'un fichier excel qui devrait être nommé test.xls et sauvegardé dans le
répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les lignes
de 1 à 40
Pouvez-vous m'aider?
Un grand merci
cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et sauvegardé
dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" <erick17@telenet.be> a écrit dans le message de news:
kv4Gj.162168$ii6.16071@newsfet11.ams...
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et sauvegardé
dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et sauvegardé
dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par défaut
à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par défaut
à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$ba4acef3@news.orange.fr...
cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" <erick17@telenet.be> a écrit dans le message de news:
kv4Gj.162168$ii6.16071@newsfet11.ams...
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par défaut
à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par défaut
à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par défaut
à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$ba4acef3@news.orange.fr...
cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" <erick17@telenet.be> a écrit dans le message de news:
kv4Gj.162168$ii6.16071@newsfet11.ams...
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par défaut
à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
Bonjour.
Rendre visible une Instance de Microsoft Excel
Sub OpenXL()
Static xlApp As Excel.Application
Set xlApp = Nothing
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
End Sub
Le fichier d'aide d'automatisation de Microsoft Office 2000 est disponible
sur
http://support.microsoft.com/kb/260410
Mishell
"Em" <no_spam> wrote in message
news:47e9747c$0$852$j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par
défaut à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
Bonjour.
Rendre visible une Instance de Microsoft Excel
Sub OpenXL()
Static xlApp As Excel.Application
Set xlApp = Nothing
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
End Sub
Le fichier d'aide d'automatisation de Microsoft Office 2000 est disponible
sur
http://support.microsoft.com/kb/260410
Mishell
"Em" <no_spam> wrote in message
news:47e9747c$0$852$ba4acef3@news.orange.fr...
j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par
défaut à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$ba4acef3@news.orange.fr...
cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" <erick17@telenet.be> a écrit dans le message de news:
kv4Gj.162168$ii6.16071@newsfet11.ams...
Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci
Bonjour.
Rendre visible une Instance de Microsoft Excel
Sub OpenXL()
Static xlApp As Excel.Application
Set xlApp = Nothing
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
End Sub
Le fichier d'aide d'automatisation de Microsoft Office 2000 est disponible
sur
http://support.microsoft.com/kb/260410
Mishell
"Em" <no_spam> wrote in message
news:47e9747c$0$852$j'ai oublier de préciser !
- la ligne xls_fichier.Save permet d'enregistrer les changements dans le
fichier
- par contre après une modif+enregistrement via VB, les feuilles du
classeurs sont par défaut masquées (je ne sais pas pourquoi), ce qui
n'enlève rien au bon fonctionnement du code; dans Excel, il faut donc
faire Fenetre -> Afficher pour visualiser les modifs
PS: si qqn sait comment faire pour que le classeur soit affiché par
défaut à l'ouverture dans Excel je suis preneur :o)!
--
Em
"Em" <no_spam> a écrit dans le message de news:
47e972dd$0$905$cela peut se faire très rapidement
- créer un fichier xls vide à l'endroit désiré ex : c:test.xls
- ajouter au projet la référence aux objets Excel : Projet ->
Références -> cocher Microsoft Excel 10.0 object library
- et le code tient en quelques lignes (je vous laisse adapter ce qu'il
faut écrire à la place d'AZERTY):
Sub ECRIRE_DONNEES_XLS()
Set xls_fichier = GetObject("C:TEST.xls")
xls_fichier.Sheets("Feuil1").Cells(1, 1) = "AZERTY"
'Fermeture fichier
xls_fichier.Save
Set xls_fichier = Nothing
End Sub
--
Em
"Erick" a écrit dans le message de news:
kv4Gj.162168$Bonjour,
Je ne possède que des notions de base de VB6.
Pour simplifier mon problème: imaginons un compteur de type
for ligne = 1 to 40
for col = 1 to 40
n = n+1
next col
next ligne
Je cherche un moyen d'enregistrer les 1600 valeurs de n dans 1600
cellules d'un fichier excel qui devrait être nommé test.xls et
sauvegardé dans le répertoire c:test
Les valeurs de n étant disposées dans les colonnes de A à AN et les
lignes de 1 à 40
Pouvez-vous m'aider?
Un grand merci