La question est presque dans le titre.
Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais,
l'image (qui elle, est imprimée), n'est pas enregistrée.
Ci-dessous, la macro:
'Condition creer une copie
If Range("vnDossierOptCopieDoc") = "Oui" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=vmDocChm, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("FactureTCI.xls").Activate
Sheets("Imp").Select
Cells.Select
Selection.Copy
Windows(vmDocFch).Activate
Cells.Select
'copier les valeurs uniquement
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'copier les formats uniquement
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("a1").Select
Application.CutCopyMode = False
'Enregistrer et Fermer la copie
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
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
Gaenonius
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2() img = "D:fsImagesFS.jpg" 'à adapter With ActiveSheet .Pictures.Insert(img).Name = "Image perso" .Shapes("Image perso").Top = .Range("C5").Top .Shapes("Image perso").Left = .Range("C5").Left End With End Sub
-- Gaenonius
Bonjours à tous,
La question est presque dans le titre. Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais, l'image (qui elle, est imprimée), n'est pas enregistrée. Ci-dessous, la macro: 'Condition creer une copie If Range("vnDossierOptCopieDoc") = "Oui" Then Workbooks.Add ActiveWorkbook.SaveAs Filename:=vmDocChm, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Windows("FactureTCI.xls").Activate Sheets("Imp").Select Cells.Select Selection.Copy Windows(vmDocFch).Activate Cells.Select 'copier les valeurs uniquement Selection.PasteSpecial Paste:=xlValues, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse 'copier les formats uniquement Selection.PasteSpecial Paste:=xlFormats, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse Range("a1").Select Application.CutCopyMode = False 'Enregistrer et Fermer la copie ActiveWorkbook.Save ActiveWorkbook.Close GoTo 20 End If
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2()
img = "D:fsImagesFS.jpg" 'à adapter
With ActiveSheet
.Pictures.Insert(img).Name = "Image perso"
.Shapes("Image perso").Top = .Range("C5").Top
.Shapes("Image perso").Left = .Range("C5").Left
End With
End Sub
--
Gaenonius
Bonjours à tous,
La question est presque dans le titre.
Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais,
l'image (qui elle, est imprimée), n'est pas enregistrée.
Ci-dessous, la macro:
'Condition creer une copie
If Range("vnDossierOptCopieDoc") = "Oui" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=vmDocChm, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Windows("FactureTCI.xls").Activate
Sheets("Imp").Select
Cells.Select
Selection.Copy
Windows(vmDocFch).Activate
Cells.Select
'copier les valeurs uniquement
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
'copier les formats uniquement
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Range("a1").Select
Application.CutCopyMode = False
'Enregistrer et Fermer la copie
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2() img = "D:fsImagesFS.jpg" 'à adapter With ActiveSheet .Pictures.Insert(img).Name = "Image perso" .Shapes("Image perso").Top = .Range("C5").Top .Shapes("Image perso").Left = .Range("C5").Left End With End Sub
-- Gaenonius
Bonjours à tous,
La question est presque dans le titre. Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais, l'image (qui elle, est imprimée), n'est pas enregistrée. Ci-dessous, la macro: 'Condition creer une copie If Range("vnDossierOptCopieDoc") = "Oui" Then Workbooks.Add ActiveWorkbook.SaveAs Filename:=vmDocChm, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Windows("FactureTCI.xls").Activate Sheets("Imp").Select Cells.Select Selection.Copy Windows(vmDocFch).Activate Cells.Select 'copier les valeurs uniquement Selection.PasteSpecial Paste:=xlValues, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse 'copier les formats uniquement Selection.PasteSpecial Paste:=xlFormats, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse Range("a1").Select Application.CutCopyMode = False 'Enregistrer et Fermer la copie ActiveWorkbook.Save ActiveWorkbook.Close GoTo 20 End If
Gaenonius
J'oubliais : code pompé chez Frédéric Sigonneau.
-- Gaenonius
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2() img = "D:fsImagesFS.jpg" 'à adapter With ActiveSheet .Pictures.Insert(img).Name = "Image perso" .Shapes("Image perso").Top = .Range("C5").Top .Shapes("Image perso").Left = .Range("C5").Left End With End Sub
-- Gaenonius
Bonjours à tous,
La question est presque dans le titre. Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais, l'image (qui elle, est imprimée), n'est pas enregistrée. Ci-dessous, la macro: 'Condition creer une copie If Range("vnDossierOptCopieDoc") = "Oui" Then Workbooks.Add ActiveWorkbook.SaveAs Filename:=vmDocChm, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Windows("FactureTCI.xls").Activate Sheets("Imp").Select Cells.Select Selection.Copy Windows(vmDocFch).Activate Cells.Select 'copier les valeurs uniquement Selection.PasteSpecial Paste:=xlValues, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse 'copier les formats uniquement Selection.PasteSpecial Paste:=xlFormats, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse Range("a1").Select Application.CutCopyMode = False 'Enregistrer et Fermer la copie ActiveWorkbook.Save ActiveWorkbook.Close GoTo 20 End If
J'oubliais : code pompé chez Frédéric Sigonneau.
--
Gaenonius
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2()
img = "D:fsImagesFS.jpg" 'à adapter
With ActiveSheet
.Pictures.Insert(img).Name = "Image perso"
.Shapes("Image perso").Top = .Range("C5").Top
.Shapes("Image perso").Left = .Range("C5").Left
End With
End Sub
--
Gaenonius
Bonjours à tous,
La question est presque dans le titre.
Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais,
l'image (qui elle, est imprimée), n'est pas enregistrée.
Ci-dessous, la macro:
'Condition creer une copie
If Range("vnDossierOptCopieDoc") = "Oui" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=vmDocChm, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Windows("FactureTCI.xls").Activate
Sheets("Imp").Select
Cells.Select
Selection.Copy
Windows(vmDocFch).Activate
Cells.Select
'copier les valeurs uniquement
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
'copier les formats uniquement
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Range("a1").Select
Application.CutCopyMode = False
'Enregistrer et Fermer la copie
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2() img = "D:fsImagesFS.jpg" 'à adapter With ActiveSheet .Pictures.Insert(img).Name = "Image perso" .Shapes("Image perso").Top = .Range("C5").Top .Shapes("Image perso").Left = .Range("C5").Left End With End Sub
-- Gaenonius
Bonjours à tous,
La question est presque dans le titre. Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais, l'image (qui elle, est imprimée), n'est pas enregistrée. Ci-dessous, la macro: 'Condition creer une copie If Range("vnDossierOptCopieDoc") = "Oui" Then Workbooks.Add ActiveWorkbook.SaveAs Filename:=vmDocChm, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Windows("FactureTCI.xls").Activate Sheets("Imp").Select Cells.Select Selection.Copy Windows(vmDocFch).Activate Cells.Select 'copier les valeurs uniquement Selection.PasteSpecial Paste:=xlValues, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse 'copier les formats uniquement Selection.PasteSpecial Paste:=xlFormats, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse Range("a1").Select Application.CutCopyMode = False 'Enregistrer et Fermer la copie ActiveWorkbook.Save ActiveWorkbook.Close GoTo 20 End If
pireyzend
Merci pur ta réponse,je test si c'est bon
amitiés "Gaenonius" a écrit dans le message de news:%
J'oubliais : code pompé chez Frédéric Sigonneau.
-- Gaenonius
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2() img = "D:fsImagesFS.jpg" 'à adapter With ActiveSheet .Pictures.Insert(img).Name = "Image perso" .Shapes("Image perso").Top = .Range("C5").Top .Shapes("Image perso").Left = .Range("C5").Left End With End Sub
-- Gaenonius
Bonjours à tous,
La question est presque dans le titre. Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais,
l'image (qui elle, est imprimée), n'est pas enregistrée. Ci-dessous, la macro: 'Condition creer une copie If Range("vnDossierOptCopieDoc") = "Oui" Then Workbooks.Add ActiveWorkbook.SaveAs Filename:=vmDocChm, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Windows("FactureTCI.xls").Activate Sheets("Imp").Select Cells.Select Selection.Copy Windows(vmDocFch).Activate Cells.Select 'copier les valeurs uniquement Selection.PasteSpecial Paste:=xlValues, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse 'copier les formats uniquement Selection.PasteSpecial Paste:=xlFormats, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse Range("a1").Select Application.CutCopyMode = False 'Enregistrer et Fermer la copie ActiveWorkbook.Save ActiveWorkbook.Close GoTo 20 End If
Merci pur ta réponse,je test si c'est bon
amitiés
"Gaenonius" <noname@nowhere> a écrit dans le message de
news:%23k3E1x9BFHA.2112@TK2MSFTNGP09.phx.gbl...
J'oubliais : code pompé chez Frédéric Sigonneau.
--
Gaenonius
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2()
img = "D:fsImagesFS.jpg" 'à adapter
With ActiveSheet
.Pictures.Insert(img).Name = "Image perso"
.Shapes("Image perso").Top = .Range("C5").Top
.Shapes("Image perso").Left = .Range("C5").Left
End With
End Sub
--
Gaenonius
Bonjours à tous,
La question est presque dans le titre.
Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur,
mais,
l'image (qui elle, est imprimée), n'est pas enregistrée.
Ci-dessous, la macro:
'Condition creer une copie
If Range("vnDossierOptCopieDoc") = "Oui" Then
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=vmDocChm, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse
Windows("FactureTCI.xls").Activate
Sheets("Imp").Select
Cells.Select
Selection.Copy
Windows(vmDocFch).Activate
Cells.Select
'copier les valeurs uniquement
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
'copier les formats uniquement
Selection.PasteSpecial Paste:=xlFormats, Operation:= _
xlNone, SkipBlanks:úlse, Transpose:úlse
Range("a1").Select
Application.CutCopyMode = False
'Enregistrer et Fermer la copie
ActiveWorkbook.Save
ActiveWorkbook.Close
GoTo 20
End If
amitiés "Gaenonius" a écrit dans le message de news:%
J'oubliais : code pompé chez Frédéric Sigonneau.
-- Gaenonius
Comment affecté une image à une cellule
Par exemple, en supposant l'image enregistrée dans un fichier :
Sub Macro2() img = "D:fsImagesFS.jpg" 'à adapter With ActiveSheet .Pictures.Insert(img).Name = "Image perso" .Shapes("Image perso").Top = .Range("C5").Top .Shapes("Image perso").Left = .Range("C5").Left End With End Sub
-- Gaenonius
Bonjours à tous,
La question est presque dans le titre. Comment affecté une image à une cellule (=Image 19: marche pas)
J'ai une macro qui enregistre une feuille dans un nouveau classeur, mais,
l'image (qui elle, est imprimée), n'est pas enregistrée. Ci-dessous, la macro: 'Condition creer une copie If Range("vnDossierOptCopieDoc") = "Oui" Then Workbooks.Add ActiveWorkbook.SaveAs Filename:=vmDocChm, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:úlse, CreateBackup:úlse Windows("FactureTCI.xls").Activate Sheets("Imp").Select Cells.Select Selection.Copy Windows(vmDocFch).Activate Cells.Select 'copier les valeurs uniquement Selection.PasteSpecial Paste:=xlValues, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse 'copier les formats uniquement Selection.PasteSpecial Paste:=xlFormats, Operation:= _ xlNone, SkipBlanks:úlse, Transpose:úlse Range("a1").Select Application.CutCopyMode = False 'Enregistrer et Fermer la copie ActiveWorkbook.Save ActiveWorkbook.Close GoTo 20 End If
