Macro
Résolu
Farfadet88
Messages postés
6295
Date d'inscription
Statut
Membre
Dernière intervention
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 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?
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?
A voir également:
- Macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
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
edit : heu j'ai rien dis c'est pas ca la réponse
Salut,
Essaye ceci :
C'est sensiblement la mêmee chose mais déjà t'évite un If... End If
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
