louwelyn
Messages postés1Date d'inscriptionmercredi 8 avril 2009StatutMembreDernière intervention 8 avril 2009
-
8 avril 2009 à 23:04
libre2009
Messages postés9Date d'inscriptionmardi 28 avril 2009StatutMembreDernière intervention25 septembre 2009
-
2 mai 2009 à 19:01
bonjour à tous.
je viens de finir une formation sur le vba durant laquelle j'ai fait une petite série de formulaires pour remplir des pages excel ( je sais, c'est pas grand chose, mais je débute).
tout va à merveille dans la salle de formation, chez moi, mais au bureau... pas moyen de lancer mes formulaires.
je passe sur les détails de mes recherches, mais j'en arrive à la conclusion suivante:
mon code a été écris avec les références microsoft excel 12.0 object library. alors que les ordi au bureau sont aux références microsoft excel 10.0 object library.
pour mon fichier, je vais me débrouiller pour réécrire, c'est pas grave..
mais voici ma question:
est il possible de "limiter" office 2007 pour qu'il fasse des codes lisibles sous office 2003?
d'avance, merci
libre2009
Messages postés9Date d'inscriptionmardi 28 avril 2009StatutMembreDernière intervention25 septembre 2009 2 mai 2009 à 18:51
bonjour mon ami après des essais et des test j'ai reusi a ouvrir un fichier excel quel que soit sa version et ajouter des inforamation . Voila le code qui copie le contenue d'un mshflexgrid1 vers un fichier excelle nimporte quel version (2007 ou 2003 ou ......)
Private Sub Command1_Click()
Dim xlObject As Object
Set xlObject = CreateObject("Excel.Application")
Dim xlWB As Object
Set xlWB = xlObject.Workbooks.Add
Clipboard.Clear 'Clear the Clipboard
'copier le contenu d'un mshflexgrid
With MSHFlexGrid1
'Select Full Contents (You could also select partial content)
.Col = 0 'From first column
.Row = 0 'From first Row (header)
.ColSel = .Cols - 1 'Select all columns
.RowSel = .Rows - 1 'Select all rows
Clipboard.SetText .Clip 'Send to Clipboard
End With
With xlObject.ActiveWorkbook.ActiveSheet
.Range("A1").Select 'Select Cell A1 (will paste from here, to different cells)
.Paste 'Paste clipboard contents
End With
libre2009
Messages postés9Date d'inscriptionmardi 28 avril 2009StatutMembreDernière intervention25 septembre 2009 2 mai 2009 à 19:01
j'ai oublié de te dire d'annuler toute s lrefernce library qur tu as ajouté microsoft excel 12.0 object library ou microsoft excel 10.0 object library
il ne sont pas utile et en + ils vont te faire des erreur avec le code preceddement tu n'as pas souci à inclur des references c'est un code magnifiqiue