Bonjour le fil
J'ai un problème avec une procédure activée depuis un bouton.
Elle permet d'afficher une fenêtre où se trouvent mes fichier, d'y selectionner une photo et de l'importer dans ma feuille. Cette première procédure marche, la voilà:
Maintenant je veux faire la même chose avec un autre bouton et quelque spécialités en plus ( genre changer la couleur de certaines cellules ou les déprotéger), je copie plus ou moins ma première procédure, mais ça ne marche pas. Voici la 2ème procédure:
Le débugueur me dit qu'il ne trouve pas "Maschinebild". Et ce à juste titre puisque l'image ne s'affiche pas sur la feuille, alors que la fenêtre d'affiche et il est possible de selectionner une photo dans mes dossier. Pour info les 2 boutons se situent dans la même feuille, et donc tout les paramettre devraient s'appliquer au premier comme au 2ème.
D'avance je remercie celui qui aura la gentillesse de se pencher sur le problème. Je reste à dispo pour toute question.
Taebo
J'ai un problème avec une procédure activée depuis un bouton.
Elle permet d'afficher une fenêtre où se trouvent mes fichier, d'y selectionner une photo et de l'importer dans ma feuille. Cette première procédure marche, la voilà:
Code:
Private Sub Bildeinsetzer_button_click()
Dim protection As Boolean
protection1 = False
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "cat"
protection1 = True
End If
Dim Choix
With ActiveSheet
Choix = Application.GetOpenFilename("Fichier image(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Choix de l'image", , False)
If Choix = False Then GoTo folge:
On Error GoTo folge
.Shapes("Werkstückbild").Delete
Range("i32").Select
.Pictures.Insert(Choix).Name = "Werkstückbild"
.Shapes("Werkstückbild").Width = 190
.Shapes("Werkstückbild").Heigth = 50
End With
ActiveSheet.Shapes("Bildeinsetzer_button").Select
selection.ShapeRange.ZOrder msoBringToFront
folge:
If protection1 = True Then ActiveSheet.Protect "cat", DrawingObjects:=False
ActiveSheet.Shapes("werkstückbild").Select
End Sub
Maintenant je veux faire la même chose avec un autre bouton et quelque spécialités en plus ( genre changer la couleur de certaines cellules ou les déprotéger), je copie plus ou moins ma première procédure, mais ça ne marche pas. Voici la 2ème procédure:
Code:
Private Sub Neue_Maschine_button_Click()
Dim protection As Boolean
protection1 = False
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect "cat"
protection1 = True
End If
Range("k51:m55").Interior.ColorIndex = 6
Range("k51:m55").Locked = False
Dim Choix1
With ActiveSheet
Choix1 = Application.GetOpenFilename("Fichier image(*.gif;*.jpg;*.bmp),*.gif;*.jpg;*.bmp" _
, , "Maschine wählen", , False)
If Choix1 = False Then GoTo folge:
On Error GoTo folge
.Shapes("Maschinebild").Delete
Range("b45").Select
.Pictures.Insert(Choix1).Name = "Maschinebild"
.Shapes("Maschinebild").Width = 190
.Shapes("Maschinebild").Heigth = 50
End With
folge:
If protection1 = True Then ActiveSheet.Protect "cat", DrawingObjects:=False
ActiveSheet.Shapes("Maschinebild").Select
End Sub
Le débugueur me dit qu'il ne trouve pas "Maschinebild". Et ce à juste titre puisque l'image ne s'affiche pas sur la feuille, alors que la fenêtre d'affiche et il est possible de selectionner une photo dans mes dossier. Pour info les 2 boutons se situent dans la même feuille, et donc tout les paramettre devraient s'appliquer au premier comme au 2ème.
D'avance je remercie celui qui aura la gentillesse de se pencher sur le problème. Je reste à dispo pour toute question.
Taebo