Bonjour, j'aimerai faire un outil qui , en cliquant dessus me colle le contenu du presse papier, j'ai déjà fait la macro et elle fonctionne très bien, je copie manuellement certaines cellules dans un fichier quelconque et je colle par macro dans un autre fichier dont voici le code :
Sub coller()
Range("L3
30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mais voilà, cela fonctionne si il y a quelque chose dans le presse-papier à coller, mais si le presse-papier est vide, un message d'erreur s'affiche....
J'aimerai que si il n'y a rien a coller, à la place du message d'erreur, s'affiche un message en disant par exemple : "tu as oublié de copier les cellules de ton fichier source"... et non pas le message d'erreur.... Merci pour votre aide
Sub coller()
Range("L3
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Mais voilà, cela fonctionne si il y a quelque chose dans le presse-papier à coller, mais si le presse-papier est vide, un message d'erreur s'affiche....
J'aimerai que si il n'y a rien a coller, à la place du message d'erreur, s'affiche un message en disant par exemple : "tu as oublié de copier les cellules de ton fichier source"... et non pas le message d'erreur.... Merci pour votre aide