Bonjour à tous,
Je suis nouveau (Cf. page de présentation des arrivants) et j'ai déjà une question sur un code..
J'utilise un onglet excel avec de nombreuses donnée. Je répète une boucle de macro qui filtre sur différents champs et je lui demande de copier les données puis de les coller dans un .ppt.
Mon problème arrive quand lorsque je n'ai pas de donnée. Le message d'erreur est "Shapes.PasteSpecial : Invalid request. Clipboard is empty or contains data which may not be pasted here."
Je voudrais faire un code qui dise "quand data = "" alors tu ne colle rien"" (je pense que ca doit se mettre après "Range(Selection, Selection.End(xlDown)).Select". J'ai essayé plusieurs choses avec des Then & If mais je ne trouve pas le bon code...
Range("$A$1:$AC$39999").AutoFilter Field:=6, Criteria1:="Integration"
Range("$A$1:$AC$39999").AutoFilter Field:=7, Criteria1:= _
"Aerothermie et thermomecanique"
'Copier/Coller
Range("A1:M1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
PPT.ActivePresentation.Slides(36).Select
PPT.ActivePresentation.Slides(36).Shapes.PasteSpecial (ppPasteBitmap)
NbShpe = Pptdoc.Slides(36).Shapes.Count
With Pptdoc.Slides(36).Shapes(NbShpe)
.Height = 83.01 'hauteur image
.Width = 354.35 'largeur image
.Left = 396.0194 'horizontale dans le slide
.Top = 133.3 'verticale dans le slide
Je reconnais que ce code est très basique mais je débute.. Merci à tous pour votre aide.
Grifis
Je suis nouveau (Cf. page de présentation des arrivants) et j'ai déjà une question sur un code..
J'utilise un onglet excel avec de nombreuses donnée. Je répète une boucle de macro qui filtre sur différents champs et je lui demande de copier les données puis de les coller dans un .ppt.
Mon problème arrive quand lorsque je n'ai pas de donnée. Le message d'erreur est "Shapes.PasteSpecial : Invalid request. Clipboard is empty or contains data which may not be pasted here."
Je voudrais faire un code qui dise "quand data = "" alors tu ne colle rien"" (je pense que ca doit se mettre après "Range(Selection, Selection.End(xlDown)).Select". J'ai essayé plusieurs choses avec des Then & If mais je ne trouve pas le bon code...
Range("$A$1:$AC$39999").AutoFilter Field:=6, Criteria1:="Integration"
Range("$A$1:$AC$39999").AutoFilter Field:=7, Criteria1:= _
"Aerothermie et thermomecanique"
'Copier/Coller
Range("A1:M1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
PPT.ActivePresentation.Slides(36).Select
PPT.ActivePresentation.Slides(36).Shapes.PasteSpecial (ppPasteBitmap)
NbShpe = Pptdoc.Slides(36).Shapes.Count
With Pptdoc.Slides(36).Shapes(NbShpe)
.Height = 83.01 'hauteur image
.Width = 354.35 'largeur image
.Left = 396.0194 'horizontale dans le slide
.Top = 133.3 'verticale dans le slide
Je reconnais que ce code est très basique mais je débute.. Merci à tous pour votre aide.
Grifis