ibra04
Messages postés6Date d'inscriptionjeudi 31 octobre 2002StatutMembreDernière intervention 7 mars 2003
-
2 mars 2003 à 23:20
Pikashoute
Messages postés91Date d'inscriptionjeudi 27 février 2003StatutMembreDernière intervention23 décembre 2005
-
10 mars 2003 à 09:03
Qui pourrais voir svp pourquoi ça bug. Le but c que quand je clique sur mon boutton, il m'ouvre le fichier excel (FnumEmp.xls) et qu'il m'écrive ceque je lui ai demandé et ce au bon endroit.Le prob c que ça bug a la compilation à la ligne ou se trtouve GETOBJECT (en rouge en bas).
Merci bcp pour votre aide.
Private Sub Command1_Click()
Dim de
Dim a
Dim tamp
de = Text1
a = Text2
tamp = 0
' déclaration d'une variable objet
Dim fichier As Object
' déclaration d'une variable contenat les données importées
Dim chemin
' lancement d'excel.exe
chemin = Shell("C:\program files\microsoft office\office\excel.exe FnumEmp.xls")
tamp = de
fichier = GetObject("c:\Documents and settings\Boss.-\Mes doduments\FnumEmp.xls")
End If
If tamp < a Then
' exportation de données
fichier.sheets("FnumEmp.xls").range("e12").Value = tamp
tamp = tamp + 1
End If
If tamp < a Then
' exportation de données
fichier.sheets("FnumEmp.xls").range("b30").Value = tamp
tamp = tamp + 1
End If
If tamp < a Then
' exportation de données
fichier.sheets("FnumEmp.xls").range("e30").Value = tamp
tamp = tamp + 1
End If
' impression d'une feuille du fichier excel
fichier.sheets("FnumEmp.xls").PrintOut Copies:=1
' fermeture du fichier
' cette instruction supprime l'affichage du message "Voulez - vous enregistrer les
' modifications apportées au fichier...". Attention, le fichier sera alors fermé sans sauvegarde
' mais cela peut être utile parfois. Cette commande supprime aussi l'affichage de tout message d'erreur.
fichier.Application.DisplayAlerts = False
Pikashoute
Messages postés91Date d'inscriptionjeudi 27 février 2003StatutMembreDernière intervention23 décembre 2005 10 mars 2003 à 09:03
dans ton champ chemin, tu mets donc shell() à l'intérieur tu mets le chemin d'accès à Excel puis mets le chemin complet de ton fichier excel.
et relance.