Addnew précis dans exel 2000.
Pilotex
-
31 mai 2001 à 16:12
BinItsMeKoi Messages postés 2 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 5 mai 2008 - 21 avril 2005 à 12:08
BinItsMeKoi Messages postés 2 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 5 mai 2008 - 21 avril 2005 à 12:08
A voir également:
- Addnew précis dans exel 2000.
- Arctan exel ✓ - Forum C++ & C++ .NET
- Fichier exel modèle de gestion de flotte - Forum Visual Basic 6
- Addnew ✓ - Forum Visual Basic 6
- Gdiplus.dll windows 2000 ✓ - Forum Visual Basic 6
- Maudite Arctangente - Forum Visual Basic
2 réponses
et bah alors gamin :D
lol je deconne :)
Bon je vais tenter de te filer un truc qui tourne !
Private Sub bn_extract_Click()
on error goto err_ex
Dim MonFichier As String
Dim i As Integer
'Défini le nom du fichier Excel
MonFichier = "extract.xls"
'Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
'Ouvre MonFichier
MonXl.Workbooks.Open FileName:="D:\Partage\SuiviCommercial\VB" & MonFichier
'Copie les valeurs
MonXl.range("A1").Value = txt_pseudo
err_ex:
If Err.Number <> 0 Then
a = MsgBox(Err.Description, vbCritical, "ERROR")
Exit Sub
End If
end sub
Et vala :)
Si ta des soucis mail moi ;)
lol je deconne :)
Bon je vais tenter de te filer un truc qui tourne !
Private Sub bn_extract_Click()
on error goto err_ex
Dim MonFichier As String
Dim i As Integer
'Défini le nom du fichier Excel
MonFichier = "extract.xls"
'Ouvre l'application Excel
Set MonXl = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
'Ouvre MonFichier
MonXl.Workbooks.Open FileName:="D:\Partage\SuiviCommercial\VB" & MonFichier
'Copie les valeurs
MonXl.range("A1").Value = txt_pseudo
err_ex:
If Err.Number <> 0 Then
a = MsgBox(Err.Description, vbCritical, "ERROR")
Exit Sub
End If
end sub
Et vala :)
Si ta des soucis mail moi ;)
BinItsMeKoi
Messages postés
2
Date d'inscription
jeudi 21 avril 2005
Statut
Membre
Dernière intervention
5 mai 2008
21 avril 2005 à 12:08
21 avril 2005 à 12:08
slt à tous une qst pour cette méthode !!!!
comment fé tu Krasba pour changer de case !! car remplacer "A1" par une variable ca ne marche pas !!!!
comment fé tu Krasba pour changer de case !! car remplacer "A1" par une variable ca ne marche pas !!!!
