Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rv
Salut,
Le 'selection.ShapeRange.IncrementLeft -65.25' doit s'appliquer sur un objet 'Application' d'Excel. Si votre code utilise un tel objet par exemple 'XlApp' faire : XlBook.Sheets(e).Shapes("AutoShape 66").select XlApp.selection.ShapeRange.IncrementLeft -65.25
Apparement 'XlBook' est un objet 'workbook' du modèle d'objet Excel. Dans ce cas on peut aussi écrire : XlBook.Sheets(e).Shapes("AutoShape 66").select XlBook.Parent.selection.ShapeRange.IncrementLeft -65.25
A+
Rv
"G4F" a écrit dans le message de news:053801c3acee$488cd950$
bonjour
je veux modifier la position d'un objet "AutoShape" d'une feuille excel par access en automatique
voici le debut du source qui me permet de le selectionner
Dim XlBook As Object XlBook.Sheets(e).Shapes("AutoShape 66").select
mais apres, la fonction excel c'est selection.ShapeRange.IncrementLeft -65.25
et je n'arrive pas a trouver le moyen pour faire fonctionner en access merci par avance
Salut,
Le 'selection.ShapeRange.IncrementLeft -65.25' doit s'appliquer sur un
objet 'Application' d'Excel. Si votre code utilise un tel objet par exemple
'XlApp' faire :
XlBook.Sheets(e).Shapes("AutoShape 66").select
XlApp.selection.ShapeRange.IncrementLeft -65.25
Apparement 'XlBook' est un objet 'workbook' du modèle d'objet Excel.
Dans ce cas on peut aussi écrire :
XlBook.Sheets(e).Shapes("AutoShape 66").select
XlBook.Parent.selection.ShapeRange.IncrementLeft -65.25
A+
Rv
"G4F" <g4fplus@fr.st> a écrit dans le message de
news:053801c3acee$488cd950$a401280a@phx.gbl...
bonjour
je veux modifier la position d'un objet "AutoShape" d'une
feuille excel par access en automatique
voici le debut du source qui me permet de le selectionner
Dim XlBook As Object
XlBook.Sheets(e).Shapes("AutoShape 66").select
mais apres, la fonction excel c'est
selection.ShapeRange.IncrementLeft -65.25
et je n'arrive pas a trouver le moyen pour faire
fonctionner en access
merci par avance
Le 'selection.ShapeRange.IncrementLeft -65.25' doit s'appliquer sur un objet 'Application' d'Excel. Si votre code utilise un tel objet par exemple 'XlApp' faire : XlBook.Sheets(e).Shapes("AutoShape 66").select XlApp.selection.ShapeRange.IncrementLeft -65.25
Apparement 'XlBook' est un objet 'workbook' du modèle d'objet Excel. Dans ce cas on peut aussi écrire : XlBook.Sheets(e).Shapes("AutoShape 66").select XlBook.Parent.selection.ShapeRange.IncrementLeft -65.25
A+
Rv
"G4F" a écrit dans le message de news:053801c3acee$488cd950$
bonjour
je veux modifier la position d'un objet "AutoShape" d'une feuille excel par access en automatique
voici le debut du source qui me permet de le selectionner
Dim XlBook As Object XlBook.Sheets(e).Shapes("AutoShape 66").select
mais apres, la fonction excel c'est selection.ShapeRange.IncrementLeft -65.25
et je n'arrive pas a trouver le moyen pour faire fonctionner en access merci par avance
