Macro
Résolu
Farfadet88
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
On m'a donné et j'ai modifié cette macro pour aller chercher une image et l'insérer en commentaire d'une cellule:
Private Sub CommandButton2_Click()
Dim TheFile As String
Dim chemin As String
chemin = "C:\"
Sheets("données").Select
Range("L1").Select
Selection.ClearComments
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = chemin
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Sheets("données").Range("L1").Value = "..."
Sheets("accueil").Select
Exit Sub
End If
Range("l1").AddComment
Sheets("données").Range("L1").Comment.Shape.Fill.UserPicture TheFile
Sheets("données").Range("L1").Value = "Photo"
Range("l1").Comment.Visible = True
Range("l1").Comment.Shape.Select True
Selection.ShapeRange.ScaleWidth 3.77, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 4.57, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.94, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.07, msoFalse, msoScaleFromTopLeft
Sheets("accueil").Select
End Sub
Elle marchait bien mais depuis peu la partie soulignée en gras me fait planter Vbasic
Pouvez vous m'aider?
--
Après Open Office essayez Opin Offece :P
On m'a donné et j'ai modifié cette macro pour aller chercher une image et l'insérer en commentaire d'une cellule:
Private Sub CommandButton2_Click()
Dim TheFile As String
Dim chemin As String
chemin = "C:\"
Sheets("données").Select
Range("L1").Select
Selection.ClearComments
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = chemin
.Filters.Clear
.Filters.Add Description:="Images", Extensions:="*.jpg", Position:=1
.Title = "Choix de l'image"
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = 0
End With
If TheFile = 0 Then
MsgBox ("aucun fichier image choisi")
Sheets("données").Range("L1").Value = "..."
Sheets("accueil").Select
Exit Sub
End If
Range("l1").AddComment
Sheets("données").Range("L1").Comment.Shape.Fill.UserPicture TheFile
Sheets("données").Range("L1").Value = "Photo"
Range("l1").Comment.Visible = True
Range("l1").Comment.Shape.Select True
Selection.ShapeRange.ScaleWidth 3.77, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 4.57, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.94, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.07, msoFalse, msoScaleFromTopLeft
Sheets("accueil").Select
End Sub
Elle marchait bien mais depuis peu la partie soulignée en gras me fait planter Vbasic
Pouvez vous m'aider?
--
Après Open Office essayez Opin Offece :P
Configuration: ...
3 réponses
-
bonjour, je croi qu'il faut remplacer 0 par False ^^
edit : heu j'ai rien dis c'est pas ca la réponse -
Salut,
Essaye ceci :
If .Show = -1 Then TheFile = .SelectedItems(1) Else TheFile = "0" MsgBox ("aucun fichier image choisi") Sheets("données").Range("L1").Value = "..." Sheets("accueil").Select Exit Sub End If End With
C'est sensiblement la mêmee chose mais déjà t'évite un If... End If
-
Ca ne marche pas non plus
