Discussion :

[timtof2011]

Bonjour tout le monde,
j'aurai voulu savoir si il était possible de visualiser une feuille excel dans un userform et voir même d'y faire des modif...

Bien à tous...
Tim

[patricktoulon]

bonjour

oui c'est possible d'avoir un cliché de la feuille excel dans un contrôle image dans un userform mais pour le manipuler çà n'est pas possible du moins pas a ma connaissance

tu a qu'a regarder dans les contributions mon exemplaire de cliché de cellules

il fait exactement ce que tu demande


au plaisir

[kiki29]

Salut, chercher qqch autour d'OWC , à lire également http://silkyroad.developpez.com/vba/owcpivottable/

[patricktoulon]

Salut, chercher qqch autour d'OWC , à lire également http://silkyroad.developpez.com/vba/owcpivottable/

bonsoir kiki 29
je l'avais zaper celui la!

[Invité]

Bonjour

Deux exemple d'utilisation d'un tableau Excel dans un formulaire Access avec le composant cité ci-dessus :

La Mise en Forme Conditionnelle Illimitée sous Access
De nouvelles listes pour vos formulaires Access

Ces deux tutos sont pour Access, mais c'est l'utilisation qui est importante pour te donné une piste de recherche.

Philippe

[Jean-Pierre49]

Bonjour,


Et pourquoi pas le Spreadsheet ?

Bon courage

[timtof2011]

bonsoir tout le monde...

@ patriktoulon: j'ai testé mais suis pas assez compétant pour faire fonctionner...trop évoluer pour moi à ce stade...lorsque je lance tes fichiers j'ai des erreurs...surement que je n'arrives pas à adapter dans mon excel...

Pour moi bien comprendre il m'aurait fallu un exemple simple mais j'ai pas trouvé...

@kiki29 : je testé mais il me retourne une erreur et me dit "la méthode 'FieldSets' de l'objet 'PivotView' à échoué...du fichier PivotTable_UserForm_XL2007_OWC11...

Peut être aussi un fichier simple de base que je n'ai pas trouvé sur le sujet m'aurait été bénéfique...


@Philippe JOCHMANS : merci pour ces liens mais c'est trop évolué pour mon niveau actuel...


@ Jean-Pierre49 : merci aussi pour l'idée du Spreadsheet...j'ai trouvé un exemple "USF_AutoFiler_Sans_AutoFilter_SpreadSheet-V1.xls" mais là aussi j'ai un message d'erreur de compilation "Projet ou bibliothèque introuvable
il bloque sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With Spreadsheet1.DisplayColHeaders = False
.DisplayRowHeaders = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.Visible = False
End With
End Sub

J'ai également essayé de tester ton code mais j'ai un problèmesurement avec le "Spreadsheet1" que je ne trouve pas... ou puis je trouver cet objet...?

Merci à tous pour votre suivi...si vous en avez le temps.

Tim

[Jean-Pierre49]

Bonsoir tim

Dans le projet VBA click droit sur la page de la boite a outil et choisi contrôles supplémentaires et cherche Spreadsheet et quelque chose ( je n’ai pas excel sur ce pc) et oui ça arrive des fois

Si tu trouve rien

Recharger OWC11 et les Contrôles communs Microsoft Visual basic 6.0
On les trouve facilement sur le Web

Et la tu devrais trouver le Spreadsheet

bon week end à lundi si problème

Edit : dans la fenètre contrôles supplémentaires : Microsoft Office Spreadsheet 11.0

[Didier Gonard]

Bonsoir,

le lien est fournit dans le lien donné par Patrick en #4

Ce n'est pas parce que le titre fait allusion à l'OWC PivotTable qu'il faut s'y concentrer, l'important est que dans l'intro Michel fournit le lien et les scrennshots voulus !

Le complément Microsoft Office Web Components (OWC ou Composants Web) est une collection de contrôles permettant de publier sur le Web des feuilles de calcul, des graphiques, des bases de données et des tableaux croisés dynamiques.
Ces contrôles peuvent aussi être utilisés dans les applications bureautiques Office, et notamment dans les UserForms.


Si le complément Microsoft Office Web Components n'est pas disponible sur le poste de travail, téléchargez les composants en fonction de votre version d'Office.

Complément d'Office 2003 : composants Web Office OWC11
Office XP Tool: Web Components OWC10

Ensuite il faut valider Micorsoft Office Web Components Wizards dans la liste qui t'ouvriras la porte du contrôle voulu ...

cordialement,

Didier

[patricktoulon]

bonjour a tous

j'ai simplement repris un uxemple dans la faq arrangé pour le but qui est visé dans cette discution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub feuille_dans_l_userform()
Dim Ligne As Integer, Colonne As Integer
 
Application.ScreenUpdating = False
 
'Copie, en tant qu'image, les cellules utilisées dans la feuille.
Feuil1.UsedRange.CopyPicture
Feuil1.Paste
 
'Récupére la position des dernières lignes et colonnes utilisées.
'Cette information va servir à redimensionner la taille de l'image.
Ligne = Feuil1.Cells.Find("*", Feuil1.Range("A1"), SearchDirection:=xlPrevious).Row + 1
Colonne = Feuil1.Cells.Find("*", Feuil1.Range("A1"), SearchDirection:=xlPrevious).Column + 1
 
'Crée un graphique temporaire aux dimentions des cellules prises en compte
With Feuil1.ChartObjects.Add(0, 0, Cells(Ligne, Colonne).Left, Cells(Ligne, Colonne).Top).Chart
    .Paste ' on colle l'image copiée précédamentdans le graphique vide
    'exporte l'image sur le disque dur
    .Export "D\monImage.jpg", "JPG"
End With
'on affiche le userform
UserForm1.Show 0
'on load l'image copiée précédament sur le disque dur dans le control image dans le userform
'tu peut changer l'adresse de sauvegarde et load de l'image
UserForm1.Image1.Picture = LoadPicture("D\monImage.jpg")
 
With Feuil1
    'Supprime le graphique temporaire
    .ChartObjects(Feuil1.ChartObjects.Count).Delete
    'Supprime l'image dans la feuille.
    .Shapes(Feuil1.Shapes.Count).Delete
End With
 
Application.ScreenUpdating = True
End Sub

bon courage

[Invité]

Bonjour

@patricktoulon

En quoi ton code (pourtant intéressant) correspond à la discussion ?

On parle de mettre une feuille dans un formulaire et non une image , il me semble qu'il veut une feuille dynamique ou je n'ai pas tout compris.

Philippe